view release on metacpan or  search on metacpan

t/43_network.t  view on Meta::CPAN

use strict;
use warnings;

psecureEnv();

my $sendmail =
    '... [IPv6:1111:2222:3333:4444:5555:6666:7777:8888] did not issue MAIL/EXPN/VRFY/ETRN during connection ...';
my $ifconfig = << '__EOF__';
lo        Link encap:Local Loopback  
          inet addr:127.0.0.1  Mask:255.0.0.0
          inet6 addr: ::1/128 Scope:Host
          UP LOOPBACK RUNNING  MTU:16436  Metric:1
          RX packets:199412 errors:0 dropped:0 overruns:0 frame:0
          TX packets:199412 errors:0 dropped:0 overruns:0 carrier:0
          collisions:0 txqueuelen:0 
          RX bytes:90311250 (86.1 MiB)  TX bytes:90311250 (86.1 MiB)

__EOF__

my $iproute = << '__EOF__';
1: lo: <LOOPBACK,UP,LOWER_UP> mtu 16436 qdisc noqueue state UNKNOWN 
    link/loopback 00:00:00:00:00:00 brd 00:00:00:00:00:00
    inet 127.0.0.1/8 brd 127.255.255.255 scope host lo
    inet6 ::1/128 scope host 
       valid_lft forever preferred_lft forever
2: eth0: <BROADCAST,MULTICAST> mtu 1500 qdisc pfifo_fast state DOWN qlen 1000
    link/ether 00:d0:f9:6a:cd:d0 brd ff:ff:ff:ff:ff:ff
3: wlan0: <BROADCAST,MULTICAST,UP,LOWER_UP> mtu 1500 qdisc pfifo_fast state UP qlen 1000
    link/ether 00:12:a8:ff:0e:a1 brd ff:ff:ff:ff:ff:ff
    inet 192.168.2.156/24 brd 192.168.2.255 scope global wlan0
    inet6 fe80::212:a8ff:feff:0ea1/64 scope link 
       valid_lft forever preferred_lft forever
__EOF__

ok( ipInNetworks( '127.0.0.1', '127.0.0.0/8' ),         'ipInNetworks 1' );
ok( ipInNetworks( '127.0.0.1', '127.0.0.0/255.0.0.0' ), 'ipInNetworks 2' );
ok( ipInNetworks( '127.0.0.1', '127.0.0.1' ),           'ipInNetworks 3' );
ok( !eval "ipInNetworks('127.0.s.1', '127.0.0.1')", 'ipInNetworks 4' );
ok( ipInNetworks( '127.0.0.1', '192.168.0.0/24', '127.0.0.0/8' ),
    'ipInNetworks 5' );
ok( !ipInNetworks( '127.0.0.1', qw(foo bar roo) ), 'ipInNetworks 6' );