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 <hol...@freyther.de>
* 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 <hol...@freyther.de>
+
+ * scripts/Test.st: Introduce pkgScript variable and
+ use it.
+
2014-03-31 Gwenael Casaccio <gwenael.casac...@gmail.com>
* 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
_______________________________________________
help-smalltalk mailing list
help-smalltalk@gnu.org
https://lists.gnu.org/mailman/listinfo/help-smalltalk
