| #!/usr/bin/perl -w |
| |
| ############################################################################### |
| # Test "no bigrat;" and overloading of hex()/oct() for newer Perls |
| |
| use strict; |
| use Test::More tests => 10; |
| |
| # no :hex and :oct means these do not get overloaded for older Perls: |
| use bigrat; |
| |
| isnt (ref(1), '', 'is in effect'); |
| isnt (ref(2.0), '', 'is in effect'); |
| isnt (ref(0x20), '', 'is in effect'); |
| |
| SKIP: { |
| skip ('Need at least Perl v5.9.4', 2) if $] < 5.009004; |
| |
| is (ref(hex(9)), 'Math::BigInt', 'hex is overloaded'); |
| is (ref(oct(07)), 'Math::BigInt', 'oct is overloaded'); |
| } |
| |
| { |
| no bigrat; |
| |
| is (ref(1), '', 'is not in effect'); |
| is (ref(2.0), '', 'is not in effect'); |
| is (ref(0x20), '', 'is not in effect'); |
| |
| isnt (ref(hex(9)), 'Math::BigInt', 'hex is not overloaded'); |
| isnt (ref(oct(07)), 'Math::BigInt', 'oct is not overloaded'); |
| } |
| |