"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#OperatingSystemTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-RuntimeSystem'

!

!OperatingSystemTest methodsFor:'constants'!

targetFile

    |baseName|

    baseName := 'lsOut'.

    OperatingSystem isMSDOSlike ifTrue:[

        ^ Filename homeDirectory "ensure write permission" / baseName  

    ].

    OperatingSystem isUNIXlike ifTrue:[

        ^ '/tmp' asFilename / baseName  

    ].

    self notYetImplemented

! !

!OperatingSystemTest methodsFor:'helpers'!

helperActorStreamWithCommand:aCommand

    |targetFile expected outStr errStr exitStatus|

    OperatingSystem isMSDOSlike ifFalse:[

        ^ self

    ].

    targetFile := self targetFile.

    expected := targetFile contentsOfEntireFile.

    outStr := ActorStream new.

    outStr nextPutLineBlock:[:line | Transcript normal; showCR:line ].

    errStr := ActorStream new.

    outStr nextPutLineBlock:[:line | Transcript bold; showCR:line ].

    OperatingSystem

        executeCommand:aCommand

        inputFrom:nil

        outputTo:outStr

        errorTo:errStr

        inDirectory:nil

        lineWise:true

        onError:[:status | exitStatus := status].

!

helperCommandOutput1WithCommand:aCommand

    |targetFile expected outStr errStr exitStatus|

    targetFile := self targetFile.

    expected := targetFile contentsOfEntireFile.

    1 to:50 do:[:counter |

"/ Transcript show:counter; showCR:':'.

        outStr := '' writeStream.

        errStr := '' writeStream.

        OperatingSystem

            executeCommand:aCommand

            inputFrom:nil

            outputTo:outStr

            errorTo:errStr

            onError:[:status | exitStatus := status].

        self assert:(outStr contents = expected).

        self assert:(errStr contents isEmpty).

        self assert:(exitStatus isNil).

    ].

!

helperCommandOutput2WithCommand:aCommand

    |outStr errStr exitStatus|

    1 to:50 do:[:counter |

"/ Transcript show:counter; showCR:':'.

        outStr := '' writeStream.

        errStr := '' writeStream.

        OperatingSystem

            executeCommand:aCommand

            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).

    ].

! !

!OperatingSystemTest methodsFor:'initialize / release'!

tearDown

    self targetFile delete.

! !

!OperatingSystemTest methodsFor:'tests'!

