equal
deleted
inserted
replaced
709 "/ which is bad for subclasses which need more arguments. |
709 "/ which is bad for subclasses which need more arguments. |
710 "/ why not use: |
710 "/ why not use: |
711 "/ self copy perform:aSymbol |
711 "/ self copy perform:aSymbol |
712 "/ or even |
712 "/ or even |
713 "/ self perform:aSymbol |
713 "/ self perform:aSymbol |
714 "/ (self class selector:testSelector) perform:aSymbol |
|
715 self perform:aSymbol |
714 self perform:aSymbol |
716 ] ensure:[ |
715 ] ensure:[ |
717 self resources do:[:each | |
716 self resources do:[:each | |
718 each reset |
717 each reset |
719 ] |
718 ] |
720 ] |
719 ] |
721 |
|
722 |
|
723 |
|
724 |
|
725 |
|
726 |
|
727 |
|
728 |
|
729 |
|
730 ! |
720 ! |
731 |
721 |
732 failureLog |
722 failureLog |
733 ^SUnitNameResolver class >> #defaultLogDevice |
723 ^SUnitNameResolver class >> #defaultLogDevice |
734 ! |
724 ! |
902 ! ! |
892 ! ! |
903 |
893 |
904 !TestCase class methodsFor:'documentation'! |
894 !TestCase class methodsFor:'documentation'! |
905 |
895 |
906 version |
896 version |
907 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.96 2013-04-03 13:56:57 cg Exp $' |
897 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.97 2013-04-03 13:58:07 cg Exp $' |
908 ! |
898 ! |
909 |
899 |
910 version_CVS |
900 version_CVS |
911 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.96 2013-04-03 13:56:57 cg Exp $' |
901 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.97 2013-04-03 13:58:07 cg Exp $' |
912 ! |
902 ! |
913 |
903 |
914 version_SVN |
904 version_SVN |
915 ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §' |
905 ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §' |
916 ! ! |
906 ! ! |