equal
deleted
inserted
replaced
233 ! |
233 ! |
234 |
234 |
235 suiteClass |
235 suiteClass |
236 ^TestSuite |
236 ^TestSuite |
237 |
237 |
|
238 ! ! |
|
239 |
|
240 !TestCase class methodsFor:'misc ui support'! |
|
241 |
|
242 iconInBrowserSymbol |
|
243 <resource: #programImage> |
|
244 |
|
245 self theNonMetaclass isAbstract ifTrue:[^ super iconInBrowserSymbol]. |
|
246 ^ #testCaseClassIcon |
238 ! ! |
247 ! ! |
239 |
248 |
240 !TestCase class methodsFor:'quick testing'! |
249 !TestCase class methodsFor:'quick testing'! |
241 |
250 |
242 assert: aBoolean |
251 assert: aBoolean |
766 ! ! |
775 ! ! |
767 |
776 |
768 !TestCase class methodsFor:'documentation'! |
777 !TestCase class methodsFor:'documentation'! |
769 |
778 |
770 version |
779 version |
771 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.50 2009-09-18 09:09:23 fm Exp $' |
780 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.51 2009-10-01 13:43:58 cg Exp $' |
|
781 ! |
|
782 |
|
783 version_CVS |
|
784 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.51 2009-10-01 13:43:58 cg Exp $' |
772 ! ! |
785 ! ! |
773 |
786 |
774 TestCase initialize! |
787 TestCase initialize! |