1#!/usr/bin/perl -w 2 3# use Module(); doesn't call import() - thanx for cpan testers David. M. Town 4# and Andreas Marcel Riechert for spotting it. It is fixed by the same code 5# that fixes require Math::BigInt, but we make a test to be sure it really 6# works. 7 8use strict; 9use Test; 10 11BEGIN 12 { 13 $| = 1; 14 # to locate the testing files 15 my $location = $0; $location =~ s/use.t//i; 16 if ($ENV{PERL_CORE}) 17 { 18 # testing with the core distribution 19 @INC = qw(../t/lib); 20 } 21 unshift @INC, qw(../lib); # to locate the modules 22 if (-d 't') 23 { 24 chdir 't'; 25 require File::Spec; 26 unshift @INC, File::Spec->catdir(File::Spec->updir, $location); 27 } 28 else 29 { 30 unshift @INC, $location; 31 } 32 print "# INC = @INC\n"; 33 34 plan tests => 1; 35 } 36 37my ($try,$ans,$x); 38 39use Math::BigInt(); $x = Math::BigInt->new(1); ++$x; 40 41ok ($x||'undef',2); 42 43# all tests done 44 451; 46 47