|
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 |
- |
|
|