1 files changed, 56 insertions, 0 deletions
diff --git a/ext/Storable/t/compat01.t b/ext/Storable/t/compat01.t
new file mode 100644
index 0000000000..536d85ed7b
--- /dev/null
+++ b/ext/Storable/t/compat01.t
@@ -0,0 +1,56 @@
+#!perl -w
+
+BEGIN {
+    if ($ENV{PERL_CORE}){
+        chdir('t') if -d 't';
+        @INC = ('.', '../lib', '../ext/Storable/t');
+    } else {
+        unshift @INC, 't';
+    }
+    require Config; import Config;
+    if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
+
+    use Config;
+    if ($Config{byteorder} ne "1234") {
+	print "1..0 # Skip: Test only works for 32 bit little-ending machines\n";
+	exit 0;
+    }
+}
+
+use strict;
+use Storable qw(retrieve);
+
+my $file = "xx-$$.pst";
+my @dumps = (
+    # some sample dumps of the hash { one => 1 }
+    "perl-store\x041234\4\4\4\x94y\22\b\3\1\0\0\0vxz\22\b\1\1\0\0\x001Xk\3\0\0\0oneX", # 0.1
+    "perl-store\0\x041234\4\4\4\x94y\22\b\3\1\0\0\0vxz\22\b\b\x81Xk\3\0\0\0oneX",      # 0.4@7
+);
+
+print "1.." . @dumps . "\n";
+
+my $testno;
+for my $dump (@dumps) {
+    $testno++;
+
+    open(FH, ">$file") || die "Can't create $file: $!";
+    binmode(FH);
+    print FH $dump;
+    close(FH) || die "Can't write $file: $!";
+
+    eval {
+	my $data = retrieve($file);
+	if (ref($data) eq "HASH" && $data->{one} eq "1") {
+	    print "ok $testno\n";
+	}
+	else {
+	    print "not ok $testno\n";
+	}
+    };
+    warn $@ if $@;
+
+    unlink($file);
+}