diff options
Diffstat (limited to 't/op/cmp.t')
| -rwxr-xr-x | t/op/cmp.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/op/cmp.t b/t/op/cmp.t index 243aabec7d..c6d72f13eb 100755 --- a/t/op/cmp.t +++ b/t/op/cmp.t @@ -37,7 +37,7 @@ $uv_bigi |= 0x0; $expect = 6 * ($#FOO+2) * ($#FOO+1); print "1..$expect\n"; -sub nok { +sub nok ($$$$$$$$) { my ($test, $left, $threeway, $right, $result, $i, $j, $boolean) = @_; $result = defined $result ? "'$result'" : 'undef'; print "not ok $test # ($left <=> $right) gives: $result \$i=$i \$j=$j, $boolean disagrees\n"; @@ -79,7 +79,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '=='); + nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '=='); } $ok++; if (!defined($cmp) ? !($i5 > $j5) @@ -90,7 +90,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '>'); + nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '>'); } $ok++; if (!defined($cmp) ? !($i6 >= $j6) @@ -101,7 +101,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '>='); + nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '>='); } $ok++; # OK, so the docs are wrong it seems. NaN != NaN @@ -113,7 +113,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '!='); + nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '!='); } $ok++; if (!defined($cmp) ? !($i8 <= $j8) @@ -124,7 +124,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - nok ($ok, $i3. '<=>', $j3, $cmp, $i, $j, '<='); + nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '<='); } $ok++; $cmp = $i9 cmp $j9; |