Lines 22-28
use Test::Warn;
Link Here
|
22 |
use C4::Auth qw / in_iprange /; |
22 |
use C4::Auth qw / in_iprange /; |
23 |
|
23 |
|
24 |
$ENV{REMOTE_ADDR} = '192.168.1.30'; |
24 |
$ENV{REMOTE_ADDR} = '192.168.1.30'; |
25 |
my $ipset1 = "192.168.1.30"; |
|
|
26 |
|
25 |
|
27 |
ok(in_iprange("192.168.1.30"), 'simple single ip matching remote ip'); |
26 |
ok(in_iprange("192.168.1.30"), 'simple single ip matching remote ip'); |
28 |
ok(!in_iprange("192.168.1.31"), 'simple single ip not match remote ip'); |
27 |
ok(!in_iprange("192.168.1.31"), 'simple single ip not match remote ip'); |
29 |
- |
|
|