reports/Builder__ReportRunner.st
branchjv
changeset 570 9c47ccc9e9b5
parent 243 625f6907682a
--- a/reports/Builder__ReportRunner.st	Mon Jun 28 13:41:53 2021 +0100
+++ b/reports/Builder__ReportRunner.st	Fri Dec 03 13:24:20 2021 +0000
@@ -1,3 +1,6 @@
+"
+COPYRIGHT (c) 2021 LabWare
+"
 "{ Package: 'stx:goodies/builder/reports' }"
 
 "{ NameSpace: Builder }"
@@ -19,6 +22,14 @@
 "
 !
 
+!ReportRunner class methodsFor:'documentation'!
+
+copyright
+"
+COPYRIGHT (c) 2021 LabWare
+
+"
+! !
 
 !ReportRunner class methodsFor:'initialization'!
 
@@ -392,7 +403,7 @@
 main:argv0
     "Process command line arguments"
 
-    | argv |
+    | argv status |
 
     argv := argv0 asOrderedCollection.
     argv isEmpty ifTrue:[ 
@@ -409,7 +420,7 @@
         debugging ifFalse:[
             ex suspendedContext fullPrintAllOn: Stderr.
             Stderr nextPutLine:'Exiting'.
-            Smalltalk exit:1.
+            Smalltalk exit:2.
         ] ifTrue:[
             ex pass
         ]
@@ -423,12 +434,12 @@
         setup notNil ifTrue:[Compiler evaluate: setup].
         [
             report ident: ident.
-            report run.
+            status := report run.
         ] ensure:[
             teardown notNil ifTrue:[Compiler evaluate: teardown].
         ].
         debugging ifFalse:[
-            Smalltalk exit:0.
+            Smalltalk exit: status.
         ].
     ] on: Error do:[:ex|
         Stderr nextPutAll:'Error when running tests: '.
@@ -437,13 +448,14 @@
 
 
         debugging ifFalse:[
-            Smalltalk exit:1.
+            Smalltalk exit:3.
         ] ifTrue:[
             ex pass
         ]
     ]
 
     "Modified: / 27-05-2014 / 17:05:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-12-2021 / 13:14:00 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !ReportRunner class methodsFor:'documentation'!