equal
deleted
inserted
replaced
514 ]. |
514 ]. |
515 |
515 |
516 etime := OperatingSystem getMillisecondTime. |
516 etime := OperatingSystem getMillisecondTime. |
517 timeouted ifTrue:[ |
517 timeouted ifTrue:[ |
518 error := TimeoutError new messageText: ('Timed out (effective %1ms, base %2ms, scale %3)' bindWith: timeout with: timeoutBase with:TimeoutScale) . |
518 error := TimeoutError new messageText: ('Timed out (effective %1ms, base %2ms, scale %3)' bindWith: timeout with: timeoutBase with:TimeoutScale) . |
|
519 outcome isNil ifTrue:[ outcome := self createOutcome ]. |
519 outcome result: TestResult stateError. |
520 outcome result: TestResult stateError. |
520 format |
521 format |
521 writeTestCase: aTestCase outcome: outcome |
522 writeTestCase: aTestCase outcome: outcome |
522 time: etime - stime |
523 time: etime - stime |
523 exception: error |
524 exception: error |