--- a/SimpleTestResourceTestCase.st	Wed Jul 09 21:35:30 2014 +0100
+++ b/SimpleTestResourceTestCase.st	Wed Jul 09 22:13:52 2014 +0100
@@ -90,21 +90,25 @@
 !
 
 testRunSuiteWithResource
-	| suite |
-	suite := TestSuite new.
-	suite addTest: (SimpleTestResourceTestCase selector: #error).
-	suite addTest: (SimpleTestResourceTestCase selector: #fail).
-	suite addTest: (self class selector: #dummy).
-	self clearOuterResourceStateDuring:
-		[self assert: suite run printString = '3 run, 1 passed, 1 failed, 1 error'
-			description: 'A suite of tests needing SimpleTestResource did not run as expected'].
+        | suite |
+        suite := TestSuite new.
+        suite addTest: (SimpleTestResourceTestCase selector: #error).
+        suite addTest: (SimpleTestResourceTestCase selector: #fail).
+        suite addTest: (self class selector: #dummy).
+        self clearOuterResourceStateDuring:
+                [self assert: suite run printString = '3 run, 1 passed, 0 skipped, 1 failed, 1 error'
+                        description: 'A suite of tests needing SimpleTestResource did not run as expected'].
+
+    "Modified: / 09-07-2014 / 21:36:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testRunTestWithResource
-	self clearOuterResourceStateDuring:
-		[self assert: (self class selector: #dummy) run printString
-					= '1 run, 1 passed, 0 failed, 0 errors'
-			description: 'A dummy test that needed a resource did not pass'].
+        self clearOuterResourceStateDuring:
+                [self assert: (self class selector: #dummy) run printString
+                                        = '1 run, 1 passed, 0 skipped, 0 failed, 0 errors'
+                        description: 'A dummy test that needed a resource did not pass'].
+
+    "Modified: / 09-07-2014 / 21:36:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SimpleTestResourceTestCase methodsFor:'utility'!