File: compressed.t

package info (click to toggle)
libnet-ipv6addr-perl 0.2.dfsg.1-2
  • links: PTS
  • area: main
  • in suites: lenny, squeeze
  • size: 112 kB
  • ctags: 23
  • sloc: perl: 488; makefile: 2
file content (44 lines) | stat: -rw-r--r-- 1,024 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
use strict;
use Test;
BEGIN { plan test => 19; }

use Net::IPv6Addr;
ok(1);

my @x;

# Test ipv6_parse_compressed, bad digits.
eval { @x = Net::IPv6Addr::ipv6_parse_compressed("::x"); };
ok($@);
ok($@, qr/invalid address/);

# Test ipv6_parse_compressed, too many adjacent :
eval { @x = Net::IPv6Addr::ipv6_parse_compressed(":::1"); };
ok($@);
ok($@, qr/invalid address/);

# Test ipv6_parse_compressed, too many digits.
eval { @x = Net::IPv6Addr::ipv6_parse_compressed("::11111"); };
ok($@);
ok($@, qr/invalid address/);

# Test ipv6_parse_compressed, too many :
eval { @x = Net::IPv6Addr::ipv6_parse_compressed("0:1:2:3:4:5:6::7"); };
ok($@);
ok($@, qr/invalid address/);

# Test ipv6_parse_compressed, not enough :
eval { @x = Net::IPv6Addr::ipv6_parse_compressed(":1"); };
ok($@);
ok($@, qr/invalid address/);

# Test ipv6_parse_compressed, with good stuff.
@x = Net::IPv6Addr::ipv6_parse_compressed("::1");
ok($x[0], 0);
ok($x[1], 0);
ok($x[2], 0);
ok($x[3], 0);
ok($x[4], 0);
ok($x[5], 0);
ok($x[6], 0);
ok($x[7], 1);