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

convert Session/Url.t to use Test::MockObject::Extends for ENV work

Browse source
This commit is contained in:
Colin Kuskie 2008-07-25 18:44:24 +00:00
parent 788ec55e8c
commit 70fd60698c
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/Session/Url.t
View file

@ -51,6 +51,7 @@ my @getRefererUrlTests = (
); );
use Test::More; use Test::More;
use Test::MockObject::Extends;
plan tests => 61 + scalar(@getRefererUrlTests); plan tests => 61 + scalar(@getRefererUrlTests);
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
@ -139,8 +140,10 @@ $session->url->setSiteURL('http://webgui.org');
is( $session->url->getSiteURL, 'http://webgui.org', 'override config setting with setSiteURL'); is( $session->url->getSiteURL, 'http://webgui.org', 'override config setting with setSiteURL');
##Create a fake environment hash so we can muck with it. ##Create a fake environment hash so we can muck with it.
our %mockEnv = %ENV; my %mockEnv = %ENV;
$session->{_env}->{_env} = \%mockEnv; my $env = $session->env;
$env = Test::MockObject::Extends->new($env);
$env->mock('get', sub { return $mockEnv{$_[1]} } );
$mockEnv{HTTPS} = "on"; $mockEnv{HTTPS} = "on";
$session->url->setSiteURL(undef); $session->url->setSiteURL(undef);
@ -415,7 +418,7 @@ $session->config->set('sslEnabled', $origSSLEnabled);
END { ##Always clean-up END { ##Always clean-up
$session->asset($sessionAsset); $session->asset($sessionAsset);
$versionTag->rollback; $versionTag->rollback if defined $versionTag;
$session->config->set('sitename', \@config_sitename); $session->config->set('sitename', \@config_sitename);
$session->config->set('gateway', $gateway); $session->config->set('gateway', $gateway);