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

Make sure that the Env macro cannot be used to access objects or data references.

Browse source
This commit is contained in:
Colin Kuskie 2012-02-11 14:15:53 -08:00
parent c76f12d278
commit 2f15d87377
3 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
t/Macro/Env.t
View file

@ -14,6 +14,7 @@ use WebGUI::Test;
use WebGUI::Session;
use Data::Dumper;
use WebGUI::Macro::Env;
use Scalar::Util qw/blessed/;
use Test::More; # increment this value for each test you create
@ -26,22 +27,25 @@ my $session = WebGUI::Test->session;
my %env = %{ $session->request->env };
my @keys = keys %env;
my $numTests = 3 + scalar keys %env;
plan tests => $numTests;
my $output;
$output = WebGUI::Macro::Env::process($session, '');
is($output, undef, 'null key');
is($output, '', 'null key');
$output = WebGUI::Macro::Env::process($session, undef);
is($output, undef, 'undef key');
is($output, '', 'undef key');
$output = WebGUI::Macro::Env::process($session, 'KEY DOES NOT EXIST');
is($output, undef, 'non existent key');
is($output, '', 'non existent key');
foreach my $key (keys %env) {
foreach my $key (@keys) {
my $output = WebGUI::Macro::Env::process($session, $key);
is($output, $env{$key}, 'Fetching: '.$key);
}
##Checking for object access
$session->request->env->{'webgui.session'} = $session;
my $neo_session = WebGUI::Macro::Env::process($session, 'webgui.session');
ok ! ref $neo_session, 'did not get a reference back';
done_testing;