From bbcee2072f033a6ea649947fd4fa0b7e32e13f16 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Thu, 25 Sep 2008 21:29:43 +0000 Subject: [PATCH] Add tests for defining multiple IP ranges for admin subnets. --- t/User.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/t/User.t b/t/User.t index ab359c09c..291c281bf 100644 --- a/t/User.t +++ b/t/User.t @@ -20,7 +20,7 @@ use WebGUI::Cache; use WebGUI::User; use WebGUI::ProfileField; -use Test::More tests => 137; # increment this value for each test you create +use Test::More tests => 139; # increment this value for each test you create use Test::Deep; my $session = WebGUI::Test->session; @@ -327,6 +327,13 @@ $newEnv{REMOTE_ADDR} = '10.0.0.2'; ok(!$dude->canUseAdminMode, 'canUseAdminMode: even with the right group permission, user must be in subnet if subnet is set'); +##Check for multiple IP settings +$session->config->set('adminModeSubnets', ['10.0.0.0/24', '192.168.0.0/24', ]); +ok($dude->canUseAdminMode, 'canUseAdminMode: multiple IP settings, first IP range'); + +$newEnv{REMOTE_ADDR} = '192.168.0.127'; +ok($dude->canUseAdminMode, 'canUseAdminMode: multiple IP settings, second IP range'); + ##restore the original session variables $session->env->{_env} = $origEnvHash; $session->config->delete('adminModeSubnets');