diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2007-09-16 15:41:15 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-17 11:09:56 +0000 |
| commit | f7f86b739109e8c852aaa336c415657dd196346e (patch) | |
| tree | 64b2f85f1c4e0331208cc5a2ea983d42c2e6acc2 /lib/Math | |
| parent | 6d4b7d88eed49936ae16ecf02d5eb5b2cc716ea1 (diff) | |
| download | perl-f7f86b739109e8c852aaa336c415657dd196346e.tar.gz | |
fix bigint testsuite
Message-Id: <200709161341.15574@bloodgate.com>
p4raw-id: //depot/perl@31879
Diffstat (limited to 'lib/Math')
| -rw-r--r-- | lib/Math/BigInt.pm | 6 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/bigfltpm.inc | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/bigintpm.inc | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/calling.t | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/mbimbf.inc | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/upgrade.inc | 2 |
6 files changed, 11 insertions, 5 deletions
diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index 82da5f3390..84af8722a2 100644 --- a/lib/Math/BigInt.pm +++ b/lib/Math/BigInt.pm @@ -3796,6 +3796,12 @@ This method was added in v1.87 of Math::BigInt (June 2007). $x->bsqrt(); # calculate square-root +=head2 broot() + + $x->broot($N); + +Calculates the N'th root of C<$x>. + =head2 bfac() $x->bfac(); # factorial of $x (1*2*3*4*..$x) diff --git a/lib/Math/BigInt/t/bigfltpm.inc b/lib/Math/BigInt/t/bigfltpm.inc index 60b5cd2c16..4aa022cbe7 100644 --- a/lib/Math/BigInt/t/bigfltpm.inc +++ b/lib/Math/BigInt/t/bigfltpm.inc @@ -8,7 +8,7 @@ my $z; while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines $_ =~ s/#.*$//; # remove comments $_ =~ s/\s+$//; # trailing spaces next if /^$/; # skip empty lines & comments diff --git a/lib/Math/BigInt/t/bigintpm.inc b/lib/Math/BigInt/t/bigintpm.inc index f9481563f6..87f31eb117 100644 --- a/lib/Math/BigInt/t/bigintpm.inc +++ b/lib/Math/BigInt/t/bigintpm.inc @@ -42,7 +42,7 @@ my ($f,$z,$a,$exp,@a,$m,$e,$round_mode,$expected_class); while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^#/; # skip comments if (s/^&//) { diff --git a/lib/Math/BigInt/t/calling.t b/lib/Math/BigInt/t/calling.t index d113d4e8c4..3fee915a6e 100644 --- a/lib/Math/BigInt/t/calling.t +++ b/lib/Math/BigInt/t/calling.t @@ -69,7 +69,7 @@ my $version = '1.76'; # adjust manually to match latest release my ($func,@args,$ans,$rc,$class,$try); while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^#/; # skip comments if (s/^&//) { diff --git a/lib/Math/BigInt/t/mbimbf.inc b/lib/Math/BigInt/t/mbimbf.inc index a5ea3f623c..b057eee3ec 100644 --- a/lib/Math/BigInt/t/mbimbf.inc +++ b/lib/Math/BigInt/t/mbimbf.inc @@ -782,7 +782,7 @@ my ($ans1,$f,$a,$p,$xp,$yp,$xa,$ya,$try,$ans,@args); my $CALC = Math::BigInt->config()->{lib}; while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^\s*(#|$)/; # skip comments and empty lines if (s/^&//) { diff --git a/lib/Math/BigInt/t/upgrade.inc b/lib/Math/BigInt/t/upgrade.inc index 3aa42efff9..49eb0e943f 100644 --- a/lib/Math/BigInt/t/upgrade.inc +++ b/lib/Math/BigInt/t/upgrade.inc @@ -52,7 +52,7 @@ my ($f,$z,$a,$exp,@a,$m,$e,$round_mode,$expected_class); while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^#/; # skip comments if (s/^&//) { |