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 <[email protected]> * 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 <[email protected]> + + * SUnit/GtkSUnit.st: Ask TestCase for testcases. + 2014-01-20 Holger Hans Peter Freyther <[email protected]> * 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 mailing list [email protected] https://lists.gnu.org/mailman/listinfo/help-smalltalk
