diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Math-BigInt/t/bigfltpm.inc')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Math-BigInt/t/bigfltpm.inc | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bigfltpm.inc b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bigfltpm.inc index 4858e2e983f..af6e422e882 100644 --- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bigfltpm.inc +++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bigfltpm.inc @@ -37,7 +37,7 @@ while (<DATA>) { $try = qq|\$x = $CLASS->new("$args[0]");|; if ($f eq "bnorm") { $try .= qq| \$x;|; - } elsif ($f =~ /^is_(zero|one|odd|even|negative|positive|nan|int)$/) { + } elsif ($f =~ /^is_(zero|one|odd|even||(non_)?(negative|positive)|nan|int)$/) { $try .= qq| \$x->$f();|; } elsif ($f eq "is_inf") { $try .= qq| \$x->is_inf("$args[1]");|; @@ -2183,6 +2183,22 @@ NaN:0 -inf:1 +inf:0 +&is_non_positive +0:1 +1:0 +-1:1 +NaN:0 +-inf:1 ++inf:0 + +&is_non_negative +0:1 +1:1 +-1:0 +NaN:0 +-inf:0 ++inf:1 + &parts 0:0 0 1:1 0 |