Upgrade Math::BigRat from version 0.260802 to 0.260804

[perl5.git] / cpan / Math-BigRat / t / big_ap.t

diff --git a/cpan/Math-BigRat/t/big_ap.t b/cpan/Math-BigRat/t/big_ap.t
index 3b45058..1ac46e5 100644 (file)
--- a/cpan/Math-BigRat/t/big_ap.t
+++ b/cpan/Math-BigRat/t/big_ap.t
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 
 # Test that accuracy() and precision() in BigInt/BigFloat do not disturb
 # the rounding force in BigRat.
@@ -12,61 +12,65 @@ use Math::BigInt;
 use Math::BigFloat;
 use Math::BigRat;
 
-my $proper       = Math::BigRat->new('12345678901234567890/2');
-my $proper_inc   = Math::BigRat->new('12345678901234567890/2')->binc();
-my $proper_dec   = Math::BigRat->new('12345678901234567890/2')->bdec();
-my $proper_int   = Math::BigInt->new('12345678901234567890');
-my $proper_float = Math::BigFloat->new('12345678901234567890');
-my $proper2      = Math::BigRat->new('12345678901234567890');
+my $proper       = Math::BigRat   -> new('12345678901234567890/2');
+my $proper_inc   = Math::BigRat   -> new('12345678901234567890/2') -> binc();
+my $proper_dec   = Math::BigRat   -> new('12345678901234567890/2') -> bdec();
+my $proper_int   = Math::BigInt   -> new('12345678901234567890');
+my $proper_float = Math::BigFloat -> new('12345678901234567890');
+my $proper2      = Math::BigRat   -> new('12345678901234567890');
 
-print "# Start\n";
-
-Math::BigInt->accuracy(3);
-Math::BigFloat->accuracy(5);
+Math::BigInt   -> accuracy(3);
+Math::BigFloat -> accuracy(5);
 
 my ($x, $y, $z);
 
 ##############################################################################
 # new()
 
-$z = Math::BigRat->new('12345678901234567890/2');
-is($z, $proper);
+note "Test new()";
 
-$z = Math::BigRat->new('1234567890123456789E1');
-is($z, $proper2);
+$z = Math::BigRat->new("12345678901234567890/2");
+is($z, $proper, q|Math::BigRat->new("12345678901234567890/2")|);
 
-$z = Math::BigRat->new('12345678901234567890/1E0');
-is($z, $proper2);
+$z = Math::BigRat->new("1234567890123456789E1");
+is($z, $proper2, q|Math::BigRat->new("1234567890123456789E1")|);
 
-$z = Math::BigRat->new('1234567890123456789e1/1');
-is($z, $proper2);
+$z = Math::BigRat->new("12345678901234567890/1E0");
+is($z, $proper2, q|Math::BigRat->new("12345678901234567890/1E0")|);
 
-$z = Math::BigRat->new('1234567890123456789e1/1E0');
-is($z, $proper2);
+$z = Math::BigRat->new("1234567890123456789e1/1");
+is($z, $proper2, q|Math::BigRat->new("1234567890123456789e1/1")|);
+
+$z = Math::BigRat->new("1234567890123456789e1/1E0");
+is($z, $proper2, q|Math::BigRat->new("1234567890123456789e1/1E0")|);
 
 $z = Math::BigRat->new($proper_int);
-is($z, $proper2);
+is($z, $proper2, qq|Math::BigRat->new("$proper_int")|);
 
 $z = Math::BigRat->new($proper_float);
-is($z, $proper2);
+is($z, $proper2, qq|Math::BigRat->new("$proper_float")|);
 
 ##############################################################################
 # bdiv
 
-$x = Math::BigRat->new('12345678901234567890');
-$y = Math::BigRat->new('2');
+note "Test bdiv()";
+
+$x = Math::BigRat->new("12345678901234567890");
+$y = Math::BigRat->new("2");
 $z = $x->copy->bdiv($y);
 is($z, $proper);
 
 ##############################################################################
 # bmul
 
+note "Test bmul()";
+
 $x = Math::BigRat->new("$proper");
-$y = Math::BigRat->new('1');
+$y = Math::BigRat->new("1");
 $z = $x->copy->bmul($y);
 is($z, $proper);
 
-$z = Math::BigRat->new('12345678901234567890/1E0');
+$z = Math::BigRat->new("12345678901234567890/1E0");
 is($z, $proper2);
 
 $z = Math::BigRat->new($proper_int);
@@ -78,29 +82,40 @@ is($z, $proper2);
 ##############################################################################
 # bdiv
 
-$x = Math::BigRat->new('12345678901234567890');
-$y = Math::BigRat->new('2');
+note "Test bdiv()";
+
+$x = Math::BigRat->new("12345678901234567890");
+$y = Math::BigRat->new("2");
 $z = $x->copy->bdiv($y);
 is($z, $proper);
 
 ##############################################################################
 # bmul
 
+note "Test bmul()";
+
 $x = Math::BigRat->new("$proper");
-$y = Math::BigRat->new('1');
+$y = Math::BigRat->new("1");
 $z = $x->copy->bmul($y);
 is($z, $proper);
 
 $x = Math::BigRat->new("$proper");
-$y = Math::BigRat->new('2');
+$y = Math::BigRat->new("2");
 $z = $x->copy->bmul($y);
 is($z, $proper2);
 
 ##############################################################################
-# binc/bdec
+# binc
+
+note "Test binc()";
 
 $x = $proper->copy()->binc();
 is($x, $proper_inc);
 
+##############################################################################
+# binc
+
+note "Test bdec()";
+
 $x = $proper->copy()->bdec();
 is($x, $proper_dec);