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

fix mistake in WebGUI::Test

Browse source
This commit is contained in:
Graham Knop 2010-06-10 08:17:17 -05:00
parent 883b145c44
commit 169218abf7
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/lib/WebGUI/Test.pm
View file

@ -139,6 +139,8 @@ If true, the session won't be registered for automatic deletion.
=cut =cut
sub newSession { sub newSession {
shift
if eval { $_[0]->isa($CLASS) };
my $noCleanup = shift; my $noCleanup = shift;
require WebGUI::Session; require WebGUI::Session;
my $session = WebGUI::Session->open( $CLASS->config, newEnv() ); my $session = WebGUI::Session->open( $CLASS->config, newEnv() );
@ -149,7 +151,10 @@ sub newSession {
} }
sub newEnv { sub newEnv {
shift
if eval { $_[0]->isa($CLASS) };
my $form = shift; my $form = shift;
require HTTP::Message::PSGI; require HTTP::Message::PSGI;
require HTTP::Request::Common; require HTTP::Request::Common;
my $config = $CLASS->config; my $config = $CLASS->config;
@ -1027,7 +1032,7 @@ This is a class method.
my @guarded; my @guarded;
sub addToCleanup { sub addToCleanup {
shift shift
if try { $_[0]->isa($CLASS) }; if eval { $_[0]->isa($CLASS) };
push @guarded, cleanupGuard(@_); push @guarded, cleanupGuard(@_);
} }