| commit | author | age | ||
| fba821 | 1 | | file result testRunner | |
| DS | 2 | testRunner _ TestRunner new runAll. |
| 3 | result _ testRunner result. | |
| 4 | file _ StandardFileStream fileNamed:'results-64.vm'. | |
| 5 | file nextPutAll: 'SUnit Results'; lf. | |
| 6 | file nextPutAll: Smalltalk version; lf. | |
| 7 | file nextPutAll: Smalltalk osVersion; lf. | |
| 8 | file nextPutAll: Smalltalk vmVersion; lf. | |
| 9 | file nextPutAll: 'Failed Tests'; lf. | |
| 10 | testRunner failedList do: | |
| 11 | [ : each | each printOn:file. file lf ]. | |
| 12 | file nextPutAll: 'Errors'; lf. | |
| 13 | testRunner errorList do: | |
| 14 | [ : each | each printOn:file. file lf ]. | |
| 15 | file nextPutAll: 'Total Number of Passed Tests: '. | |
| 16 | result passedCount printOn:file. | |
| 17 | file lf. | |
| 18 | file nextPutAll: 'Total Number of Failures: '. | |
| 19 | result failureCount printOn:file. | |
| 20 | file lf. | |
| 21 | file nextPutAll: 'Total Number of Errors: '. | |
| 22 | result errorCount printOn:file. | |
| 23 | file lf. | |
| 24 | file close. | |
| 25 | Smalltalk quitPrimitive. | |
| 26 | ||
