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

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

     4 

     2 

     5 "{ NameSpace: RegressionTests }"

     3 "{ NameSpace: RegressionTests }"

     6 

     4 

     7 TestCase subclass:#OperatingSystemTest

     5 TestCase subclass:#OperatingSystemTest

   101         self assert:(exitStatus stillAlive not).

    99         self assert:(exitStatus stillAlive not).

   102         self assert:(exitStatus couldNotExecute not).

   100         self assert:(exitStatus couldNotExecute not).

   103     ].

   101     ].

   104 ! !

   102 ! !

   105 

   103 

   107 

   105 

   108 tearDown

   106 tearDown

   109     self targetFile delete.

   107     self targetFile delete.

   110 ! !

   108 ! !

   111 

   109