From 7b1109fb83d3a8eee061069bb824b51b39632db5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 7 Nov 2006 17:25:00 +0000
Subject: [PATCH] update test to handle change in Scratch delete return value

---
 t/Session/Scratch.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Session/Scratch.t b/t/Session/Scratch.t
index d9c811620..b42a398a5 100644
--- a/t/Session/Scratch.t
+++ b/t/Session/Scratch.t
@@ -33,7 +33,7 @@ for (my $count = 1; $count <= $maxCount; $count++){
    is($scratch->get("Test$count"), $count, "Passed set/get $count");
 }
 
-is($scratch->delete("nonExistantVariable"), '0E0', 'delete returns number deleted, even if the variable does not exist.  0E0 is 0 but true');
+is($scratch->delete("nonExistantVariable"), undef, 'delete returns value if deleted, otherwise undef');
 is($scratch->delete("Test1"), 1, 'delete returns number deleted');
 is($scratch->delete(), undef, 'delete without name of variable to delete returns undef');
 is($scratch->get("Test1"), undef, "delete()");