X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F13_setpack.t;h=293806cd5cda6834b3f339910b34513f160361a8;hb=345e7fd079ea47414f8d2601e47689a0dbd16c97;hp=e7ef34b3bec706370a55a4922f9fe004a3128a4d;hpb=6e6789b0eb76d67ca927f31c48f7714d1e78d001;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/13_setpack.t b/t/13_setpack.t
index e7ef34b..293806c 100644
--- a/t/13_setpack.t
+++ b/t/13_setpack.t
@@ -75,9 +75,12 @@ my ($default, $small, $medium, $large);
     cmp_ok( $medium, '>', $small, "medium is greater than small" );
 }
 
+eval "pack('Q', 0);";
+my $haveQ = !$@;
+
 SKIP: {
     skip "Largefile support is not compiled into $^X", 3
-        unless $Config{ use64bitall };
+        unless $haveQ;
 
     my ($fh, $filename) = new_fh();
     {
@@ -103,3 +106,18 @@ SKIP: {
     }
     cmp_ok( $medium, '<', $large, "medium is smaller than large" );
 }
+
+#SKIP: {
+#    skip "Largefile support is compiled into $^X", 3
+#        if $haveQ;
+#
+#    my ($fh, $filename) = new_fh();
+#    {
+#        my $db = DBM::Deep->new(
+#            file => $filename,
+#            autoflush => 1,
+#            pack_size => 'large',
+#        );
+#    }
+#
+#}