From b0ce503ad45eddbf5f71155a20b6224a783f215a 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/ChangeLog     |    5 +++++
 packages/sunit/SUnitTests.st |   33 +++++++++++++++++++++++++++++++++
 2 files changed, 38 insertions(+), 0 deletions(-)

diff --git a/packages/sunit/ChangeLog b/packages/sunit/ChangeLog
index 6cad42d..bdcfb44 100644
--- a/packages/sunit/ChangeLog
+++ b/packages/sunit/ChangeLog
@@ -1,5 +1,10 @@
 2010-04-15  Holger Hans Peter Freyther  <address@hidden>
 
+	* packages/sunit/SUnitTest.st: Add testcase for expected failures
+	and unexpected success.
+
+2010-04-15  Holger Hans Peter Freyther  <address@hidden>
+
 	* packages/sunit/SUnit.st: Change #errors, #passed,
 	#runCount and #printOn to handle expected failures and
 	unexpected success.
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.4