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]]