diff options
Diffstat (limited to 'lib/bignum/t/trace.t')
-rwxr-xr-x | lib/bignum/t/trace.t | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/lib/bignum/t/trace.t b/lib/bignum/t/trace.t deleted file mode 100755 index 891101b5f9..0000000000 --- a/lib/bignum/t/trace.t +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl -w - -############################################################################### - -use Test; -use strict; - -BEGIN - { - $| = 1; - chdir 't' if -d 't'; - unshift @INC, '../lib'; - plan tests => 1; - } - -BEGIN - { - print "# "; # for testsuite - } -use bignum qw/ trace /; - -############################################################################### -# general tests - -my $x = 5; -print "\n"; -ok (ref($x),'Math::BigInt::Trace'); # :constant via trace - -############################################################################### -############################################################################### -# Perl 5.005 does not like ok ($x,undef) - -sub ok_undef - { - my $x = shift; - - ok (1,1) and return if !defined $x; - ok ($x,'undef'); - } |