--- a/TestCase.st Thu Apr 14 14:59:05 2016 +0200
+++ b/TestCase.st Thu Apr 14 14:59:21 2016 +0200
@@ -505,14 +505,15 @@
shouldSkip
"Returns true, if this testcase should be skipped when a testsuite is run.
- This inly a hint, a test runner is not obliged to respect return value.
-
+ This only a hint, a test runner is not obliged to respect return value.
+ To skip a test, mark the method with a <skip> annotation
Currently, the only user is stx/goodies/builder/reports"
| method |
+
method := self class lookupMethodFor: testSelector.
method annotationsAt:#ignore orAt: #skip do:[:annotation|
- ^true
+ ^true
].
^false