Upgrade to prereleases of Math::BigInt 1.70 and

[p5sagit/p5-mst-13.2.git] / lib / Math / BigInt / t / upgrade.t

diff --git a/lib/Math/BigInt/t/upgrade.t b/lib/Math/BigInt/t/upgrade.t
index 297d526..a06aec3 100644 (file)
--- a/lib/Math/BigInt/t/upgrade.t
+++ b/lib/Math/BigInt/t/upgrade.t
@@ -10,9 +10,10 @@ BEGIN
   my $location = $0; $location =~ s/upgrade.t//i;
   if ($ENV{PERL_CORE})
     {
-    @INC = qw(../t/lib);                # testing with the core distribution
+    # testing with the core distribution
+    @INC = qw(../t/lib);
     }
-  unshift @INC, '../lib';       # for testing manually
+  unshift @INC, qw(../lib);     # to locate the modules
   if (-d 't')
     {
     chdir 't';
@@ -25,7 +26,8 @@ BEGIN
     }
   print "# INC = @INC\n";
 
-  plan tests => 1991;
+  plan tests => 2098
+   + 2;                        # our own tests
   }
 
 use Math::BigInt upgrade => 'Math::BigFloat';
@@ -38,5 +40,6 @@ $CL = "Math::BigInt::Calc";
 $ECL = "Math::BigFloat";
 
 ok (Math::BigInt->upgrade(),'Math::BigFloat');
+ok (Math::BigInt->downgrade()||'','');
 
 require 'upgrade.inc'; # all tests here for sharing