From 2666a4be6e28d06aa4c6e3b3ab64f9b54593b51f Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 4 Oct 2012 08:34:49 -0700 Subject: [PATCH] bignum overrides.t: Skip some tests under 5.8 --- dist/bignum/t/overrides.t | 36 ++++++++++++++++++++++++------------ 1 file changed, 24 insertions(+), 12 deletions(-) diff --git a/dist/bignum/t/overrides.t b/dist/bignum/t/overrides.t index d807228..581ec98 100644 --- a/dist/bignum/t/overrides.t +++ b/dist/bignum/t/overrides.t @@ -29,10 +29,14 @@ BEGIN @_ = 1..20; is hex(@_), "32", 'bigint hex override provides scalar context'; is oct(@_), "16", 'bigint oct override provides scalar context'; - is ref hex(1), 'Math::BigInt', - 'bigint hex() works when bignum and bigrat are loaded'; - is ref oct(1), 'Math::BigInt', - 'bigint oct() works when bignum and bigrat are loaded'; + SKIP: + { + skip "no lexical hex/oct", 2 unless $] > 5.009004; + is ref hex(1), 'Math::BigInt', + 'bigint hex() works when bignum and bigrat are loaded'; + is ref oct(1), 'Math::BigInt', + 'bigint oct() works when bignum and bigrat are loaded'; + } } { use bignum; @@ -42,10 +46,14 @@ BEGIN @_ = 1..20; is hex(@_), "32", 'bignum hex override provides scalar context'; is oct(@_), "16", 'bignum oct override provides scalar context'; - is ref hex(1), 'Math::BigInt', - 'bignum hex() works when bigint and bigrat are loaded'; - is ref oct(1), 'Math::BigInt', - 'bignum oct() works when bigint and bigrat are loaded'; + SKIP: + { + skip "no lexical hex/oct", 2 unless $] > 5.009004; + is ref hex(1), 'Math::BigInt', + 'bignum hex() works when bigint and bigrat are loaded'; + is ref oct(1), 'Math::BigInt', + 'bignum oct() works when bigint and bigrat are loaded'; + } } { use bigrat; @@ -55,10 +63,14 @@ BEGIN @_ = 1..20; is hex(@_), "32", 'bigrat hex override provides scalar context'; is oct(@_), "16", 'bigrat oct override provides scalar context'; - is ref hex(1), 'Math::BigInt', - 'bigrat hex() works when bignum and bigint are loaded'; - is ref oct(1), 'Math::BigInt', - 'bigrat oct() works when bignum and bigint are loaded'; + SKIP: + { + skip "no lexical hex/oct", 2 unless $] > 5.009004; + is ref hex(1), 'Math::BigInt', + 'bigrat hex() works when bignum and bigint are loaded'; + is ref oct(1), 'Math::BigInt', + 'bigrat oct() works when bignum and bigint are loaded'; + } } $hex_called = 0; -- 2.7.4