X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F752sqlite.t;h=c07327ef44fde46bd2ad0797c2cdb6e798f5837c;hb=7e763495bb690cf995a23e2c33c3f55c7d1842e4;hp=da1c871339eac8f47541cac82103736b96197d84;hpb=5e61dd3c75c10d680847fa1d3e2603093ec66dbd;p=dbsrgits%2FDBIx-Class.git diff --git a/t/752sqlite.t b/t/752sqlite.t index da1c871..c07327e 100644 --- a/t/752sqlite.t +++ b/t/752sqlite.t @@ -179,7 +179,6 @@ for my $bi ( qw( 1 2 - -9223372036854775808 -9223372036854775807 -8694837494948124658 -6848440844435891639 @@ -214,6 +213,15 @@ for my $bi ( qw( $sqlite_broken_bigint ? () : ( '2147483648', '2147483649' ) + , + + # with newer compilers ( gcc 4.9+ ) older DBD::SQLite does not + # play well with the "Most Negative Number" + modver_gt_or_eq( 'DBD::SQLite', '1.33' ) + ? ( '-9223372036854775808' ) + : () + , + ) { # unsigned 32 bit ints have a range of −2,147,483,648 to 2,147,483,647 # alternatively expressed as the hexadecimal numbers below @@ -245,7 +253,7 @@ for my $bi ( qw( eval { $row = $schema->resultset('BigIntArtist')->create({ bigint => $bi }); } or do { - fail("Exception on inserting $v_desc") unless $sqlite_broken_bigint; + fail("Exception on inserting $v_desc: $@") unless $sqlite_broken_bigint; next; };