diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-05-30 23:34:41 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 23:20:23 +0000 |
| commit | a355d973eb7817e2c7ea1f451ee3c80da9cf5765 (patch) | |
| tree | 19d497c27a2b2048efd72c9dea9766bbe5b98cd0 /t | |
| parent | 08e0cdb53693ab205dfafc01b835c6f8381d1e83 (diff) | |
| download | perl-a355d973eb7817e2c7ea1f451ee3c80da9cf5765.tar.gz | |
(was Re: [PATCH] Re: Report /pro/3gl/CPAN/perl-5.7.1)
Message-ID: <20010530223441.Y86445@plum.flirble.org>
p4raw-id: //depot/perl@10337
Diffstat (limited to '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; |