29 |
29 |
30 "/ Smalltalk loadPackage:'stx:goodies/xml/vw'. |
30 "/ Smalltalk loadPackage:'stx:goodies/xml/vw'. |
31 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'. |
31 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'. |
32 ! |
32 ! |
33 |
33 |
34 Stdout showCR:'Loading regression tests...'. |
34 !suite result| |
35 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc'). |
|
36 (Smalltalk allClassesInPackage:'exept:regression') do:[:each | |
|
37 (#( |
|
38 'RegressionTests::ExternalInterfaceTests' |
|
39 'RegressionTests::ContextTest2' |
|
40 'RegressionTests::StackFrameTest' |
|
41 'RegressionTests::BlockTest' |
|
42 ) includes:each name) ifTrue:[ |
|
43 Stdout showCR:('Skipped ',each name,'...'). |
|
44 ] ifFalse:[ |
|
45 Stdout showCR:('Loading ',each name,'...'). |
|
46 each autoload |
|
47 ]. |
|
48 ]. |
|
49 ! |
|
50 |
|
51 |suite result| |
|
52 |
35 |
53 Stdout showCR:'Creating suite...'. |
36 Stdout showCR:'Creating suite...'. |
54 suite := TestSuite named:'SelfTest'. |
37 suite := TestSuite named:'SelfTest'. |
55 "/ suite addTest:(RegressionTests::QuickTest suite). |
38 |
56 suite addTest:(RegressionTests::AssociationTests suite). |
39 Stdout showCR:'Loading regression tests...'. |
57 suite addTest:(RegressionTests::BinaryIOTests suite). |
40 #( |
58 suite addTest:(RegressionTests::BinaryTreeTester suite). |
41 'AssociationTests' |
59 suite addTest:(RegressionTests::BlockTest suite). |
42 "/ 'BinaryIOTests' |
60 suite addTest:(RegressionTests::CharacterTests suite). |
43 'BinaryTreeTester' |
61 suite addTest:(RegressionTests::CollectionTests suite). |
44 "/ 'BlockTest' |
62 suite addTest:(RegressionTests::CompilerTest suite). |
45 'CharacterTests' |
63 suite addTest:(RegressionTests::ComplexTest suite). |
46 'CollectionTests' |
64 "/ suite addTest:(RegressionTests::DebuggerTest suite). |
47 "/ 'CompilerTest' |
65 suite addTest:(RegressionTests::DeepCopyTests suite). |
48 'ComplexTest' |
66 suite addTest:(RegressionTests::DelayTest suite). |
49 "/ 'DebuggerTest' |
67 suite addTest:(RegressionTests::DictionaryTest suite). |
50 "/ 'DeepCopyTests' |
68 suite addTest:(RegressionTests::EnumerationTests suite). |
51 "/ 'DelayTest' |
69 suite addTest:(RegressionTests::ExceptionTest suite). |
52 "/ 'DictionaryTest' |
70 "/ suite addTest:(RegressionTests::ExternalInterfaceTests suite). |
53 "/ 'EnumerationTests' |
71 suite addTest:(RegressionTests::FileOpenTest suite). |
54 "/ 'ExceptionTest' |
72 suite addTest:(RegressionTests::FileStreamTest suite). |
55 "/ 'ExternalInterfaceTests' |
73 suite addTest:(RegressionTests::FloatTest suite). |
56 "/ 'FileOpenTest' |
74 suite addTest:(RegressionTests::FractionTest suite). |
57 "/ 'FileStreamTest' |
75 suite addTest:(RegressionTests::FractionTest suite). |
58 "/ 'FloatTest' |
76 suite addTest:(RegressionTests::GCTest suite). |
59 "/ 'FractionTest' |
77 suite addTest:(RegressionTests::GraphicDrawingTest suite). |
60 "/ 'FractionTest' |
78 suite addTest:(RegressionTests::HTMLParserTests suite). |
61 "/ 'GCTest' |
79 suite addTest:(RegressionTests::ImageReaderTest suite). |
62 "/ 'GraphicDrawingTest' |
80 suite addTest:(RegressionTests::IntegerTest suite). |
63 "/ 'HTMLParserTests' |
81 suite addTest:(RegressionTests::JavaScriptTests suite). |
64 "/ 'ImageReaderTest' |
82 "/ suite addTest:(RegressionTests::MeasurementValueTests suite). |
65 "/ 'IntegerTest' |
83 "/ suite addTest:(RegressionTests::MemoryTest suite). |
66 "/ 'JavaScriptTests' |
84 suite addTest:(RegressionTests::NumberTest suite). |
67 "/ 'MeasurementValueTests' |
85 suite addTest:(RegressionTests::ParserTest suite). |
68 "/ 'MemoryTest' |
86 suite addTest:(RegressionTests::ScaledDecimalTest suite). |
69 'NumberTest' |
87 suite addTest:(RegressionTests::SemaphoreTest suite). |
70 "/ 'ParserTest' |
88 suite addTest:(RegressionTests::SharedQueueTest suite). |
71 "/ 'ScaledDecimalTest' |
89 suite addTest:(RegressionTests::SmallIntegerTest suite). |
72 "/ 'SemaphoreTest' |
90 suite addTest:(RegressionTests::SortTests suite). |
73 "/ 'SharedQueueTest' |
91 suite addTest:(RegressionTests::StringTests suite). |
74 'SmallIntegerTest' |
92 suite addTest:(RegressionTests::TimeAndDateTest suite). |
75 "/ 'SortTests' |
93 suite addTest:(RegressionTests::TimeDurationTest suite). |
76 "/ 'StringTests' |
94 suite addTest:(RegressionTests::URLTest suite). |
77 "/ 'TimeAndDateTest' |
95 "/ suite addTest:(RegressionTests::XMLCoderTests suite). |
78 "/ 'TimeDurationTest' |
96 suite addTest:(RegressionTests::ZipArchiveTests suite). |
79 "/ 'URLTest' |
|
80 "/ 'XMLCoderTests' |
|
81 "/ 'ZipArchiveTests' |
|
82 ) do:[:className | |
|
83 |fullName| |
|
84 |
|
85 fullName := ('RegressionTests::',className). |
|
86 Stdout showCR:('Loading ',className,'...'). |
|
87 Smalltalk fileInClass:fullName package:'exept:regression'. |
|
88 suite addTest:(Smalltalk classNamed:fullName) suite. |
|
89 ]. |
97 |
90 |
98 Stdout showCR:'Running suite...'. |
91 Stdout showCR:'Running suite...'. |
99 result := suite |
92 result := suite |
100 runBeforeEachDo:[:test | |
93 runBeforeEachDo:[:test | |
101 Stdout showCR:('- running ',test printString). |
94 Stdout showCR:('- running ',test printString). |
102 ]. |
95 ]. |
|
96 |
103 TestResultReporter |
97 TestResultReporter |
104 report:result |
98 report:result |
105 format:#xml_perfPublisher |
99 format:#xml_perfPublisher |
106 as:'testresult.xml'. |
100 as:'testresult.xml'. |
107 ! |
101 ! |