1use Test::More tests => 11;
2use_ok('Tie::NetAddr::IP');
3
4my %WhereIs;
5tie %WhereIs, Tie::NetAddr::IP;
6
7$WhereIs{"0.0.0.0/0"} = "0.0.0.0/0";
8$WhereIs{"10.0.0.0/8"} = "10.0.0.0/8";
9$WhereIs{"20.0.0.0/8"} = "20.0.0.0/8";
10
11is(scalar keys %WhereIs, 3);
12
13while (my($key, $value) = each %WhereIs)
14{
15    is($key, $value);
16}
17
18delete $WhereIs{"10.0.0.0/8"};
19
20is(scalar keys %WhereIs, 2);
21
22while (my($key, $value) = each %WhereIs)
23{
24    is($key, $value);
25}
26
27delete $WhereIs{"20.0.0.0/8"};
28
29is(scalar keys %WhereIs, 1);
30
31while (my($key, $value) = each %WhereIs)
32{
33    is($key, $value);
34}
35
36delete $WhereIs{"0.0.0.0/0"};
37
38is(scalar keys %WhereIs, 0);
39