Change 11593 by jhi@alpha on 2001/08/05 23:10:52
libcs are confused what to call Infinity.
Affected files ...
... //depot/perl/lib/Math/BigInt/t/bigintpm.t#6 edit
Differences ...
==== //depot/perl/lib/Math/BigInt/t/bigintpm.t#6 (xtext) ====
Index: perl/lib/Math/BigInt/t/bigintpm.t
--- perl/lib/Math/BigInt/t/bigintpm.t.~1~ Sun Aug 5 17:15:05 2001
+++ perl/lib/Math/BigInt/t/bigintpm.t Sun Aug 5 17:15:05 2001
@@ -522,12 +522,24 @@
# test whether +inf eq inf
$y = 1e1000000; # create inf, since bareword inf does not work
-$x = Math::BigInt->new('+inf'); ok ($x,$y);
+$x = Math::BigInt->new('+inf'); ok_inf ($x,$y);
###############################################################################
# all tests done
###############################################################################
+
+# libc are confused what to call Infinity
+
+sub ok_inf {
+ my ($x, $y) = @_;
+
+ $x =~ s/^inf(?:inity)?/$1/i;
+ $y =~ s/^inf(?:inity)?/$1/i;
+
+ ok($x, $y);
+}
+
# Perl 5.005 does not like ok ($x,undef)
sub ok_undef
End of Patch.
