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');
}