From 5bf7f427988b1e9b42c29c3129d3d4115324595a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 6 May 2010 12:34:56 -0700
Subject: [PATCH] Update the test for the new caching scheme.

---
 t/Session/Var.t | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/t/Session/Var.t b/t/Session/Var.t
index 68345c504..0798af97f 100644
--- a/t/Session/Var.t
+++ b/t/Session/Var.t
@@ -138,13 +138,13 @@ $session->db->write("update userSession set expires=? where sessionId=?",
 my %copyOfVar2 = %{$var2->{_var}};
 $copyOfVar2{expires} = $var2->get('lastPageView')-1;
 $copyOfVar2{userId} = 3;
-$session->cache->set(['session',$var2->getId], \%copyOfVar2);
+$session->cache->set($var2->getId, \%copyOfVar2);
 
 my $var3 = WebGUI::Session::Var->new($session, $var2->getId);
-is($var3->getId,           $var2->getId, 'new Var object has correct id');
-isnt($var3->isAdminOn,     $var2->isAdminOn, 'new adminOn not equal to old adminOn');
-is($var3->isAdminOn,       0, 'new Var object has default adminOn');
-isnt($var3->get('userId'), 3, 'new userId not equal to old userId');
+is   $var3->getId,         $var2->getId,     'new Var object has correct id';
+isnt $var3->isAdminOn,     $var2->isAdminOn, 'new adminOn not equal to old adminOn';
+is   $var3->isAdminOn,     0, 'new Var object has default adminOn';
+isnt $var3->get('userId'), 3, 'new userId not equal to old userId';
 $var2->end;
 $var3->end;