3 ###############################################################################
4 # Test "no bigint;" and overloading of hex()/oct() for newer Perls
13 unshift @INC, '../lib';
17 # no :hex and :oct means these do not get overloaded for older Perls:
20 isnt (ref(1), '', 'is in effect');
21 isnt (ref(2.0), '', 'is in effect');
22 isnt (ref(0x20), '', 'is in effect');
25 skip ('Need at least Perl v5.9.4', 2) if $] < "5.009004"; # quote due to "use bigint;"
27 is (ref(hex(9)), 'Math::BigInt', 'hex is overloaded');
28 is (ref(oct(07)), 'Math::BigInt', 'oct is overloaded');
34 is (ref(1), '', 'is not in effect');
35 is (ref(2.0), '', 'is not in effect');
36 is (ref(0x20), '', 'is not in effect');
38 isnt (ref(hex(9)), 'Math::BigInt', 'hex is not overloaded');
39 isnt (ref(oct(07)), 'Math::BigInt', 'oct is not overloaded');