X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F752sqlite.t;h=5918c8388a1d94898ff6a91da70bb9c24a74396d;hb=2e0924422e40d5a054b74c6db93af0d48da758ec;hp=14461280944ebacf0826e0d39f0f8f1280578d7c;hpb=524fc24c685553411256485016ce2466cf914ab0;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/752sqlite.t b/t/752sqlite.t
index 1446128..5918c83 100644
--- a/t/752sqlite.t
+++ b/t/752sqlite.t
@@ -68,28 +68,28 @@ $schema->storage->dbh_do(sub {
 
 # test upper/lower boundaries for sqlite and some values inbetween
 # range is -(2**63) .. 2**63 - 1
-for my $bi (qw/
-  -9223372036854775808
-  -9223372036854775807
-  -8694837494948124658
-  -6848440844435891639
-  -5664812265578554454
-  -5380388020020483213
-  -2564279463598428141
-  2442753333597784273
-  4790993557925631491
-  6773854980030157393
-  7627910776496326154
-  8297530189347439311
-  9223372036854775806
-  9223372036854775807
-/) {
-  $row = $schema->resultset('BigIntArtist')->create({ bigint => $bi });
-  is ($row->bigint, $bi, "value in object correct ($bi)");
+SKIP: {
+  skip 'This perl does not seem to have 64bit int support - DBI roundtrip of large int will fail with DBD::SQLite < 1.37', 1
+    if ($Config{ivsize} < 8 and ! eval { DBD::SQLite->VERSION(1.37); 1 });
 
-  TODO: {
-    local $TODO = 'This perl does not seem to have 64bit int support - DBI roundtrip of large int will fail'
-      unless $Config{ivsize} >= 8;
+  for my $bi (qw/
+    -9223372036854775808
+    -9223372036854775807
+    -8694837494948124658
+    -6848440844435891639
+    -5664812265578554454
+    -5380388020020483213
+    -2564279463598428141
+    2442753333597784273
+    4790993557925631491
+    6773854980030157393
+    7627910776496326154
+    8297530189347439311
+    9223372036854775806
+    9223372036854775807
+  /) {
+    $row = $schema->resultset('BigIntArtist')->create({ bigint => $bi });
+    is ($row->bigint, $bi, "value in object correct ($bi)");
 
     $row->discard_changes;
     is ($row->bigint, $bi, "value in database correct ($bi)");