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