--- a/TestAsserter.st	Wed Apr 03 15:25:45 2013 +0200
+++ b/TestAsserter.st	Wed Apr 03 15:26:46 2013 +0200
@@ -36,6 +36,11 @@
 logFailure: aString
 	self isLogging ifTrue:
 		[self failureLog cr; nextPutAll: aString; flush].
+!
+
+logSkipped: aString
+        self isLogging ifTrue:
+                [self failureLog cr; nextPutAll: aString; flush].
 ! !
 
 !TestAsserter methodsFor:'asserting'!
@@ -158,6 +163,12 @@
 	description: aString.
 
     "Modified: / 05-12-2009 / 18:18:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+skipIf:aCondition description:aString
+    aCondition value ifTrue:
+        [self logSkipped: 'Skipped - ',aString.
+        TestResult skipped sunitSignalWith: aString].
 ! !
 
 !TestAsserter methodsFor:'convenience'!
@@ -171,6 +182,10 @@
 
 logFailure: aString
 	self class logFailure: aString.
+!
+
+logSkipped: aString
+        self class logSkipped: aString.
 ! !
 
 !TestAsserter methodsFor:'private'!
@@ -201,13 +216,14 @@
 !TestAsserter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestAsserter.st,v 1.15 2011-08-20 18:04:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestAsserter.st,v 1.16 2013-04-03 13:26:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestAsserter.st,v 1.15 2011-08-20 18:04:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestAsserter.st,v 1.16 2013-04-03 13:26:46 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: TestAsserter.st 217 2011-05-05 19:33:11Z vranyj1 §'
 ! !
+