summaryrefslogtreecommitdiff
path: root/t/op
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-09-19 22:01:32 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-09-19 22:04:08 -0400
commitaf9a438112f49d9f3c6920ffd2c7dc4dd0a24d8d (patch)
tree4bfd61ac4ef93be5f58f933436e1945cf2ec5859 /t/op
parentcf418971ae194095d1e35d9d34a00fbc8bcfed2a (diff)
downloadperl-af9a438112f49d9f3c6920ffd2c7dc4dd0a24d8d.tar.gz
Revert "infnan: more tests."
This reverts commit 5d288d736c2758c27a5943647f4a524f0e93a642. So that Steve Hay can enjoy a fail-free VC6 build for 5.21.4. After the release, let's revert this revert, and return to punishing ourselves with VC6.
Diffstat (limited to 't/op')
-rw-r--r--t/op/infnan.t69
1 files changed, 4 insertions, 65 deletions
diff --git a/t/op/infnan.t b/t/op/infnan.t
index 8cb177d9e0..8267e24342 100644
--- a/t/op/infnan.t
+++ b/t/op/infnan.t
@@ -34,16 +34,12 @@ my @NaN = ("NAN", "nan", "qnan", "SNAN", "NanQ", "NANS",
my @num_fmt = qw(e f g a d u o b x p);
-my $inf_tests = 13 + @num_fmt + 8 + 3 * @PInf + 3 * @NInf + 14 + 3;
-my $nan_tests = 8 + @num_fmt + 4 + 2 * @NaN + 14;
+my $inf_tests = 13 + @num_fmt + 8 + 3 * @PInf + 3 * @NInf + 5 + 3;
+my $nan_tests = 8 + @num_fmt + 4 + 2 * @NaN + 3;
-my $infnan_tests = 13;
+my $infnan_tests = 4;
-plan tests => $inf_tests + 1 + $nan_tests + 1 + $infnan_tests + 1;
-
-print "# inf_tests = $inf_tests\n";
-print "# nan_tests = $nan_tests\n";
-print "# infnan_tests = $infnan_tests\n";
+plan tests => $inf_tests + $nan_tests + $infnan_tests;
my $has_inf;
my $has_nan;
@@ -112,24 +108,6 @@ SKIP: {
is(1/$PInf, 0, "one per +Inf is zero");
is(1/$NInf, 0, "one per -Inf is zero");
- my ($PInfPP, $PInfMM) = ($PInf, $PInf);
- my ($NInfPP, $NInfMM) = ($NInf, $NInf);;
- $PInfPP++;
- $PInfMM--;
- $NInfPP++;
- $NInfMM--;
- is($PInfPP, $PInf, "+inf++ is +inf");
- is($PInfMM, $PInf, "+inf-- is +inf");
- is($NInfPP, $NInf, "-inf++ is -inf");
- is($NInfMM, $NInf, "-inf-- is -inf");
-
- ok($PInf, "+inf is true");
- ok($NInf, "-inf is true");
-
- is(sqrt($PInf), $PInf, "sqrt(+inf) is +inf");
- is(exp($PInf), $PInf, "exp(+inf) is +inf");
- is(exp($NInf), 0, "exp(-inf) is zero");
-
SKIP: {
my $here = "$^O $Config{osvers}";
if ($here =~ /^hpux 10/) {
@@ -151,8 +129,6 @@ SKIP: {
}
}
-is(curr_test() - 1, $inf_tests, "expected number of inf tests");
-
SKIP: {
if ($NaN == 0) {
skip $nan_tests, "no nan found";
@@ -192,29 +168,10 @@ SKIP: {
is("@{[$i+0]}", "NaN", "$i value stringifies as NaN");
}
- ok(!($NaN < 0), "NaN is not lt zero");
- ok(!($NaN == 0), "NaN is not == zero");
- ok(!($NaN > 0), "NaN is not gt zero");
-
- ok(!($NaN < $NaN), "NaN is not lt NaN");
- ok(!($NaN > $NaN), "NaN is not gt NaN");
-
# is() okay with $NaN because it uses eq.
is($NaN * 0, $NaN, "NaN times zero is NaN");
is($NaN * 2, $NaN, "NaN times two is NaN");
- my ($NaNPP, $NaNMM) = ($NaN, $NaN);
- $NaNPP++;
- $NaNMM--;
- is($NaNPP, $NaN, "+inf++ is +inf");
- is($NaNMM, $NaN, "+inf-- is +inf");
-
- ok($NaN, "NaN is true");
-
- is(sqrt($NaN), $NaN, "sqrt(nan) is nan");
- is(exp($NaN), $NaN, "exp(nan) is nan");
- is(sin($NaN), $NaN, "sin(nan) is nan");
-
SKIP: {
my $here = "$^O $Config{osvers}";
if ($here =~ /^hpux 10/) {
@@ -224,9 +181,6 @@ SKIP: {
}
}
-is(curr_test() - 1, $inf_tests + 1 + $nan_tests,
- "expected number of nan tests");
-
SKIP: {
unless ($has_inf && $has_nan) {
skip $infnan_tests, "no both Inf and Nan";
@@ -237,19 +191,4 @@ SKIP: {
is($PInf * $NaN, $NaN, "Inf times NaN is NaN");
is($PInf + $NaN, $NaN, "Inf plus NaN is NaN");
is($PInf - $PInf, $NaN, "Inf minus inf is NaN");
- is($PInf / $PInf, $NaN, "Inf div inf is NaN");
- is($PInf % $PInf, $NaN, "Inf mod inf is NaN");
-
- ok(!($NaN < $PInf), "NaN is not lt +inf");
- ok(!($NaN == $PInf), "NaN is not eq +inf");
- ok(!($NaN > $PInf), "NaN is not gt +inf");
-
- ok(!($NaN > $NInf), "NaN is not lt -inf");
- ok(!($NaN == $NInf), "NaN is not eq -inf");
- ok(!($NaN < $NInf), "NaN is not gt -inf");
-
- is(sin($PInf), $NaN, "sin(+inf) is nan");
}
-
-is(curr_test() - 1, $inf_tests + 1 + $nan_tests + 1 + $infnan_tests,
- "expected number of nan tests");