lib/bignum/t/scope_f.t

   1 #!/usr/bin/perl -w
   2
   3 ###############################################################################
   4 # Test "no bignum;" and overloading of hex()/oct() for newer Perls
   5
   6 use Test::More;
   7 use strict;
   8
   9 BEGIN
  10   {
  11   $| = 1;
  12   chdir 't' if -d 't';
  13   unshift @INC, '../lib';
  14   plan tests => 10;
  15   }
  16
  17 # no :hex and :oct means these do not get overloaded for older Perls:
  18 use bignum;
  19
  20 isnt (ref(1), '', 'is in effect');
  21 isnt (ref(2.0), '', 'is in effect');
  22 isnt (ref(0x20), '', 'is in effect');
  23
  24 SKIP: {
  25   skip ('Need at least Perl v5.9.4', 2) if $] < 5.009004;
  26
  27   is (ref(hex(9)), 'Math::BigInt', 'hex is overloaded');
  28   is (ref(oct(07)), 'Math::BigInt', 'oct is overloaded');
  29   }
  30
  31 {
  32   no bignum;
  33
  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');
  37
  38   isnt (ref(hex(9)), 'Math::BigInt', 'hex is not overloaded');
  39   isnt (ref(oct(07)), 'Math::BigInt', 'oct is not overloaded');
  40 }
  41