*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 05 Aug 2011 15:08:38 +0200
changeset 237dcd34b06222
parent 22 1d4731483660
child 24 e118d54e0ffc
*** empty log message ***
quickSelfTest/SelfTest.st
     1.1 --- a/quickSelfTest/SelfTest.st	Fri Aug 05 14:58:15 2011 +0200
     1.2 +++ b/quickSelfTest/SelfTest.st	Fri Aug 05 15:08:38 2011 +0200
     1.3 @@ -31,75 +31,69 @@
     1.4  "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
     1.5  !
     1.6  
     1.7 -Stdout showCR:'Loading regression tests...'.
     1.8 -Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
     1.9 -(Smalltalk allClassesInPackage:'exept:regression') do:[:each |
    1.10 -    (#(
    1.11 -	'RegressionTests::ExternalInterfaceTests'
    1.12 -	'RegressionTests::ContextTest2'
    1.13 -	'RegressionTests::StackFrameTest'
    1.14 -	'RegressionTests::BlockTest'
    1.15 -    ) includes:each name) ifTrue:[
    1.16 -	Stdout showCR:('Skipped ',each name,'...').
    1.17 -    ] ifFalse:[
    1.18 -	Stdout showCR:('Loading ',each name,'...').
    1.19 -	each autoload
    1.20 -    ].
    1.21 -].
    1.22 -!
    1.23 -
    1.24 -|suite result|
    1.25 +!suite result|
    1.26  
    1.27  Stdout showCR:'Creating suite...'.
    1.28  suite := TestSuite named:'SelfTest'.
    1.29 -"/ suite addTest:(RegressionTests::QuickTest suite).
    1.30 -suite addTest:(RegressionTests::AssociationTests suite).
    1.31 -suite addTest:(RegressionTests::BinaryIOTests suite).
    1.32 -suite addTest:(RegressionTests::BinaryTreeTester suite).
    1.33 -suite addTest:(RegressionTests::BlockTest suite).
    1.34 -suite addTest:(RegressionTests::CharacterTests suite).
    1.35 -suite addTest:(RegressionTests::CollectionTests suite).
    1.36 -suite addTest:(RegressionTests::CompilerTest suite).
    1.37 -suite addTest:(RegressionTests::ComplexTest suite).
    1.38 -"/ suite addTest:(RegressionTests::DebuggerTest suite).
    1.39 -suite addTest:(RegressionTests::DeepCopyTests suite).
    1.40 -suite addTest:(RegressionTests::DelayTest suite).
    1.41 -suite addTest:(RegressionTests::DictionaryTest suite).
    1.42 -suite addTest:(RegressionTests::EnumerationTests suite).
    1.43 -suite addTest:(RegressionTests::ExceptionTest suite).
    1.44 -"/ suite addTest:(RegressionTests::ExternalInterfaceTests suite).
    1.45 -suite addTest:(RegressionTests::FileOpenTest suite).
    1.46 -suite addTest:(RegressionTests::FileStreamTest suite).
    1.47 -suite addTest:(RegressionTests::FloatTest suite).
    1.48 -suite addTest:(RegressionTests::FractionTest suite).
    1.49 -suite addTest:(RegressionTests::FractionTest suite).
    1.50 -suite addTest:(RegressionTests::GCTest suite).
    1.51 -suite addTest:(RegressionTests::GraphicDrawingTest suite).
    1.52 -suite addTest:(RegressionTests::HTMLParserTests suite).
    1.53 -suite addTest:(RegressionTests::ImageReaderTest suite).
    1.54 -suite addTest:(RegressionTests::IntegerTest suite).
    1.55 -suite addTest:(RegressionTests::JavaScriptTests suite).
    1.56 -"/ suite addTest:(RegressionTests::MeasurementValueTests suite).
    1.57 -"/ suite addTest:(RegressionTests::MemoryTest suite).
    1.58 -suite addTest:(RegressionTests::NumberTest suite).
    1.59 -suite addTest:(RegressionTests::ParserTest suite).
    1.60 -suite addTest:(RegressionTests::ScaledDecimalTest suite).
    1.61 -suite addTest:(RegressionTests::SemaphoreTest suite).
    1.62 -suite addTest:(RegressionTests::SharedQueueTest suite).
    1.63 -suite addTest:(RegressionTests::SmallIntegerTest suite).
    1.64 -suite addTest:(RegressionTests::SortTests suite).
    1.65 -suite addTest:(RegressionTests::StringTests suite).
    1.66 -suite addTest:(RegressionTests::TimeAndDateTest suite).
    1.67 -suite addTest:(RegressionTests::TimeDurationTest suite).
    1.68 -suite addTest:(RegressionTests::URLTest suite).
    1.69 -"/ suite addTest:(RegressionTests::XMLCoderTests suite).
    1.70 -suite addTest:(RegressionTests::ZipArchiveTests suite).
    1.71 +
    1.72 +Stdout showCR:'Loading regression tests...'.
    1.73 +#(
    1.74 +    'AssociationTests'
    1.75 +    "/ 'BinaryIOTests'
    1.76 +    'BinaryTreeTester'
    1.77 +    "/ 'BlockTest'
    1.78 +    'CharacterTests'
    1.79 +    'CollectionTests'
    1.80 +    "/ 'CompilerTest'
    1.81 +    'ComplexTest'
    1.82 +    "/ 'DebuggerTest'
    1.83 +    "/ 'DeepCopyTests'
    1.84 +    "/ 'DelayTest'
    1.85 +    "/ 'DictionaryTest'
    1.86 +    "/ 'EnumerationTests'
    1.87 +    "/ 'ExceptionTest'
    1.88 +    "/ 'ExternalInterfaceTests'
    1.89 +    "/ 'FileOpenTest'
    1.90 +    "/ 'FileStreamTest'
    1.91 +    "/ 'FloatTest'
    1.92 +    "/ 'FractionTest'
    1.93 +    "/ 'FractionTest'
    1.94 +    "/ 'GCTest'
    1.95 +    "/ 'GraphicDrawingTest'
    1.96 +    "/ 'HTMLParserTests'
    1.97 +    "/ 'ImageReaderTest'
    1.98 +    "/ 'IntegerTest'
    1.99 +    "/ 'JavaScriptTests'
   1.100 +    "/ 'MeasurementValueTests'
   1.101 +    "/ 'MemoryTest'
   1.102 +    'NumberTest'
   1.103 +    "/ 'ParserTest'
   1.104 +    "/ 'ScaledDecimalTest'
   1.105 +    "/ 'SemaphoreTest'
   1.106 +    "/ 'SharedQueueTest'
   1.107 +    'SmallIntegerTest'
   1.108 +    "/ 'SortTests'
   1.109 +    "/ 'StringTests'
   1.110 +    "/ 'TimeAndDateTest'
   1.111 +    "/ 'TimeDurationTest'
   1.112 +    "/ 'URLTest'
   1.113 +    "/ 'XMLCoderTests'
   1.114 +    "/ 'ZipArchiveTests'
   1.115 +) do:[:className |
   1.116 +    |fullName|
   1.117 +
   1.118 +    fullName := ('RegressionTests::',className).
   1.119 +    Stdout showCR:('Loading ',className,'...').
   1.120 +    Smalltalk fileInClass:fullName package:'exept:regression'.
   1.121 +    suite addTest:(Smalltalk classNamed:fullName) suite.
   1.122 +].
   1.123  
   1.124  Stdout showCR:'Running suite...'.
   1.125  result := suite
   1.126  	    runBeforeEachDo:[:test |
   1.127  		Stdout showCR:('- running ',test printString).
   1.128  	    ].
   1.129 +
   1.130  TestResultReporter
   1.131      report:result
   1.132      format:#xml_perfPublisher