blead is upstream for bignum

[perl5.git] / cpan / bignum / t / scope_i.t

diff --git a/cpan/bignum/t/scope_i.t b/cpan/bignum/t/scope_i.t
deleted file mode 100644 (file)
index 4e2f1e6..0000000
--- a/cpan/bignum/t/scope_i.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl -w
-
-###############################################################################
-# Test "no bigint;" and overloading of hex()/oct() for newer Perls
-
-use Test::More;
-use strict;
-
-BEGIN
-  {
-  $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
-  plan tests => 10;
-  }
-
-# no :hex and :oct means these do not get overloaded for older Perls:
-use bigint;
-
-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";    # quote due to "use bigint;"
-
-  is (ref(hex(9)), 'Math::BigInt', 'hex is overloaded');
-  is (ref(oct(07)), 'Math::BigInt', 'oct is overloaded');
-  }
-
-{
-  no bigint;
-
-  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');
-
-}
-