equal
deleted
inserted
replaced
124 "Modified: / 20-08-2011 / 15:10:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
124 "Modified: / 20-08-2011 / 15:10:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
125 ! |
125 ! |
126 |
126 |
127 isTestSelector:aSelector |
127 isTestSelector:aSelector |
128 |
128 |
129 ^aSelector notNil and:[aSelector startsWith:'test'] |
129 ^aSelector notNil |
|
130 and:[(aSelector startsWith:'test') |
|
131 "/ temporary hack - the callers of testCount should use countTests instead |
|
132 and:[aSelector ~= 'testCount']] |
130 |
133 |
131 "Created: / 06-08-2006 / 11:46:17 / cg" |
134 "Created: / 06-08-2006 / 11:46:17 / cg" |
132 "Modified: / 05-12-2009 / 18:50:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
135 "Modified: / 05-12-2009 / 18:50:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
133 "Modified: / 02-08-2011 / 17:46:51 / cg" |
136 "Modified: / 02-08-2011 / 17:46:51 / cg" |
134 ! |
137 ! |
556 ! |
559 ! |
557 |
560 |
558 testCount |
561 testCount |
559 "obsoleted, because all methods starting with 'test' |
562 "obsoleted, because all methods starting with 'test' |
560 are considered to be tests; so this is a bad name; |
563 are considered to be tests; so this is a bad name; |
561 please use countTests" |
564 please use countTests. |
|
565 See TestCase >> isTestSelector:" |
562 |
566 |
563 ^ self countTests |
567 ^ self countTests |
564 ! ! |
568 ! ! |
565 |
569 |
566 !TestCase methodsFor:'accessing & queries'! |
570 !TestCase methodsFor:'accessing & queries'! |