*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 05 Aug 2011 11:41:22 +0200
changeset 15cc7adbd216be
parent 14 2b598cdd4afd
child 16 d14443d7e920
*** empty log message ***
quickSelfTest/SelfTest.st
     1.1 --- a/quickSelfTest/SelfTest.st	Fri Aug 05 11:31:19 2011 +0200
     1.2 +++ b/quickSelfTest/SelfTest.st	Fri Aug 05 11:41:22 2011 +0200
     1.3 @@ -33,10 +33,22 @@
     1.4  
     1.5  Stdout showCR:'Loading regression tests...'.
     1.6  Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
     1.7 +(Smalltalk allClassesInPackage:'exept:regression') do:[:each |
     1.8 +    (#(
     1.9 +	'RegressionTests::ExternalInterfaceTests'
    1.10 +	'RegressionTests::ContextTest2'
    1.11 +    ) includes:each name) ifTrue:[
    1.12 +	Stdout showCR:('Skipped ',each name,'...').
    1.13 +    ] ifFalse:[
    1.14 +	Stdout showCR:('Loading ',each name,'...').
    1.15 +	each autoload
    1.16 +    ].
    1.17 +].
    1.18  !
    1.19  
    1.20  |suite result|
    1.21  
    1.22 +Stdout showCR:'Creating suite...'.
    1.23  suite := TestSuite named:'SelfTest'.
    1.24  "/ suite addTest:(RegressionTests::QuickTest suite).
    1.25  suite addTest:(RegressionTests::AssociationTests suite).
    1.26 @@ -53,7 +65,7 @@
    1.27  suite addTest:(RegressionTests::DictionaryTest suite).
    1.28  suite addTest:(RegressionTests::EnumerationTests suite).
    1.29  suite addTest:(RegressionTests::ExceptionTest suite).
    1.30 -suite addTest:(RegressionTests::ExternalInterfaceTests suite).
    1.31 +"/ suite addTest:(RegressionTests::ExternalInterfaceTests suite).
    1.32  suite addTest:(RegressionTests::FileOpenTest suite).
    1.33  suite addTest:(RegressionTests::FileStreamTest suite).
    1.34  suite addTest:(RegressionTests::FloatTest suite).
    1.35 @@ -81,9 +93,10 @@
    1.36  suite addTest:(RegressionTests::XMLCoderTests suite).
    1.37  suite addTest:(RegressionTests::ZipArchiveTests suite).
    1.38  
    1.39 +Stdout showCR:'Running suite...'.
    1.40  result := suite
    1.41  	    runBeforeEachDo:[:test |
    1.42 -		Stdout showCR:('running ',test printString).
    1.43 +		Stdout showCR:('- running ',test printString).
    1.44  	    ].
    1.45  TestResultReporter
    1.46      report:result