test01_environmentVariables

    |cr content batchFile output 

     expected50 expected101 expected203 expected407 expected815 expected1631 expected3263

     expected6527 pathOfSTXExecutable|

    pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable.

    (pathOfSTXExecutable endsWith:'stx.com') ifFalse:[

        "we are started by /stx/goodies/builder/quickSelfTest/quickSelfTest.com

         but do need stx.com"

        pathOfSTXExecutable := '../../../projects/smalltalk/stx.com'  

    ].

    self 

        skipIf:(OperatingSystem isMSWINDOWSlike not)

        description:'This test is only for the Windows platform'.

        cr := Character cr asString.

    "/ creates a batch file and starts another stx inside it, which retrieves a previously

    "/ set environment variable...

    "/ reading env-var

        content := 

                '@set FOO=hello', cr,

                ('@"%1" --eval "Stdout nextPutAll:(OperatingSystem getEnvironment:''FOO'') "'

                        bindWith:pathOfSTXExecutable).

    batchFile := 'test.bat' asFilename.

    batchFile contents:content.

    output := 

        String streamContents:[:out |

            OperatingSystem executeCommand:'test.bat' outputTo:out.

        ].

    self assert:(output = 'hello').

    "/ reading a longer env-var (50 chars)

        content := 

                '@set FOO=12345678901234567890123456789012345678901234567890', cr,

                ('@"%1" --eval "Stdout nextPutAll:(OperatingSystem getEnvironment:''FOO'') "'

                        bindWith:pathOfSTXExecutable).

    batchFile := 'test.bat' asFilename.

    batchFile contents:content.

    output := 

        String streamContents:[:out |

            OperatingSystem executeCommand:'test.bat' outputTo:out.

        ].

    self assert:(output = '12345678901234567890123456789012345678901234567890').

    "/ reading a longer env-var (1631 chars)

        content := 

                '@set V50=12345678901234567890123456789012345678901234567890', cr,

                '@set V101=%V50%;%V50%', cr,

                '@set V203=%V101%;%V101%', cr,

                '@set V407=%V203%;%V203%', cr,

                '@set V815=%V407%;%V407%', cr,

                '@set V1631=%V815%;%V815%', cr,

                ('@"%1" --eval "Stdout nextPutAll:(OperatingSystem getEnvironment:''V1631'') "'

                        bindWith:pathOfSTXExecutable).

    batchFile := 'test.bat' asFilename.

    batchFile contents:content.

    output := 

        String streamContents:[:out |

            OperatingSystem executeCommand:'test.bat' outputTo:out.

        ].

    expected50 := '12345678901234567890123456789012345678901234567890'.

    expected101 := expected50,';',expected50.

    expected203 := expected101,';',expected101.

    expected407 := expected203,';',expected203.

    expected815 := expected407,';',expected407.

    expected1631 := expected815,';',expected815.

    self assert:(output = expected1631).

    "/ reading a longer env-var (3263 chars)

        content := 

                '@set V50=12345678901234567890123456789012345678901234567890', cr,

                '@set V101=%V50%;%V50%', cr,

                '@set V203=%V101%;%V101%', cr,

                '@set V407=%V203%;%V203%', cr,

                '@set V815=%V407%;%V407%', cr,

                '@set V1631=%V815%;%V815%', cr,

                '@set V3263=%V1631%;%V1631%', cr,

                ('@"%1" --eval "Stdout nextPutAll:(OperatingSystem getEnvironment:''V3263'') "'

                        bindWith:pathOfSTXExecutable).

    batchFile := 'test.bat' asFilename.

    batchFile contents:content.

    output := 

        String streamContents:[:out |

            OperatingSystem executeCommand:'test.bat' outputTo:out.

        ].

    expected50 := '12345678901234567890123456789012345678901234567890'.

    expected101 := expected50,';',expected50.

    expected203 := expected101,';',expected101.

    expected407 := expected203,';',expected203.

    expected815 := expected407,';',expected407.

    expected1631 := expected815,';',expected815.

    expected3263 := expected1631,';',expected1631.

    self assert:(output = expected3263).

    "/ reading a very long env-var (6527 chars)

        content := 

                '@set V50=12345678901234567890123456789012345678901234567890', cr,

                '@set V101=%V50%;%V50%', cr,

                '@set V203=%V101%;%V101%', cr,

                '@set V407=%V203%;%V203%', cr,

                '@set V815=%V407%;%V407%', cr,

                '@set V1631=%V815%;%V815%', cr,

                '@set V3263=%V1631%;%V1631%', cr,

                '@set V6527=%V3263%;%V3263%', cr,

                ('@"%1" --eval "Stdout nextPutAll:(OperatingSystem getEnvironment:''V6527'') "'

                        bindWith:pathOfSTXExecutable).

    batchFile := 'test.bat' asFilename.

    batchFile contents:content.

    output := 

        String streamContents:[:out |

            OperatingSystem executeCommand:'test.bat' outputTo:out.

        ].

    expected50 := '12345678901234567890123456789012345678901234567890'.

    expected101 := expected50,';',expected50.

    expected203 := expected101,';',expected101.

    expected407 := expected203,';',expected203.

    expected815 := expected407,';',expected407.

    expected1631 := expected815,';',expected815.

    expected3263 := expected1631,';',expected1631.

    expected6527 := expected3263,';',expected3263.

    self assert:(output = expected6527).

    "

     self new test01_environmentVariables

    "

!

testActorStream

    OperatingSystem isMSDOSlike ifTrue:[

        self helperActorStreamWithCommand:'dir'. 

        ^ self

    ].

    OperatingSystem isUNIXlike ifTrue:[

        self helperActorStreamWithCommand:'ls'.

        ^ self             

    ].

    self notYetImplemented

    "

        self new testActorStream

    "

!

testCommandOutput1

    OperatingSystem isMSDOSlike ifTrue:[

        self helperCommandOutput1WithCommand:'dir /b'. "/ /b print just filenames, because the filesize differs...

        ^ self

    ].

    OperatingSystem isUNIXlike ifTrue:[

        self helperCommandOutput1WithCommand:'ls'.

        ^ self             

    ].

    self notYetImplemented

    "

        self new testCommandOutput1

    "

!

testCommandOutput2

    OperatingSystem isMSDOSlike ifTrue:[

        self helperCommandOutput2WithCommand:'dir /fooBar'. 

        ^ self

    ].

    OperatingSystem isUNIXlike ifTrue:[

        self helperCommandOutput2WithCommand:'ls /fooBar'.

        ^ self             

    ].

    self notYetImplemented

    "

        self new testCommandOutput2

    "

!

testInvalidCommand

    |outStr errStr exitStatus|

    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).

        "/ couldNotExecute could not be detected in Windows, since cmd.exe does not return the status

        self assert:(OperatingSystem isMSWINDOWSlike or:[exitStatus couldNotExecute]).

        self assert:(outStr contents isEmpty).

        self assert:(errStr contents notEmpty).

    ].

    "

     self new testInvalidCommand

    "

! !

!OperatingSystemTest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !