[Help-smalltalk] [PATCH 1/2] visualgst: Ask the TestCase for all test selectors

[Holger Hans Peter Freyther]

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