lib/bignum/t/scope_f.t

   1 #!/usr/bin/perl -w
   2
   3 ###############################################################################
   4 # Test no bignum;
   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 => 6;
  15   }
  16
  17 use bignum;
  18
  19 isnt (ref(1), '', 'is in effect');
  20 isnt (ref(2.0), '', 'is in effect');
  21 isnt (ref(0x20), '', 'is in effect');
  22
  23 {
  24   no bignum;
  25
  26   is (ref(1), '', 'is not in effect');
  27   is (ref(2.0), '', 'is not in effect');
  28   is (ref(0x20), '', 'is not in effect');
  29 }
  30