equal
deleted
inserted
replaced
36 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'. |
36 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'. |
37 Smalltalk loadPackage:'stx:libcompat'. |
37 Smalltalk loadPackage:'stx:libcompat'. |
38 Smalltalk loadPackage:'stx:libjavascript'. |
38 Smalltalk loadPackage:'stx:libjavascript'. |
39 ! |
39 ! |
40 |
40 |
41 |suite result| |
41 |suite result debugging| |
42 |
42 |
43 Stdout showCR:'Creating suite...'. |
43 Stdout showCR:'Creating suite...'. |
44 suite := TestSuite named:'SelfTest'. |
44 suite := TestSuite named:'SelfTest'. |
45 |
45 |
46 Stdout showCR:'Loading regression tests...'. |
46 Stdout showCR:'Loading regression tests...'. |
64 suite addTest:(Smalltalk classNamed:fullName) suite. |
64 suite addTest:(Smalltalk classNamed:fullName) suite. |
65 ] |
65 ] |
66 ]. |
66 ]. |
67 |
67 |
68 Stdout showCR:'Running suite...'. |
68 Stdout showCR:'Running suite...'. |
|
69 debugging := (Smalltalk commandLineArgumentNamed:'--debug') notNil. |
69 result := suite |
70 result := suite |
70 run:TestResultStX new beforeEachDo:[:test | |
71 run:TestResultStX new beforeEachDo:[:test | |
71 Stdout showCR:('- running ',test printString). |
72 Stdout showCR:('- running ',test printString). |
72 ] |
73 ] |
73 afterEachDo:[:test| ] |
74 afterEachDo:[:test| |
74 debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil. |
75 Stdout showCR:('- done ',test printString). |
|
76 ] |
|
77 debug:debugging. |
75 |
78 |
76 Stdout showCR:'Generating report...'. |
79 Stdout showCR:'Generating report...'. |
77 TestResultReporter |
80 TestResultReporter |
78 report:result |
81 report:result |
79 format:#xml_jUnit |
82 format:#xml_jUnit |