Test patches for OS/2

[p5sagit/p5-mst-13.2.git] / t / op / cmp.t

diff --git a/t/op/cmp.t b/t/op/cmp.t
index aba7c2e..4a7e68d 100755 (executable)
--- a/t/op/cmp.t
+++ b/t/op/cmp.t
@@ -18,7 +18,7 @@ for my $i (0..$#FOO) {
            print "ok $ok\n";
        }
        else {
-           print "not ok $ok ($FOO[$i] <=> $FOO[$j])\n";
+           print "not ok $ok ($FOO[$i] <=> $FOO[$j]) gives: '$cmp'\n";
        }
        $ok++;
        $cmp = $FOO[$i] cmp $FOO[$j];
@@ -29,7 +29,7 @@ for my $i (0..$#FOO) {
            print "ok $ok\n";
        }
        else {
-           print "not ok $ok ($FOO[$i] cmp $FOO[$j])\n";
+           print "not ok $ok ($FOO[$i] cmp $FOO[$j]) gives '$cmp'\n";
        }
     }
 }