16 Object infoPrinting:false. |
16 Object infoPrinting:false. |
17 ObjectMemory infoPrinting:false. |
17 ObjectMemory infoPrinting:false. |
18 Processor activeProcess exceptionHandlerSet |
18 Processor activeProcess exceptionHandlerSet |
19 on:(Class updateChangeFileQuerySignal) |
19 on:(Class updateChangeFileQuerySignal) |
20 do:[:ex | ex proceedWith:false ]. |
20 do:[:ex | ex proceedWith:false ]. |
21 |
|
22 Stream compile:'<< text self nextPutAll:text'. |
|
23 ! |
21 ! |
24 |
22 |
25 Stdout << 'Selftest Started '; cr. |
23 Stdout showCR:'Selftest Started'. |
26 ! |
24 ! |
27 |
25 |
28 Stdout <<'Loading sunit...'; cr. |
26 Stdout showCR:'Loading sunit...'. |
29 Smalltalk loadPackage:'stx:goodies/sunit'. |
27 Smalltalk loadPackage:'stx:goodies/sunit'. |
30 ! |
28 ! |
31 |
29 |
32 Stdout <<'Loading regression tests...'; cr. |
30 Stdout showCR:'Loading regression tests...'. |
33 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc'). |
31 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc'). |
34 ! |
32 ! |
35 |
33 |
36 |suite result| |
34 |suite result| |
37 |
35 |
38 suite := TestSuite named:'SelfTest'. |
36 suite := TestSuite named:'SelfTest'. |
39 suite addTest:(RegressionTests::IntegerTest suite). |
37 "/ suite addTest:(RegressionTests::QuickTest suite). |
40 suite addTest:(RegressionTests::CollectionTests suite). |
38 suite addTest:(RegressionTests::CollectionTests suite). |
41 suite addTest:(RegressionTests::CompilerTest suite). |
39 suite addTest:(RegressionTests::CompilerTest suite). |
42 suite addTest:(RegressionTests::DelayTest suite). |
40 suite addTest:(RegressionTests::DelayTest suite). |
43 suite addTest:(RegressionTests::DictionaryTest suite). |
41 suite addTest:(RegressionTests::DictionaryTest suite). |
44 suite addTest:(RegressionTests::EnumerationTests suite). |
42 suite addTest:(RegressionTests::EnumerationTests suite). |
45 suite addTest:(RegressionTests::ExceptionTest suite). |
43 suite addTest:(RegressionTests::ExceptionTest suite). |
|
44 suite addTest:(RegressionTests::FloatTest suite). |
|
45 suite addTest:(RegressionTests::FractionTest suite). |
|
46 suite addTest:(RegressionTests::FractionTest suite). |
|
47 suite addTest:(RegressionTests::IntegerTest suite). |
|
48 suite addTest:(RegressionTests::JavaScriptTests suite). |
|
49 suite addTest:(RegressionTests::MemoryTest suite). |
|
50 suite addTest:(RegressionTests::NumberTest suite). |
|
51 suite addTest:(RegressionTests::ParserTest suite). |
|
52 suite addTest:(RegressionTests::ScaledDecimalTest suite). |
|
53 suite addTest:(RegressionTests::SemaphoreTest suite). |
|
54 suite addTest:(RegressionTests::SharedQueueTest suite). |
|
55 suite addTest:(RegressionTests::SmallIntegerTest suite). |
|
56 suite addTest:(RegressionTests::SortTests suite). |
|
57 suite addTest:(RegressionTests::StringTests suite). |
|
58 suite addTest:(RegressionTests::TimeAndDateTest suite). |
|
59 suite addTest:(RegressionTests::TimeDurationTest suite). |
|
60 suite addTest:(RegressionTests::URLTest suite). |
|
61 suite addTest:(RegressionTests::XMLCoderTests suite). |
|
62 suite addTest:(RegressionTests::ZipArchiveTests suite). |
46 |
63 |
47 result := suite |
64 result := suite |
48 runBeforeEachDo:[:test | |
65 runBeforeEachDo:[:test | |
49 Stdout << ('running ',test printString). Stdout cr |
66 Stdout showCR:('running ',test printString). |
50 ]. |
67 ]. |
51 TestResultReporter |
68 TestResultReporter |
52 report:result |
69 report:result |
53 format:#xml_perfPublisher |
70 format:#xml_perfPublisher |
54 as:'testresult.xml'. |
71 as:'testresult.xml'. |