[Vm-dev] [commit][3620] Add a script that runs the tests of a single test class in a new TestRunner .

commits at squeakvm.org commits at squeakvm.org
Sun Feb 21 01:35:09 UTC 2016


Revision: 3620
Author:   eliot
Date:     2016-02-20 17:35:03 -0800 (Sat, 20 Feb 2016)
Log Message:
-----------
Add a script that runs the tests of a single test class in a new TestRunner.

Added Paths:
-----------
    branches/Cog/image/RunATestClass.st

Added: branches/Cog/image/RunATestClass.st
===================================================================
--- branches/Cog/image/RunATestClass.st	                        (rev 0)
+++ branches/Cog/image/RunATestClass.st	2016-02-21 01:35:03 UTC (rev 3620)
@@ -0,0 +1,16 @@
+"Run a single test class in a TestRunner.
+ Usage: myvm myimage.image RunATestClass.st TheTestClass
+ A confirmer will appear after the tests have run.  Click to exit or not."
+| testRunner testClass |
+testRunner := TestRunner open model.
+testClass := Smalltalk getSystemAttribute: 3.
+testRunner
+	selectNoClasses;
+	classAt: ((1 to: testRunner classList size) detect:
+				[:i| (testRunner classList at: i) string endsWith: testClass])
+	put: true;
+	runAll.
+(UIManager default confirm: 'Quit?') ifTrue:
+	[[Smalltalk quit]
+		on: MessageNotUnderstood
+		do: [:ex| Smalltalk quitPrimitive]]


More information about the Vm-dev mailing list