[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