equal
deleted
inserted
replaced
428 shouldFork |
428 shouldFork |
429 |
429 |
430 ^self class shouldFork |
430 ^self class shouldFork |
431 |
431 |
432 "Created: / 13-06-2011 / 16:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
432 "Created: / 13-06-2011 / 16:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
433 ! |
|
434 |
|
435 shouldSkip |
|
436 "Returns true, if this testcase should be skipped when a testsuite is run. |
|
437 This inly a hint, a test runner is not obliged to respect return value. |
|
438 |
|
439 Currently, the only user is stx/goodies/builder/reports" |
|
440 |
|
441 | method | |
|
442 method := self class lookupMethodFor: testSelector. |
|
443 method annotationsAt:#ignore orAt: #skip do:[:annotation| |
|
444 ^true |
|
445 ]. |
|
446 ^false |
|
447 |
|
448 "Created: / 28-11-2012 / 18:03:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
433 ! |
449 ! |
434 |
450 |
435 testCount |
451 testCount |
436 |
452 |
437 ^1 |
453 ^1 |
864 ! ! |
880 ! ! |
865 |
881 |
866 !TestCase class methodsFor:'documentation'! |
882 !TestCase class methodsFor:'documentation'! |
867 |
883 |
868 version |
884 version |
869 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.90 2012-11-08 00:04:28 cg Exp $' |
885 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.91 2012-11-28 18:08:59 vrany Exp $' |
870 ! |
886 ! |
871 |
887 |
872 version_CVS |
888 version_CVS |
873 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.90 2012-11-08 00:04:28 cg Exp $' |
889 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.91 2012-11-28 18:08:59 vrany Exp $' |
874 ! |
890 ! |
875 |
891 |
876 version_SVN |
892 version_SVN |
877 ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §' |
893 ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §' |
878 ! ! |
894 ! ! |