BEGIN {
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;
}
- unshift @INC, '../lib';
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';