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
|
# t/new-store.t - test new Storable related - methods
use Test::More;
my $tests = 7;
plan tests => $tests;
SKIP:
{
skip "Failed to use Storable, module not found", $tests
unless eval {require Storable && use_ok("Storable", 'freeze', 'thaw')};
skip "Failed to use NetAddr::IP", $tests
unless use_ok("NetAddr::IP");
my $oip = new NetAddr::IP "localhost";
my $nip;
isa_ok($oip, 'NetAddr::IP', 'Correct return type');
my $serialized;
eval { $serialized = freeze($oip) };
unless (ok(!$@, "Freezing"))
{
diag $@;
}
# diag "Result is '$serialized'";
eval { $nip = thaw($serialized) };
unless (ok(!$@, "Thawing"))
{
diag $@;
}
isa_ok($nip, 'NetAddr::IP', 'Recovered correct type');
is("$nip", "$oip", "New object eq original object");
}
|
