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

lots of test fixes

Browse source
This commit is contained in:
Graham Knop 2010-06-13 06:19:41 -05:00
parent 0d311117e2
commit 30657d61f7
21 changed files with 75 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Group.t
View file

@ -580,12 +580,13 @@ cmp_bag(
my @tcps = ();
foreach my $idx (0..$#ipTests) {
##Set the ip to be used by the session for this user
my $ip = $ipTests[$idx]->{ip};
$ENV{REMOTE_ADDR} = $ip;
##Create a new session
$sessionBank[$idx] = WebGUI::Session->open(WebGUI::Test->file);
$sessionBank[$idx] = WebGUI::Test->newSession;
##Set the ip to be used by the session for this user
$sessionBank[$idx]->request->env->{REMOTE_ADDR} = $ip;
##Create a new user and make this session's default user that user
$tcps[$idx] = WebGUI::User->new($sessionBank[$idx], "new");
@ -598,7 +599,6 @@ foreach my $idx (0..$#ipTests) {
$ipTests[$idx]->{user} = $tcps[$idx];
}
WebGUI::Test->addToCleanup(@tcps);
WebGUI::Test->addToCleanup(@sessionBank);
my $gI = WebGUI::Group->new($session, "new");
WebGUI::Test->addToCleanup($gI);