equal
deleted
inserted
replaced
40 suite := TestSuite named:'SelfTest'. |
40 suite := TestSuite named:'SelfTest'. |
41 |
41 |
42 Stdout showCR:'Loading regression tests...'. |
42 Stdout showCR:'Loading regression tests...'. |
43 #( |
43 #( |
44 'AssociationTests' |
44 'AssociationTests' |
45 "/ 'BinaryIOTests' |
45 'BinaryIOTests' |
46 'BinaryTreeTester' |
46 'BinaryTreeTester' |
47 "/ 'BlockTest' |
47 "/ 'BlockTest' |
48 'CharacterTests' |
48 'CharacterTests' |
49 'CollectionTests' |
49 'CollectionTests' |
50 "/ 'CompilerTest' |
50 "/ 'CompilerTest' |
95 result := suite |
95 result := suite |
96 runBeforeEachDo:[:test | |
96 runBeforeEachDo:[:test | |
97 Stdout showCR:('- running ',test printString). |
97 Stdout showCR:('- running ',test printString). |
98 ]. |
98 ]. |
99 |
99 |
|
100 Stdout showCR:'Generating report...'. |
100 TestResultReporter |
101 TestResultReporter |
101 report:result |
102 report:result |
102 format:#xml_jUnit |
103 format:#xml_jUnit |
103 as:'testresult.xml'. |
104 as:'testresult.xml'. |
|
105 |
|
106 Stdout showCR:'Summary:'. |
|
107 Stdout showCR:(' %1 tests;' bindWith:result runCount). |
|
108 Stdout show:(' %1 passed,' bindWith:result passedCount). |
|
109 Stdout show:(' %1 failed,' bindWith:result failureCount). |
|
110 Stdout showCR:(' %1 errors.' bindWith:result errorCount). |
104 ! |
111 ! |