1#!/usr/bin/perl
2
3
4
5use strict;
6use warnings;
7
8use Test::More;
9
10unless (eval { require Storable; 1}) {
11    plan skip_all => 'Storable not installed';
12    exit;
13}
14
15
16use Math::Int64 qw(int64_rand uint64_rand);
17
18my $a = [map int64_rand, 0..99];
19my $b = Storable::thaw(Storable::freeze($a));
20
21for (0..$#$a) {
22    ok ($a->[$_] == $b->[$_]);
23}
24
25$a = [map uint64_rand, 0..99];
26$b = Storable::thaw(Storable::freeze($a));
27
28for (0..$#$a) {
29    ok ($a->[$_] == $b->[$_]);
30}
31
32done_testing();
33