quickSelfTest/SelfTest.st
author Claus Gittinger <cg@exept.de>
Sun, 31 Jul 2011 14:00:49 +0200
changeset 4 4674a8d2574e
parent 3 62bd5f071940
child 5 d1cb14c9f8fc
permissions -rw-r--r--
*** empty log message ***

"/
"/ execute this script using the following command line:
"/
"/ stx -nobanner -I --quick --execute SelfTest.st
"/
"/ to use with jenkins (+ perfPublisher plugin):
"/ use the following buildscript:
"/ (after checkout of stx)
"/      cd stx
"/      call bmake
"/      cd goodies\selftest
"/      ..\..\projects\smalltalk\stx.com --noBanner -I --execute SelfTest.st
"/
"/ and configure the perfPublisher jenkins plugin, to scan for "testresult.xml"

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').
!

|suite result|

suite := TestSuite named:'SelfTest'.
suite addTest:(RegressionTests::IntegerTest suite).
suite addTest:(RegressionTests::CollectionTests suite).

result := suite run.
TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'.

"/Autoload allSubclassesDo:[:cls |
"/    cls package = 'exept:regression' ifTrue:[
"/        Stdout << cls name; cr.
"/        cls runTests.
"/    ].
"/].
!