From ebd75620fcaa7a8a91c39c20e367174a4d492894 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <address@hidden>
Date: Thu, 15 Apr 2010 13:27:24 +0200
Subject: [PATCH 2/4] SUnit: Add new selectors from Pharo for handling (un)expected failures/success

Add new selectors to handle expected failures and unexpected
success on test cases. The code is not yet used.

This is coming from the Pharo1.0-10508-rc2dev10.01.2 image.
---
 packages/sunit/SUnit.st |   63 +++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 63 insertions(+), 0 deletions(-)

diff --git a/packages/sunit/SUnit.st b/packages/sunit/SUnit.st
index 004627e..f187c8d 100644
--- a/packages/sunit/SUnit.st
+++ b/packages/sunit/SUnit.st
@@ -303,6 +303,57 @@ This is a Collecting Parameter for the running of a bunch of tests. TestResult i
 	^errors
     ]
 
+    expectedDefectCount [
+	<category: 'Accessing'>
+	^self expectedDefects size
+    ]
+
+    expectedDefects [
+	<category: 'Accessing'>
+	^errors , failures asOrderedCollection
+	    select: [:each | each shouldPass not]
+    ]
+
+    expectedPassCount [
+	<category: 'Accessing'>
+	^self expectedPasses size
+    ]
+
+    expectedPasses [
+	<category: 'Accessing'>
+	^passed select: [:each | each shouldPass]
+    ]
+
+    unexpectedErrorCount [
+	<category: 'Accessing'>
+	^self unexpectedErrors size
+    ]
+
+    unexpectedErrors [
+	<category: 'Accessing'>
+	^errors select: [:each | each shouldPass]
+    ]
+
+    unexpectedFailureCount [
+	<category: 'Accessing'>
+	^self unexpectedFailures size
+    ]
+
+    unexpectedFailures [
+	<category: 'Accessing'>
+	^failures select: [:each | each shouldPass]
+    ]
+
+    unexpectedPassCount [
+	<category: 'Accessing'>
+	^self unexpectedPasses size
+    ]
+
+    unexpectedPasses [
+	<category: 'Accessing'>
+	^passed select: [:each | each shouldPass not]
+    ]
+
     failureCount [
 	<category: 'Accessing'>
 	^self failures size
@@ -986,6 +1037,18 @@ When you are writing a test case method, send #assert: aBoolean when you want to
 	
     ]
 
+    expectedFailures [
+	<category: 'Testing'>
+	^Array new
+    ]
+
+    shouldPass [
+	"Unless the selector is in the list we get from #expectedFailures, we expect it to pass"
+
+	<category: 'Testing'>
+	^(self expectedFailures includes: testSelector) not
+    ]
+
     executeShould: aBlock inScopeOf: anExceptionalEvent [
 	<category: 'Private'>
 	^
-- 
1.7.0