Math::Big* test tweaks to work better with core:

but the coast still not clear.

p4raw-id: //depot/perl@12847

diff --git a/lib/Math/BigInt/t/bigfltpm.t b/lib/Math/BigInt/t/bigfltpm.t
index d02caa6..6aa7181 100755 (executable)
--- a/lib/Math/BigInt/t/bigfltpm.t
+++ b/lib/Math/BigInt/t/bigfltpm.t
@@ -1,15 +1,33 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+    $| = 1;
+    my $location = $0;
+    # to locate the testing files
+    $location =~ s/bigfltpm.t//i;
+    if ($ENV{PERL_CORE}) {
+        # testing with the core distribution
+       @INC = qw(../lib);
+       if (-d 't') {
+           chdir 't';
+           require File::Spec;
+           unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
+       } else {
+           unshift @INC, $location;
+       }
+    } else {
+        # for running manually with the CPAN distribution
+       unshift @INC, '../lib';
+       $location =~ s/bigfltpm.t//;
+    }
+    print "# INC = @INC\n";
+}
+
 use Test;
 use strict;
 
 BEGIN
   {
-  $| = 1;
-  unshift @INC, '../lib'; # for running manually
-  my $location = $0; $location =~ s/bigfltpm.t//;
-  unshift @INC, $location; # to locate the testing files
-  # chdir 't' if -d 't';
   plan tests => 1277;
   }
 

diff --git a/lib/Math/BigInt/t/bigintpm.t b/lib/Math/BigInt/t/bigintpm.t
index eb1b43f..6a8e68e 100755 (executable)
--- a/lib/Math/BigInt/t/bigintpm.t
+++ b/lib/Math/BigInt/t/bigintpm.t
@@ -1,15 +1,25 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+    $| = 1;
+    if ($ENV{PERL_CORE}) {
+       @INC = qw(../lib);
+       chdir 't' if -d 't';
+    } else {
+        # for running manually with the CPAN distribution
+       unshift @INC, '../lib';
+    }
+    print "# INC = @INC\n";
+}
+
 use strict;
 use Test;
 
 BEGIN 
   {
-  $| = 1;
-  # chdir 't' if -d 't';
-  unshift @INC, '../lib'; # for running manually
   plan tests => 1457;
   }
+
 my $version = '1.43';  # for $VERSION tests, match current release (by hand!)
 
 ##############################################################################

diff --git a/lib/Math/BigInt/t/sub_mbf.t b/lib/Math/BigInt/t/sub_mbf.t
index 946222c..0695ef2 100755 (executable)
--- a/lib/Math/BigInt/t/sub_mbf.t
+++ b/lib/Math/BigInt/t/sub_mbf.t
@@ -1,15 +1,33 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+    $| = 1;
+    my $location = $0;
+    # to locate the testing files
+    $location =~ s/sub_mbf.t//i;
+    if ($ENV{PERL_CORE}) {
+        # testing with the core distribution
+       @INC = qw(../lib);
+       if (-d 't') {
+           chdir 't';
+           require File::Spec;
+           unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
+       } else {
+           unshift @INC, $location;
+       }
+    } else {
+        # for running manually with the CPAN distribution
+       unshift @INC, '../lib';
+       $location =~ s/bigfltpm.t//;
+    }
+    print "# INC = @INC\n";
+}
+
 use Test;
 use strict;
 
 BEGIN
   {
-  $| = 1;
-  unshift @INC, '../lib';      # for running manually
-  my $location = $0; $location =~ s/sub_mbf.t//;
-  unshift @INC, $location; # to locate the testing files
-  chdir 't' if -d 't';
   plan tests => 1277 + 4;      # + 4 own tests
   }
 

diff --git a/lib/Math/BigInt/t/sub_mbi.t b/lib/Math/BigInt/t/sub_mbi.t
index cb85a02..20b8b8d 100755 (executable)
--- a/lib/Math/BigInt/t/sub_mbi.t
+++ b/lib/Math/BigInt/t/sub_mbi.t
@@ -1,15 +1,33 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+    $| = 1;
+    my $location = $0;
+    # to locate the testing files
+    $location =~ s/sub_mbi.t//i;
+    if ($ENV{PERL_CORE}) {
+        # testing with the core distribution
+       @INC = qw(../lib);
+       if (-d 't') {
+           chdir 't';
+           require File::Spec;
+           unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
+       } else {
+           unshift @INC, $location;
+       }
+    } else {
+        # for running manually with the CPAN distribution
+       unshift @INC, '../lib';
+       $location =~ s/bigfltpm.t//;
+    }
+    print "# INC = @INC\n";
+}
+
 use Test;
 use strict;
 
 BEGIN
   {
-  $| = 1;
-  unshift @INC, '../lib';      # for running manually
-  my $location = $0; $location =~ s/sub_mbi.t//;
-  unshift @INC, $location; # to locate the testing files
-  chdir 't' if -d 't';
   plan tests => 1608 + 4;      # +4 own tests
   }