In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/15ed07b09b354c784e18cb6d08ffa2b3eec19073?hp=3fd158eacc9126db15ab0358a65d4c6ba00d15e8>
- Log ----------------------------------------------------------------- commit 15ed07b09b354c784e18cb6d08ffa2b3eec19073 Author: Craig A. Berry <[email protected]> Date: Sat Sep 20 18:01:58 2014 -0500 The number to skip is the second argument to skip(). Which is difficult to remember and impossible to verify if you aren't actually skipping anything. ----------------------------------------------------------------------- Summary of changes: t/op/infnan.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/op/infnan.t b/t/op/infnan.t index 8cb177d..17955e3 100644 --- a/t/op/infnan.t +++ b/t/op/infnan.t @@ -50,7 +50,7 @@ my $has_nan; SKIP: { if ($PInf == 0 && $NInf == 0) { - skip $inf_tests, "no infinity found"; + skip "no infinity found", $inf_tests; } $has_inf = 1; @@ -155,7 +155,7 @@ is(curr_test() - 1, $inf_tests, "expected number of inf tests"); SKIP: { if ($NaN == 0) { - skip $nan_tests, "no nan found"; + skip "no nan found", $nan_tests; } $has_nan = 1; @@ -229,7 +229,7 @@ is(curr_test() - 1, $inf_tests + 1 + $nan_tests, SKIP: { unless ($has_inf && $has_nan) { - skip $infnan_tests, "no both Inf and Nan"; + skip "no both Inf and Nan", $infnan_tests; } # is() okay with $NaN because it uses eq. -- Perl5 Master Repository
