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

Remove Session::Env, migrate code to Plack::Request object in Session, and WebGUI::Session::Request

Browse source
This commit is contained in:
Colin Kuskie 2010-07-01 17:40:12 -07:00
parent 005b9da1ac
commit e0177dc666
27 changed files with 131 additions and 285 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Session/CheckClient.t
View file

@ -185,9 +185,9 @@ sub testCount {
plan tests => testCount() ;
foreach my $testSet (@testArray) {
$session->request->env->{HTTP_USER_AGENT} = $testSet->{agent};
$session->request->headers->user_agent($testSet->{agent});
$session->request->env->{REMOTE_ADDR} = $testSet->{address} || '69.42.78.32';
my $output = $session->env->requestNotViewed;
my $output = $session->request->requestNotViewed;
is($output, $testSet->{output}, $testSet->{comment});
}

28
t/Session/Env.t
View file

@ -1,28 +0,0 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use FindBin;
use strict;
use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 2; # increment this value for each test you create
my $session = WebGUI::Test->session;
cmp_ok($session->env->get("REMOTE_ADDR"), 'ne', "", "get() one valid entry");
my $env = $session->env;
$session->request->env->{REMOTE_ADDR} = '192.168.0.2';
#is ($env->getIp, '192.168.0.2', 'getIp');

8
t/Session/Url.t
View file

@ -50,7 +50,7 @@ my @getRefererUrlTests = (
);
use Test::More;
plan tests => 83 + scalar(@getRefererUrlTests);
plan tests => 82 + scalar(@getRefererUrlTests);
my $session = WebGUI::Test->session;
my $request = $session->request;
@ -242,12 +242,8 @@ $session->asset($sessionAsset);
#
#######################################
$env->{'HTTP_REFERER'} = 'test';
is($session->env->get('HTTP_REFERER'), 'test', 'testing overridden ENV');
foreach my $test (@getRefererUrlTests) {
$env->{HTTP_REFERER} = $test->{input};
$session->request->referer($test->{input});
is($session->url->getRefererUrl, $test->{output}, $test->{comment});
}