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];
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";
}
}
}