This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix errors in the diagnostic output of t/op/cmp.t
authorNicholas Clark <nick@ccl4.org>
Thu, 11 Nov 2010 11:42:38 +0000 (11:42 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 11 Nov 2010 13:46:36 +0000 (13:46 +0000)
t/op/cmp.t

index 1eca8ab..8c88298 100644 (file)
@@ -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');
        }
     }
 }