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

convert Session/Env.t to use Test::MockObject::Extends

Browse source
This commit is contained in:
Colin Kuskie 2008-07-25 18:24:08 +00:00
parent 344410b0c9
commit 788ec55e8c
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
t/Session/Env.t
View file

@ -16,21 +16,25 @@ use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 3; # increment this value for each test you create
use Test::MockObject::Extends;
my $session = WebGUI::Test->session;
cmp_ok($session->env->get("PATH"), 'ne', "", "get() one entry");
cmp_ok($session->env->get("PATH"), 'ne', "", "get() one valid entry");
#Replace the ENV hash so that we can test getIp.
my $origEnvHash = $session->env->{_env};
my $env = $session->env;
$env = Test::MockObject::Extends->new($env);
my %newEnv = ( REMOTE_ADDR => '192.168.0.2' );
my %mockEnv = (
REMOTE_ADDR => '192.168.0.2',
);
$session->env->{_env} = \%newEnv;
$env->mock('get', sub { return $mockEnv{$_[1]}});
is ($session->env->getIp(), $newEnv{'REMOTE_ADDR'}, 'getIp');
is ($env->getIp(), $mockEnv{'REMOTE_ADDR'}, 'getIp');
$newEnv{'HTTP_X_FORWARDED_FOR'} = '10.0.2.5';
is ($session->env->getIp(), $newEnv{'HTTP_X_FORWARDED_FOR'}, 'getIp with HTTP forwarding');
$mockEnv{HTTP_X_FORWARDED_FOR} = '10.0.2.5',
is ($env->getIp(), $mockEnv{'HTTP_X_FORWARDED_FOR'}, 'getIp with HTTP forwarding');