--- a/reports/Builder__TestReport.st	Wed Nov 21 16:39:31 2012 +0100
+++ b/reports/Builder__TestReport.st	Wed Nov 21 16:39:41 2012 +0100
@@ -191,6 +191,14 @@
     Transcript show:'OK'
 
     "Created: / 03-08-2011 / 15:19:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+addSkipped: testcase
+
+    format writeTestCase: testcase outcome: #skip time: time exception: nil.
+    Transcript show:'SKIPPED'
+
+    "Created: / 21-11-2012 / 15:35:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport::Result methodsFor:'running'!
@@ -223,7 +231,14 @@
 !
 
 runCase:aTestCase debugged: debugged fork:doFork timeout: tout
-    | nm sel |
+    | method nm sel |
+
+    "/Skip testcases marked as <ignore> or <skip> . Report them as skipped
+    method := aTestCase class lookupMethodFor: aTestCase selector.
+    method annotationsAt:#ignore orAt: #skip do:[:annotation|
+        self addSkipped: aTestCase.
+        ^self.
+    ].
 
     nm := aTestCase nameForHDTestReport.
     nm size > 20 ifTrue:[
@@ -258,6 +273,7 @@
     self error:'Unssuported platform'
 
     "Created: / 12-01-2012 / 17:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-11-2012 / 15:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport::Result methodsFor:'running-private'!