[Help-smalltalk] [PATCH 1/2] gst-sunit: Allow to execute a subset of tests provided by a package

[Holger Hans Peter Freyther]

Using "gst-sunit -p PACKAGE" will execute all tests of the package.
Make it possible to pass a different test script on the command line
and in this case none of the default tests will be executed. This
can be used when just trying to understand a single regression.

2014-05-01  Holger Hans Peter Freyther  <address@hidden>

        * scripts/Test.st: Introduce pkgScript variable and
        use it.
---
 ChangeLog       |  5 +++++
 NEWS            |  3 +++
 scripts/Test.st | 10 ++++++----
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7369612..4384e2a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-01  Holger Hans Peter Freyther  <address@hidden>
+
+       * scripts/Test.st: Introduce pkgScript variable and
+       use it.
+
 2014-03-31  Gwenael Casaccio  <address@hidden>
 
        * kernel/Object.st: Make Object>>FinalizableObjects thread safe.
diff --git a/NEWS b/NEWS
index d66e099..e1920c8 100644
--- a/NEWS
+++ b/NEWS
@@ -28,6 +28,9 @@ o   gst-sunit now understands the -d/--debug parameter. In 
case of an
 
 o   The Netlink module has been added for Linux.
 
+o   gst-sunit -p package.xml TestClass will execute only the tests of
+    the TestClass now.
+
 -----------------------------------------------------------------------------
 
 NEWS FROM 3.2.4 to 3.2.5
diff --git a/scripts/Test.st b/scripts/Test.st
index 11e1ae0..28409bb 100644
--- a/scripts/Test.st
+++ b/scripts/Test.st
@@ -77,12 +77,13 @@ Object subclass: SUnitUnhandledDebugger [
 
 PackageLoader fileInPackage: 'SUnit'!
 
-| helpString verbose script suite result quiet debug |
+| helpString verbose pkgScript script suite result quiet debug |
 quiet := false.
 verbose := false.
 debug := false.
 FileStream verbose: false.
 script := ''.
+pkgScript := ''.
 
 helpString :=
 'Usage:
@@ -141,10 +142,10 @@ Smalltalk
                     tmp := PackageLoader loadPackageFromFile: Directory 
working / arg.
                     PackageLoader insertPackage: tmp. tmp ]
                ifFalse: [ PackageLoader packageAt: arg ].
-           script := script, ' ', pkg sunitScript.
+           pkgScript := pkgScript, ' ', pkg sunitScript.
            pkg test notNil ifTrue: [
                pkg := pkg test.
-               script := script, ' ', pkg sunitScript ].
+               pkgScript := pkgScript, ' ', pkg sunitScript ].
            pkg fileIn ]
            ifCurtailed: [ ObjectMemory quit: 2 ] ].
 
@@ -159,7 +160,8 @@ Smalltalk
        helpString displayOn: stderr.
        ObjectMemory quit: 1 ].
 
-script isEmpty ifTrue: [ ObjectMemory quit ].
+(script isEmpty and: [pkgScript isEmpty]) ifTrue: [ ObjectMemory quit ].
+script isEmpty ifTrue: [script := pkgScript].
 
 FileStream verbose: false.
 (PackageLoader packageAt: #SUnit) loaded
-- 
1.9.1