RegressionTests__SnapshotRestartTests.st
changeset 1994 37fc012cbbc7
parent 1447 2351db93aa5b
child 2155 ef4fd7c21ca6
equal deleted inserted replaced
1993:8694cce6c0fa 1994:37fc012cbbc7
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "{ Package: 'stx:goodies/regression' }"
     3 "{ Package: 'stx:goodies/regression' }"
     2 
     4 
     3 "{ NameSpace: RegressionTests }"
     5 "{ NameSpace: RegressionTests }"
     4 
     6 
     5 TestCase subclass:#SnapshotRestartTests
     7 TestCase subclass:#SnapshotRestartTests
    52 !
    54 !
    53 
    55 
    54 make: target
    56 make: target
    55     | cmd |
    57     | cmd |
    56 
    58 
    57     cmd := OperatingSystem isMSWINDOWSlike
    59     cmd := ParserFlags makeCommand.
    58 	    ifTrue:['bmake.bat ', target]
    60     OperatingSystem isUNIXlike ifTrue:[
    59 	    ifFalse:['make -f Makefile.init ', target].
    61         cmd := cmd, ' -f Makefile.init ', target.
       
    62     ] ifFalse:[
       
    63         cmd := cmd, ' ', target.
       
    64     ].
       
    65 
    60     self
    66     self
    61 	assert: (OperatingSystem executeCommand: cmd inDirectory: pkgdir)
    67         assert: (OperatingSystem executeCommand: cmd inDirectory: pkgdir)
    62 	description: 'Failed to make target ''', target, ''' in test package'.
    68         description: 'Failed to make target ''', target, ''' in test package'.
    63 
    69 
    64     "Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    70     "Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    71     "Modified: / 30-07-2018 / 09:31:34 / Stefan Vogel"
    65 ! !
    72 ! !
    66 
    73 
    67 !SnapshotRestartTests methodsFor:'running'!
    74 !SnapshotRestartTests methodsFor:'running'!
    68 
    75 
    69 runTestsOnFreshImage
    76 runTestsOnFreshImage