components/runtime/smalltalk/stack-spur/test/testrunner.st

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