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

Add a script that runs the tests of a single test class in a new TestRunner.
Add a script that runs the tests of a single test class in a new TestRunner.


git-svn-id: http://squeakvm.org/svn/squeak/branches/Cog@3620 fa1542d4-bde8-0310-ad64-8ed1123d492a

Former-commit-id: 41960f43729717f648e752f31e6212f6cf2d9314
bencoman/pharo-vm,OpenSmalltalk/vm,OpenSmalltalk/vm,bencoman/pharo-vm,OpenSmalltalk/vm,OpenSmalltalk/vm,OpenSmalltalk/vm,bencoman/pharo-vm,timfel/squeakvm,timfel/squeakvm,bencoman/pharo-vm,bencoman/pharo-vm,peteruhnak/pharo-vm,timfel/squeakvm,timfel/squeakvm,bencoman/pharo-vm,peteruhnak/pharo-vm,peteruhnak/pharo-vm,peteruhnak/pharo-vm,timfel/squeakvm,peteruhnak/pharo-vm,OpenSmalltalk/vm,bencoman/pharo-vm,bencoman/pharo-vm,timfel/squeakvm,peteruhnak/pharo-vm,OpenSmalltalk/vm,bencoman/pharo-vm,OpenSmalltalk/vm,timfel/squeakvm,peteruhnak/pharo-vm,peteruhnak/pharo-vm,timfel/squeakvm