Re: Broken bignum tests [PATCH]

Message-Id: <200706271915.46068@bloodgate.com>

p4raw-id: //depot/perl@31485

3 files changed, 13 insertions, 10 deletions

diff --git a/lib/bignum/t/big_e_pi.t b/lib/bignum/t/big_e_pi.t
index b0de593c54..819e22528a 100644
--- a/lib/bignum/t/big_e_pi.t
+++ b/lib/bignum/t/big_e_pi.t
@@ -14,10 +14,10 @@ BEGIN
   plan tests => 4;
   }
 
-use bignum qw/e PI/;
+use bignum qw/e PI bexp bpi/;
 
 is (e, "2.718281828459045235360287471352662497757", 'e');
 is (PI, "3.141592653589793238462643383279502884197", 'PI');
 
-is (e(10), "2.718281828", 'e');
-is (PI(10), "3.141592654", 'PI');
+is (bexp(1,10), "2.718281828", 'e');
+is (bpi(10), "3.141592654", 'PI');
diff --git a/lib/bignum/t/bii_e_pi.t b/lib/bignum/t/bii_e_pi.t
index 169464011e..76ee07ae29 100644
--- a/lib/bignum/t/bii_e_pi.t
+++ b/lib/bignum/t/bii_e_pi.t
@@ -11,13 +11,14 @@ BEGIN
   $| = 1;
   chdir 't' if -d 't';
   unshift @INC, '../lib';
-  plan tests => 4;
+  plan tests => 5;
   }
 
-use bigint qw/e PI/;
+use bigint qw/e PI bpi bexp/;
 
 is (e, "2", 'e');
 is (PI, "3", 'PI');
 
-is (e(10), "2", 'e');
-is (PI(10), "3", 'PI');
+is (bexp(1,10), "2", 'e');
+is (bexp(3,10), "20", 'e');
+is (bpi(10), "3", 'PI');
diff --git a/lib/bignum/t/bir_e_pi.t b/lib/bignum/t/bir_e_pi.t
index 0041e2cbd8..88342b05bd 100644
--- a/lib/bignum/t/bir_e_pi.t
+++ b/lib/bignum/t/bir_e_pi.t
@@ -14,10 +14,12 @@ BEGIN
   plan tests => 4;
   }
 
-use bigrat qw/e PI/;
+use bigrat qw/e PI bexp bpi/;
 
 is (e, "2.718281828459045235360287471352662497757", 'e');
 is (PI, "3.141592653589793238462643383279502884197", 'PI');
 
-is (e(10), "2.718281828", 'e');
-is (PI(10), "3.141592654", 'PI');
+# these tests should actually produce big rationals, but this is not yet
+# implemented:
+is (bexp(1,10), "2.718281828", 'e');
+is (bpi(10), "3.141592654", 'PI');