diff -r c3b09cef9f87 -r 2351db93aa5b RegressionTests__OperatingSystemTest.st --- 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). ]. "