equal
deleted
inserted
replaced
52 ! |
52 ! |
53 |
53 |
54 examples |
54 examples |
55 " |
55 " |
56 Smalltalk loadPackage:'exept:regression' |
56 Smalltalk loadPackage:'exept:regression' |
|
57 |
|
58 [exBegin] |
|
59 |suite result testResult| |
|
60 |
|
61 suite := TestSuite named:'SelfTest'. |
|
62 #( |
|
63 'FloatTest' |
|
64 'IntegerTest' |
|
65 ) do:[:className | |
|
66 |fullName| |
|
67 |
|
68 fullName := ('RegressionTests::',className). |
|
69 suite addTest:(Smalltalk classNamed:fullName) suite. |
|
70 ]. |
|
71 testResult := suite run. |
|
72 TestResultReporter report:testResult format:#xml_jUnit on:Transcript. |
|
73 [exEnd] |
57 |
74 |
58 [exBegin] |
75 [exBegin] |
59 |testResult| |
76 |testResult| |
60 |
77 |
61 testResult := RegressionTests::IntegerTest suite run. |
78 testResult := RegressionTests::IntegerTest suite run. |
841 ! ! |
858 ! ! |
842 |
859 |
843 !TestResultReporter class methodsFor:'documentation'! |
860 !TestResultReporter class methodsFor:'documentation'! |
844 |
861 |
845 version |
862 version |
846 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.49 2012-11-06 21:14:18 cg Exp $' |
863 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.50 2012-11-06 22:01:34 cg Exp $' |
847 ! |
864 ! |
848 |
865 |
849 version_CVS |
866 version_CVS |
850 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.49 2012-11-06 21:14:18 cg Exp $' |
867 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.50 2012-11-06 22:01:34 cg Exp $' |
851 ! |
868 ! |
852 |
869 |
853 version_SVN |
870 version_SVN |
854 ^ '§Id§' |
871 ^ '§Id§' |
855 ! ! |
872 ! ! |