From 42f1a5f0a00d66d3809414ea4f8aa23986dcebe3 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <address@hidden>
Date: Thu, 15 Apr 2010 14:48:04 +0200
Subject: [PATCH 4/4] SUnit: Add a test case for expectedDefects and unexpectedPasses

---
 packages/sunit/SUnit.st      |    2 +-
 packages/sunit/SUnitTests.st |   33 +++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+), 1 deletions(-)

diff --git a/packages/sunit/SUnit.st b/packages/sunit/SUnit.st
index 49bd9d6..22080b1 100644
--- a/packages/sunit/SUnit.st
+++ b/packages/sunit/SUnit.st
@@ -885,7 +885,7 @@ When you are writing a test case method, send #assert: aBoolean when you want to
 
     defaultLogPolicyClass [
 	<category: 'Accessing'>
-	^TestCondensedLog
+	^TestVerboseLog
     ]
 
     resources [
diff --git a/packages/sunit/SUnitTests.st b/packages/sunit/SUnitTests.st
index 289001d..d1160a1 100644
--- a/packages/sunit/SUnitTests.st
+++ b/packages/sunit/SUnitTests.st
@@ -249,6 +249,24 @@ if the tests are hard to write, something is probably wrong with the design".'>
 	    errors: 1
     ]
 
+    testExpectedFailures [
+        <category: 'Testing'>
+        | result suite expected failed error |
+	suite := TestSuite new.
+	suite addTest: (expected := SUnitClientTest selector: #generateExpectedFailure).
+	suite addTest: (failed := SUnitClientTest selector: #generateUnexpectedSuccess).
+	result := suite run.
+	self assert: (result expectedDefects includes: expected).
+	self assert: (result unexpectedPasses includes: failed).
+
+	self
+	    assertForTestResult: result
+	    runCount: 2
+	    passed: 1
+	    failed: 1
+	    errors: 0
+    ]
+
     assertForTestResult: aResult runCount: aRunCount passed: aPassedCount failed: aFailureCount errors: anErrorCount [
 	<category: 'Private'>
 	self
@@ -430,6 +448,21 @@ will run.'>
 	<category: 'Running'>
 	hasSetup := true
     ]
+
+    expectedFailures [
+	<category: 'Private'>
+        ^#(#generateExpectedFailure #generateUnexpectedSuccess)
+    ]
+
+    generateExpectedFailure [
+	<category: 'Private'>
+        self assert: false
+    ]
+
+    generateUnexpectedSuccess [
+	<category: 'Private'>
+        self assert: true
+    ]
 ]
 
 
-- 
1.7.0