# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1372545880 -7200
# Node ID bd2bed33aba7100a331b914e3589b30f421fc3bf
# Parent  6eeac31d04322e5b0943e2ca9e4fe2cf71257e8e
Fixes to make it running on Smalltalk/X 6.2.2 released in July 2012

diff -r 6eeac31d0432 -r bd2bed33aba7 reports/Builder__ReportRunner.st
--- a/reports/Builder__ReportRunner.st	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/Builder__ReportRunner.st	Sun Jun 30 00:44:40 2013 +0200
@@ -279,9 +279,13 @@
 
 !ReportRunner class methodsFor:'startup-to be redefined'!
 
-main:argv
+main:argv0
     "Process command line arguments"
 
+    | argv |
+
+    argv := argv0 asOrderedCollection.
+    argv remove: '--abortOnSEGV' ifAbsent:[nil].
     parser := CmdLineParser new.
     CmdLineOptionError autoload.
 
diff -r 6eeac31d0432 -r bd2bed33aba7 reports/Builder__TestReport.st
--- a/reports/Builder__TestReport.st	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/Builder__TestReport.st	Sun Jun 30 00:44:40 2013 +0200
@@ -313,7 +313,7 @@
 runCase:aTestCase debugged: debugged fork:doFork timeout: tout
     | nm sel |
 
-    aTestCase shouldSkip ifTrue:[
+    (aTestCase perform: #shouldSkip ifNotUnderstood:[false]) ifTrue:[
         self addSkipped: aTestCase.
         ^self.
     ].
diff -r 6eeac31d0432 -r bd2bed33aba7 reports/report-runner.sh
--- a/reports/report-runner.sh	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/report-runner.sh	Sun Jun 30 00:44:40 2013 +0200
@@ -1,3 +1,3 @@
 #!/bin/sh
 DIR=`dirname $0`
-exec "$DIR/../../../projects/smalltalk/stx" -Mold:64000 -I --abortOnSEGV -f "$DIR/report-runner.st" "$@"
+exec "$DIR/../../../projects/smalltalk/stx" -Mold:64000 -I --abortOnSEGV --execute "$DIR/report-runner.st" "$@"
diff -r 6eeac31d0432 -r bd2bed33aba7 reports/report-runner.st
--- a/reports/report-runner.st	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/report-runner.st	Sun Jun 30 00:44:40 2013 +0200
@@ -28,10 +28,14 @@
 ].
 
 (Smalltalk at:#'Builder::ReportRunner') isNil ifTrue:[
+    (Smalltalk loadPackage: 'stx:goodies/sunit') ifFalse:[
+        Stderr nextPutAll:'ERROR: cannot load stx:goodies/sunit.'.
+        Smalltalk exit: 17
+    ].
     (Smalltalk loadPackage: 'stx:goodies/builder/reports') ifFalse:[
         Stderr nextPutAll:'ERROR: cannot load stx:goodies/builder/reports.'.
         Smalltalk exit: 17
     ].
 ].
 
-Smalltalk addStartBlock:[(Smalltalk at:#'Builder::ReportRunner') start].
+(Smalltalk at:#'Builder::ReportRunner') start.