equal
deleted
inserted
replaced
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 Stdout showCR:'Loading regression tests...'. |
35 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc'). |
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 ) includes:each name) ifTrue:[ |
|
41 Stdout showCR:('Skipped ',each name,'...'). |
|
42 ] ifFalse:[ |
|
43 Stdout showCR:('Loading ',each name,'...'). |
|
44 each autoload |
|
45 ]. |
|
46 ]. |
36 ! |
47 ! |
37 |
48 |
38 |suite result| |
49 |suite result| |
39 |
50 |
|
51 Stdout showCR:'Creating suite...'. |
40 suite := TestSuite named:'SelfTest'. |
52 suite := TestSuite named:'SelfTest'. |
41 "/ suite addTest:(RegressionTests::QuickTest suite). |
53 "/ suite addTest:(RegressionTests::QuickTest suite). |
42 suite addTest:(RegressionTests::AssociationTests suite). |
54 suite addTest:(RegressionTests::AssociationTests suite). |
43 suite addTest:(RegressionTests::BinaryIOTests suite). |
55 suite addTest:(RegressionTests::BinaryIOTests suite). |
44 suite addTest:(RegressionTests::BinaryTreeTester suite). |
56 suite addTest:(RegressionTests::BinaryTreeTester suite). |
51 suite addTest:(RegressionTests::DeepCopyTests suite). |
63 suite addTest:(RegressionTests::DeepCopyTests suite). |
52 suite addTest:(RegressionTests::DelayTest suite). |
64 suite addTest:(RegressionTests::DelayTest suite). |
53 suite addTest:(RegressionTests::DictionaryTest suite). |
65 suite addTest:(RegressionTests::DictionaryTest suite). |
54 suite addTest:(RegressionTests::EnumerationTests suite). |
66 suite addTest:(RegressionTests::EnumerationTests suite). |
55 suite addTest:(RegressionTests::ExceptionTest suite). |
67 suite addTest:(RegressionTests::ExceptionTest suite). |
56 suite addTest:(RegressionTests::ExternalInterfaceTests suite). |
68 "/ suite addTest:(RegressionTests::ExternalInterfaceTests suite). |
57 suite addTest:(RegressionTests::FileOpenTest suite). |
69 suite addTest:(RegressionTests::FileOpenTest suite). |
58 suite addTest:(RegressionTests::FileStreamTest suite). |
70 suite addTest:(RegressionTests::FileStreamTest suite). |
59 suite addTest:(RegressionTests::FloatTest suite). |
71 suite addTest:(RegressionTests::FloatTest suite). |
60 suite addTest:(RegressionTests::FractionTest suite). |
72 suite addTest:(RegressionTests::FractionTest suite). |
61 suite addTest:(RegressionTests::FractionTest suite). |
73 suite addTest:(RegressionTests::FractionTest suite). |
79 suite addTest:(RegressionTests::TimeDurationTest suite). |
91 suite addTest:(RegressionTests::TimeDurationTest suite). |
80 suite addTest:(RegressionTests::URLTest suite). |
92 suite addTest:(RegressionTests::URLTest suite). |
81 suite addTest:(RegressionTests::XMLCoderTests suite). |
93 suite addTest:(RegressionTests::XMLCoderTests suite). |
82 suite addTest:(RegressionTests::ZipArchiveTests suite). |
94 suite addTest:(RegressionTests::ZipArchiveTests suite). |
83 |
95 |
|
96 Stdout showCR:'Running suite...'. |
84 result := suite |
97 result := suite |
85 runBeforeEachDo:[:test | |
98 runBeforeEachDo:[:test | |
86 Stdout showCR:('running ',test printString). |
99 Stdout showCR:('- running ',test printString). |
87 ]. |
100 ]. |
88 TestResultReporter |
101 TestResultReporter |
89 report:result |
102 report:result |
90 format:#xml_perfPublisher |
103 format:#xml_perfPublisher |
91 as:'testresult.xml'. |
104 as:'testresult.xml'. |