[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Help-smalltalk] [PATCH 1/2] visualgst: Ask the TestCase for all test se
From: |
Holger Hans Peter Freyther |
Subject: |
[Help-smalltalk] [PATCH 1/2] visualgst: Ask the TestCase for all test selectors |
Date: |
Fri, 24 Jan 2014 20:25:29 +0100 |
With Phexample testcases are called should* and they do not show
up in GtkSUnit. Change the finding of testcases to query TestCase
for all test selectors.
2014-01-24 Holger Hans Peter Freyther <address@hidden>
* SUnit/GtkSUnit.st: Ask TestCase for testcases.
---
packages/visualgst/ChangeLog | 4 ++++
packages/visualgst/SUnit/GtkSUnit.st | 10 ++++------
2 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/packages/visualgst/ChangeLog b/packages/visualgst/ChangeLog
index 3c8f680..4c4dd56 100644
--- a/packages/visualgst/ChangeLog
+++ b/packages/visualgst/ChangeLog
@@ -1,3 +1,7 @@
+2014-01-24 Holger Hans Peter Freyther <address@hidden>
+
+ * SUnit/GtkSUnit.st: Ask TestCase for testcases.
+
2014-01-20 Holger Hans Peter Freyther <address@hidden>
* SUnit/GtkSUnit.st: Change parameter from Symbol to String.
diff --git a/packages/visualgst/SUnit/GtkSUnit.st
b/packages/visualgst/SUnit/GtkSUnit.st
index 9c7c5c6..012fe95 100644
--- a/packages/visualgst/SUnit/GtkSUnit.st
+++ b/packages/visualgst/SUnit/GtkSUnit.st
@@ -307,9 +307,8 @@ GtkBrowsingTool subclass: GtkSUnit [
classWidget hasSelectedClass ifFalse: [ ^ self ].
suite := TestSuite named: classWidget allClassNames.
classWidget selectedClasses do: [ :elem |
- elem selectors do: [ :each |
- (each matchRegex: 'test' from: 1 to: 4)
- ifTrue: [ suite addTest: (elem selector: each) ] ] ].
+ elem allTestSelectors do: [:each |
+ suite addTest: (elem selector: each)]].
suite logPolicy: TestBacktraceLog new.
results := suite run.
@@ -326,9 +325,8 @@ GtkBrowsingTool subclass: GtkSUnit [
classWidget hasSelectedClass ifFalse: [ ^ self ].
classWidget selectedClasses do: [ :elem | | test |
test := elem new.
- elem selectors do: [ :each |
- (each matchRegex: 'test' from: 1 to: 4)
- ifTrue: [ test setTestSelector: each. test debug ] ] ].
+ elem allTestSelectors do: [:each |
+ test setTestSelector: each. test debug ] ].
]
compileError: aString line: line [
--
1.8.5.2
- [Help-smalltalk] [PATCH 1/2] visualgst: Ask the TestCase for all test selectors,
Holger Hans Peter Freyther <=