RegressionTests__OperatingSystemTest.st
changeset 1447 2351db93aa5b
parent 1351 f2b2fb3966d2
child 1500 d406a10b2965
child 1633 10a8f2029f10
--- a/RegressionTests__OperatingSystemTest.st	Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__OperatingSystemTest.st	Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
 
@@ -30,13 +30,13 @@
     outStr nextPutLineBlock:[:line | Transcript bold; showCR:line ].
 
     OperatingSystem
-        executeCommand:'ls'
-        inputFrom:nil
-        outputTo:outStr
-        errorTo:errStr
-        inDirectory:nil
-        lineWise:true
-        onError:[:status | exitStatus := status].
+	executeCommand:'ls'
+	inputFrom:nil
+	outputTo:outStr
+	errorTo:errStr
+	inDirectory:nil
+	lineWise:true
+	onError:[:status | exitStatus := status].
 
     "
      self new testActorStream
@@ -51,17 +51,17 @@
 
     1 to:50 do:[:counter |
 "/ Transcript show:counter; showCR:':'.
-        outStr := '' writeStream.
-        errStr := '' writeStream.
-        OperatingSystem
-            executeCommand:'ls'
-            inputFrom:nil
-            outputTo:outStr
-            errorTo:errStr
-            onError:[:status | exitStatus := status].
-        self assert:(outStr contents = expected).
-        self assert:(errStr contents isEmpty).
-        self assert:(exitStatus isNil).
+	outStr := '' writeStream.
+	errStr := '' writeStream.
+	OperatingSystem
+	    executeCommand:'ls'
+	    inputFrom:nil
+	    outputTo:outStr
+	    errorTo:errStr
+	    onError:[:status | exitStatus := status].
+	self assert:(outStr contents = expected).
+	self assert:(errStr contents isEmpty).
+	self assert:(exitStatus isNil).
     ].
 
     "
@@ -74,19 +74,19 @@
 
     1 to:50 do:[:counter |
 "/ Transcript show:counter; showCR:':'.
-        outStr := '' writeStream.
-        errStr := '' writeStream.
-        OperatingSystem
-            executeCommand:'ls /fooBar'
-            inputFrom:nil
-            outputTo:outStr
-            errorTo:errStr
-            onError:[:status | exitStatus := status].
-        self assert:(outStr contents isEmpty).
-        self assert:(errStr contents notEmpty).
-        self assert:(exitStatus success not).
-        self assert:(exitStatus stillAlive not).
-        self assert:(exitStatus couldNotExecute not).
+	outStr := '' writeStream.
+	errStr := '' writeStream.
+	OperatingSystem
+	    executeCommand:'ls /fooBar'
+	    inputFrom:nil
+	    outputTo:outStr
+	    errorTo:errStr
+	    onError:[:status | exitStatus := status].
+	self assert:(outStr contents isEmpty).
+	self assert:(errStr contents notEmpty).
+	self assert:(exitStatus success not).
+	self assert:(exitStatus stillAlive not).
+	self assert:(exitStatus couldNotExecute not).
     ].
 
     "
@@ -99,19 +99,19 @@
 
     1 to:50 do:[:counter |
 "/ Transcript show:counter; showCR:':'.
-        outStr := '' writeStream.
-        errStr := '' writeStream.
-        OperatingSystem
-            executeCommand:'blabla /fooBar'
-            inputFrom:nil
-            outputTo:outStr
-            errorTo:errStr
-            onError:[:status | exitStatus := status].
-        self assert:(exitStatus success not).
-        self assert:(exitStatus stillAlive not).
-        self assert:(exitStatus couldNotExecute).
-        self assert:(outStr contents isEmpty).
-        self assert:(errStr contents notEmpty).
+	outStr := '' writeStream.
+	errStr := '' writeStream.
+	OperatingSystem
+	    executeCommand:'blabla /fooBar'
+	    inputFrom:nil
+	    outputTo:outStr
+	    errorTo:errStr
+	    onError:[:status | exitStatus := status].
+	self assert:(exitStatus success not).
+	self assert:(exitStatus stillAlive not).
+	self assert:(exitStatus couldNotExecute).
+	self assert:(outStr contents isEmpty).
+	self assert:(errStr contents notEmpty).
     ].
 
     "