t/regress: debug output on error status

[barcat.git] / t / regress.t

diff --git a/t/regress.t b/t/regress.t
index 06d926e969ca339534592f1fb1e31e14b4f5c7b6..a382f43fb113b97ab76666b1ec9591d1ff83d4d9 100755 (executable)
--- a/t/regress.t
+++ b/t/regress.t
@@ -69,6 +69,7 @@ for my $candidate (@params) {
        if ($error != $wantexit) {
                fail($name);
                diag("unexpected exit status $error");
+               diag(color(31), '> ', color(0), $_) for @lines;
                diag("command: $script");
                next;
        }