From f3bc6505021de8122f7cad2727b29ed6e2c3c951 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 16 Jul 2009 21:39:23 +0000
Subject: [PATCH] Update User.t to work with CSRF tokens.

---
 t/User.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/t/User.t b/t/User.t
index 2e5c88812..d05e94a3b 100644
--- a/t/User.t
+++ b/t/User.t
@@ -93,7 +93,7 @@ ok(
 );
 
 ok(
-    !$session->db->quickScalar("SELECT COUNT(*) FROM userSessionScratch WHERE sessionId=?",[$session->getId]),
+    !$session->db->quickScalar("SELECT COUNT(*) FROM userSessionScratch WHERE sessionId=?",[$newSession->getId]),
     "Deactivating user deletes all user session scratch",
 );
 
@@ -1027,7 +1027,6 @@ $shopUser->delete;
 undef $book;
 eval { $book = WebGUI::Shop::AddressBook->new($session, $bookId); };
 my $e = Exception::Class->caught();
-diag ref $e;
 isa_ok($e, 'WebGUI::Error::ObjectNotFound', '... cleans up the address book');
 
 END {