oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests to Stow to show that the ->set method is only really

Browse source 
useful when creating the Stow'ed variable.
When you ->get a Stow variable, you get a reference if you've
stowed an array or hash.  So when you modify what you got, it
changes the original inside Stow and you don't need to do a ->set.

This wouldn't work for scalars, unless it was a scalar reference.

This also means that if you modify the variable you stowed (and you
stowed a reference) after you stowed it then the stow will change
as well.
This commit is contained in:
Colin Kuskie 2006-04-04 17:42:25 +00:00
parent e3860eb3d2
commit 54573e6bb2
1 changed files with 24 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

26
t/Session/Stow.t
View file

@ -15,7 +15,7 @@ use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 22; # increment this value for each test you create
use Test::More tests => 26; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -30,10 +30,32 @@ for (my $count = 1; $count <= $maxCount; $count++){
}
for (my $count = 1; $count <= $maxCount; $count++){
is($stow->get("Test$count"), $count, "Passed set/get $count\n");
is($stow->get("Test$count"), $count, "Passed set/get $count");
}
$stow->delete("Test1");
is($stow->get("Test1"), undef, "delete()");
$stow->deleteAll;
is($stow->get("Test2"), undef, "deleteAll()");
my @list = qw/alpha delta tango charlie omicron zero/;
my @orig_list = qw/alpha delta tango charlie omicron zero/;
my $mil1 = [ @list ];
$stow->set("military", $mil1);
is_deeply($stow->get("military"), $mil1, 'fetched a copy of an array ref from stow');
undef $mil1;
is_deeply($stow->get("military"), [ @list ], 'removing original reference does not affect stow');
push @list, qw/beta gamma/;
is_deeply($stow->get("military"), [ @orig_list ], "modifying original list does not affect stow'ed list");
my $milList = $stow->get("military");
push @{ $milList }, qw/foxtrot echo/;
is_deeply($stow->get("military"), [ @orig_list, qw/foxtrot echo/ ], "modifying fetched list changes stow'ed list because it is a reference");