*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 30 Jul 2011 20:34:35 +0200
changeset 0 90bba565014c
child 1 33fd426b59e7
*** empty log message ***
quickSelfTest/SelfTest.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/quickSelfTest/SelfTest.st	Sat Jul 30 20:34:35 2011 +0200
@@ -0,0 +1,37 @@
+"/
+"/ execute this script using the following command line:
+"/
+"/ stx -nobanner -I --quick --execute SelfTest.st
+"/
+Object infoPrinting:false.
+ObjectMemory infoPrinting:false.
+Processor activeProcess exceptionHandlerSet
+    on:(Class updateChangeFileQuerySignal)
+    do:[:ex | ex proceedWith:false ].
+
+Stream compile:'<< text self nextPutAll:text'.
+!
+
+Stdout << 'Selftest Started '; cr.
+!
+
+Stdout <<'Loading sunit...'; cr.
+Smalltalk loadPackage:'stx:goodies/sunit'.
+!
+
+Stdout <<'Loading regression tests...'; cr.
+Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
+!
+
+|result|
+
+result := RegressionTests::IntegerTest runTests.
+TestResultReporter report:result format:#xml_junit as:'IntegerTest.result.xml'.
+
+"/Autoload allSubclassesDo:[:cls |
+"/    cls package = 'exept:regression' ifTrue:[
+"/        Stdout << cls name; cr.
+"/        cls runTests.
+"/    ].
+"/].
+!