add test for Session->duplicate

plainblack · Jun 17, 2010 · caacf34 · caacf34
1 parent 0e9b793
commit caacf34
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/Session.t b/t/Session.t
@@ -19,7 +19,7 @@ use WebGUI::User;
 
 use Test::More;
 
-plan tests => 4; # increment this value for each test you create
+plan tests => 5; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
@@ -36,6 +36,11 @@ $session->user({userId => 3});
 is($session->user->userId,  3, 'Set session user to Admin, check userId==3');
 is($session->user->profileField('uiLevel'), 9, 'Set session user to Admin, check uiLevel==9');
 
+my $dupe = $session->duplicate;
+WebGUI::Test->addToCleanup($dupe);
+
+is $session->getId, $dupe->getId, 'duplicated session has the same sessionId';
+
 ################################################################
 #
 # dbSlave