*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 01 Aug 2011 16:51:43 +0200
changeset 999d5004cb28f
parent 8 7a691ced6334
child 10 5b2afc26ab21
*** empty log message ***
quickSelfTest/SelfTest.st
     1.1 --- a/quickSelfTest/SelfTest.st	Mon Aug 01 10:29:52 2011 +0200
     1.2 +++ b/quickSelfTest/SelfTest.st	Mon Aug 01 16:51:43 2011 +0200
     1.3 @@ -18,35 +18,52 @@
     1.4  Processor activeProcess exceptionHandlerSet
     1.5      on:(Class updateChangeFileQuerySignal)
     1.6      do:[:ex | ex proceedWith:false ].
     1.7 -
     1.8 -Stream compile:'<< text self nextPutAll:text'.
     1.9  !
    1.10  
    1.11 -Stdout << 'Selftest Started '; cr.
    1.12 +Stdout showCR:'Selftest Started'.
    1.13  !
    1.14  
    1.15 -Stdout <<'Loading sunit...'; cr.
    1.16 +Stdout showCR:'Loading sunit...'.
    1.17  Smalltalk loadPackage:'stx:goodies/sunit'.
    1.18  !
    1.19  
    1.20 -Stdout <<'Loading regression tests...'; cr.
    1.21 +Stdout showCR:'Loading regression tests...'.
    1.22  Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
    1.23  !
    1.24  
    1.25  |suite result|
    1.26  
    1.27  suite := TestSuite named:'SelfTest'.
    1.28 -suite addTest:(RegressionTests::IntegerTest suite).
    1.29 +"/ suite addTest:(RegressionTests::QuickTest suite).
    1.30  suite addTest:(RegressionTests::CollectionTests suite).
    1.31  suite addTest:(RegressionTests::CompilerTest suite).
    1.32  suite addTest:(RegressionTests::DelayTest suite).
    1.33  suite addTest:(RegressionTests::DictionaryTest suite).
    1.34  suite addTest:(RegressionTests::EnumerationTests suite).
    1.35  suite addTest:(RegressionTests::ExceptionTest suite).
    1.36 +suite addTest:(RegressionTests::FloatTest suite).
    1.37 +suite addTest:(RegressionTests::FractionTest suite).
    1.38 +suite addTest:(RegressionTests::FractionTest suite).
    1.39 +suite addTest:(RegressionTests::IntegerTest suite).
    1.40 +suite addTest:(RegressionTests::JavaScriptTests suite).
    1.41 +suite addTest:(RegressionTests::MemoryTest suite).
    1.42 +suite addTest:(RegressionTests::NumberTest suite).
    1.43 +suite addTest:(RegressionTests::ParserTest suite).
    1.44 +suite addTest:(RegressionTests::ScaledDecimalTest suite).
    1.45 +suite addTest:(RegressionTests::SemaphoreTest suite).
    1.46 +suite addTest:(RegressionTests::SharedQueueTest suite).
    1.47 +suite addTest:(RegressionTests::SmallIntegerTest suite).
    1.48 +suite addTest:(RegressionTests::SortTests suite).
    1.49 +suite addTest:(RegressionTests::StringTests suite).
    1.50 +suite addTest:(RegressionTests::TimeAndDateTest suite).
    1.51 +suite addTest:(RegressionTests::TimeDurationTest suite).
    1.52 +suite addTest:(RegressionTests::URLTest suite).
    1.53 +suite addTest:(RegressionTests::XMLCoderTests suite).
    1.54 +suite addTest:(RegressionTests::ZipArchiveTests suite).
    1.55  
    1.56  result := suite
    1.57  	    runBeforeEachDo:[:test |
    1.58 -		Stdout << ('running ',test printString). Stdout cr
    1.59 +		Stdout showCR:('running ',test printString).
    1.60  	    ].
    1.61  TestResultReporter
    1.62      report:result