diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-11-11 11:42:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-11-11 13:46:36 +0000 |
| commit | 0663fb34e82518b4acd870d49820e388d5a8beb9 (patch) | |
| tree | af0ed9ff8e1c986850084eade6daa1c2dc93897b | |
| parent | cf76fa18072b984f393f8d1d42dc0ca278b6092d (diff) | |
| download | perl-0663fb34e82518b4acd870d49820e388d5a8beb9.tar.gz | |
Fix errors in the diagnostic output of t/op/cmp.t
| -rw-r--r-- | t/op/cmp.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/cmp.t b/t/op/cmp.t index 1eca8ab2b8..8c88298180 100644 --- a/t/op/cmp.t +++ b/t/op/cmp.t @@ -42,7 +42,7 @@ print "1..$expect\n"; 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"; + print "not ok $test # ($left $threeway $right) gives: $result \$i=$i \$j=$j, $boolean disagrees\n"; } my $ok = 0; @@ -212,7 +212,7 @@ for my $i (0..$#FOO) { print "ok $ok\n"; } else { - nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, 'cmp transposed'); + nok ($ok, $i3, 'cmp', $j3, $cmp, $i, $j, 'cmp transposed'); } } } |