Author: timbo
Date: Tue May  8 15:39:38 2007
New Revision: 9527

Modified:
   dbi/trunk/t/01basics.t

Log:
Workaround Math::BigInt broken versions


Modified: dbi/trunk/t/01basics.t
==============================================================================
--- dbi/trunk/t/01basics.t      (original)
+++ dbi/trunk/t/01basics.t      Tue May  8 15:39:38 2007
@@ -231,6 +231,8 @@
 SKIP: {
     skip("Math::BigInt < 1.56",2)
        if $DBI::PurePerl && !eval { require Math::BigInt; require_version 
Math::BigInt 1.56 };
+    skip("Math::BigInt $Math::BigInt::VERSION broken",2)
+       if $DBI::PurePerl && $Math::BigInt::VERSION =~ /^1\.5[45]/;
 cmp_ok(DBI::hash("foo1",1), '==', -1263462440, '... should be -1263462440');
 cmp_ok(DBI::hash("foo2",1), '==', -1263462437, '... should be -1263462437');
 }

Reply via email to