ANNOUNCE: Math-BigInt v1.62

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

diff --git a/lib/Math/BigInt/t/bigfltpm.t b/lib/Math/BigInt/t/bigfltpm.t
index 6aa7181..bab134f 100755 (executable)
--- a/lib/Math/BigInt/t/bigfltpm.t
+++ b/lib/Math/BigInt/t/bigfltpm.t
@@ -1,40 +1,43 @@
 #!/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
   {
-  plan tests => 1277;
+  $| = 1;
+  # to locate the testing files
+  my $location = $0; $location =~ s/bigfltpm.t//i;
+  if ($ENV{PERL_CORE})
+    {
+    # testing with the core distribution
+    @INC = qw(../lib);
+    }
+  unshift @INC, '../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 => 1643
+       + 2;            # own tests
   }
 
 use Math::BigInt;
 use Math::BigFloat;
 
-use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup);
+use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
 $class = "Math::BigFloat";
-   
+$CL = "Math::BigInt::Calc";
+
+ok ($class->config()->{class},$class);
+ok ($class->config()->{with},'Math::BigInt');
+ 
 require 'bigfltpm.inc';        # all tests here for sharing