"/
"/ execute this script using the following command line:
"/
"/ stx --noBanner -I --execute SelfTest.st
"/
"/ to use with jenkins (+ perfPublisher plugin):
"/ use the following buildscript (in jenkins):
"/ (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 ].
!

Stdout showCR:'Selftest Started'.
!

Stdout showCR:'Loading sunit...'.
Smalltalk loadPackage:'stx:goodies/sunit'.
!

Stdout showCR:'Loading regression tests...'.
Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
!

|suite result|

suite := TestSuite named:'SelfTest'.
"/ suite addTest:(RegressionTests::QuickTest suite).
suite addTest:(RegressionTests::CollectionTests suite).
suite addTest:(RegressionTests::CompilerTest suite).
suite addTest:(RegressionTests::DelayTest suite).
suite addTest:(RegressionTests::DictionaryTest suite).
suite addTest:(RegressionTests::EnumerationTests suite).
suite addTest:(RegressionTests::ExceptionTest suite).
suite addTest:(RegressionTests::FloatTest suite).
suite addTest:(RegressionTests::FractionTest suite).
suite addTest:(RegressionTests::FractionTest suite).
suite addTest:(RegressionTests::IntegerTest suite).
suite addTest:(RegressionTests::JavaScriptTests suite).
suite addTest:(RegressionTests::MemoryTest suite).
suite addTest:(RegressionTests::NumberTest suite).
suite addTest:(RegressionTests::ParserTest suite).
suite addTest:(RegressionTests::ScaledDecimalTest suite).
suite addTest:(RegressionTests::SemaphoreTest suite).
suite addTest:(RegressionTests::SharedQueueTest suite).
suite addTest:(RegressionTests::SmallIntegerTest suite).
suite addTest:(RegressionTests::SortTests suite).
suite addTest:(RegressionTests::StringTests suite).
suite addTest:(RegressionTests::TimeAndDateTest suite).
suite addTest:(RegressionTests::TimeDurationTest suite).
suite addTest:(RegressionTests::URLTest suite).
suite addTest:(RegressionTests::XMLCoderTests suite).
suite addTest:(RegressionTests::ZipArchiveTests suite).

result := suite
	    runBeforeEachDo:[:test |
		Stdout showCR:('running ',test printString).
	    ].
TestResultReporter
    report:result
    format:#xml_perfPublisher
    as:'testresult.xml'.
!