diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2003-12-06 21:19:44 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-06 20:58:12 +0000 |
| commit | 091c87b15dfb1c6df2cfc68045c100bbfda9d509 (patch) | |
| tree | b4d6470cf8c337b2f4f05b8330da517f989d4da4 /lib/Math/BigInt/t/constant.t | |
| parent | 6ae58cb5a953df59589e334c56b254287b3037e6 (diff) | |
| download | perl-091c87b15dfb1c6df2cfc68045c100bbfda9d509.tar.gz | |
Math::BigInt v1.67 (pre-release)
Message-Id: <200312062016.50484@bloodgate.com>
p4raw-id: //depot/perl@21861
Diffstat (limited to 'lib/Math/BigInt/t/constant.t')
| -rw-r--r-- | lib/Math/BigInt/t/constant.t | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/lib/Math/BigInt/t/constant.t b/lib/Math/BigInt/t/constant.t index 4e5a17eaa7..8df7283a8c 100644 --- a/lib/Math/BigInt/t/constant.t +++ b/lib/Math/BigInt/t/constant.t @@ -6,8 +6,26 @@ use Test; BEGIN { $| = 1; - chdir 't' if -d 't'; - unshift @INC, '../lib'; # for running manually + # to locate the testing files + my $location = $0; $location =~ s/constant.t//i; + if ($ENV{PERL_CORE}) + { + # testing with the core distribution + @INC = qw(../t/lib); + } + unshift @INC, qw(../lib); + if (-d 't') + { + chdir 't'; + require File::Spec; + unshift @INC, File::Spec->catdir(File::Spec->updir, $location); + } + else + { + unshift @INC, $location; + } + print "# INC = @INC\n"; + plan tests => 7; if ($] < 5.006) { |