RegressionTests__OperatingSystemTest.st
branchjv
changeset 1500 d406a10b2965
parent 1499 26a16a04219b
parent 1447 2351db93aa5b
--- a/RegressionTests__OperatingSystemTest.st	Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__OperatingSystemTest.st	Thu Jun 30 09:02:08 2016 +0100
@@ -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).
     ].
 
     "