equal
deleted
inserted
replaced
100 self error sunitSignalWith: aString |
100 self error sunitSignalWith: aString |
101 ! |
101 ! |
102 |
102 |
103 signalFailureWith: aString |
103 signalFailureWith: aString |
104 self failure sunitSignalWith: aString |
104 self failure sunitSignalWith: aString |
|
105 ! |
|
106 |
|
107 skipped |
|
108 ^ TestSkipped |
105 ! ! |
109 ! ! |
106 |
110 |
107 !TestResult class methodsFor:'utilities'! |
111 !TestResult class methodsFor:'utilities'! |
108 |
112 |
109 sourceFilenameOfClass:aClass |
113 sourceFilenameOfClass:aClass |
493 self rememberEndTime. |
497 self rememberEndTime. |
494 self rememberException: ex. |
498 self rememberException: ex. |
495 (AbortSignal accepts: ex signal) ifTrue:[ex reject]. |
499 (AbortSignal accepts: ex signal) ifTrue:[ex reject]. |
496 (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject]. |
500 (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject]. |
497 ex sunitAnnounce:aTestCase toResult:self. |
501 ex sunitAnnounce:aTestCase toResult:self. |
498 self halt. |
502 self halt. |
499 ]. |
503 ]. |
500 ] sunitOn: self exceptions do:[:ex| |
504 ] sunitOn: self exceptions do:[:ex| |
501 (AbortSignal accepts: ex signal) ifTrue:[ex reject]. |
505 (AbortSignal accepts: ex signal) ifTrue:[ex reject]. |
502 (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject]. |
506 (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject]. |
503 "/ the stuff below is rubbish - it clears out the info as collected above!! |
507 "/ the stuff below is rubbish - it clears out the info as collected above!! |
550 ! ! |
554 ! ! |
551 |
555 |
552 !TestResult class methodsFor:'documentation'! |
556 !TestResult class methodsFor:'documentation'! |
553 |
557 |
554 version |
558 version |
555 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.51 2013-01-14 13:29:36 vrany Exp $' |
559 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.52 2013-04-03 13:25:26 cg Exp $' |
556 ! |
560 ! |
557 |
561 |
558 version_CVS |
562 version_CVS |
559 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.51 2013-01-14 13:29:36 vrany Exp $' |
563 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.52 2013-04-03 13:25:26 cg Exp $' |
560 ! |
564 ! |
561 |
565 |
562 version_SVN |
566 version_SVN |
563 ^ '§Id: TestResult.st 205 2010-09-11 15:23:01Z vranyj1 §' |
567 ^ '§Id: TestResult.st 205 2010-09-11 15:23:01Z vranyj1 §' |
564 ! ! |
568 ! ! |
|
569 |