#
BEGIN {
- chdir('t') if -d 't';
+ chdir('t') if -d 't';
unshift @INC, '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bStorable\b/) {
+ print "1..0 # Skip: Storable was not built\n";
+ exit 0;
+ }
require 'lib/st-dump.pl';
}
$Storable::canonical = 1; # Prevent "used once" warning
$Storable::canonical = 1;
+# Allow for long double string conversions.
+$y->{num}->[3] += 0;
+$r->{num}->[3] += 0;
ok 4, nfreeze($y) eq nfreeze($r);
ok 5, $y->ref->{key1} eq 'val1';