This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix behavior of <=> on bigints
[perl5.git] / t / lib / bigintpm.t
index ebaecac..4357975 100755 (executable)
@@ -10,7 +10,7 @@ use Math::BigInt;
 
 $test = 0;
 $| = 1;
-print "1..246\n";
+print "1..247\n";
 while (<DATA>) {
        chop;
        if (s/^&//) {
@@ -116,6 +116,7 @@ abc:+0:NaN
 +124:+123:+1
 -123:-124:+1
 -124:-123:-1
++100:+5:+1
 &badd
 abc:abc:NaN
 abc:+0:NaN