equal
deleted
inserted
replaced
657 [ |
657 [ |
658 (testCase := self class selector: testSelector) runCase. |
658 (testCase := self class selector: testSelector) runCase. |
659 ] sunitOn:(TestResult failure) do: [:ex | |
659 ] sunitOn:(TestResult failure) do: [:ex | |
660 |con| |
660 |con| |
661 |
661 |
662 ex signal == TestSkipped ifTrue:[ |
662 ex creator == TestSkipped ifTrue:[ |
663 result := TestResult stateSkip. |
663 result := TestResult stateSkip. |
664 ] ifFalse:[ |
664 ] ifFalse:[ |
665 result := TestResult stateFail. |
665 result := TestResult stateFail. |
666 ]. |
666 ]. |
667 "I want a debugger to open here..." |
667 "I want a debugger to open here..." |
906 ! ! |
906 ! ! |
907 |
907 |
908 !TestCase class methodsFor:'documentation'! |
908 !TestCase class methodsFor:'documentation'! |
909 |
909 |
910 version |
910 version |
911 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.98 2013-04-17 18:42:26 cg Exp $' |
911 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $' |
912 ! |
912 ! |
913 |
913 |
914 version_CVS |
914 version_CVS |
915 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.98 2013-04-17 18:42:26 cg Exp $' |
915 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $' |
916 ! |
916 ! |
917 |
917 |
918 version_SVN |
918 version_SVN |
919 ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §' |
919 ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §' |
920 ! ! |
920 ! ! |