diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-14 19:11:16 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-14 19:49:14 +0100 |
| commit | ea8109cef731b2c876b9effa759763bf59d878aa (patch) | |
| tree | 5464409e2c045e2c14cb66443e745dc92f9015a3 /src/Output.hs | |
| parent | 11894ca067981b44a1c17612b8d85144d71f30a3 (diff) | |
Mark ignored output lines
Changelog: Mark flushed or ignored output lines
Diffstat (limited to 'src/Output.hs')
| -rw-r--r-- | src/Output.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Output.hs b/src/Output.hs index 01c0b4b..2cddabf 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -58,6 +58,7 @@ data OutputType | OutputChildFail | OutputMatch | OutputMatchFail CallStack + | OutputIgnored | OutputError | OutputAlways | OutputTestRaw @@ -89,6 +90,7 @@ outColor OutputChildInfo = T.pack "0" outColor OutputChildFail = T.pack "31" outColor OutputMatch = T.pack "32" outColor OutputMatchFail {} = T.pack "31" +outColor OutputIgnored = "90" outColor OutputError = T.pack "31" outColor OutputAlways = "0" outColor OutputTestRaw = "0" @@ -102,6 +104,7 @@ outSign OutputChildInfo = T.pack "." outSign OutputChildFail = T.pack "!!" outSign OutputMatch = T.pack "+" outSign OutputMatchFail {} = T.pack "/" +outSign OutputIgnored = "-" outSign OutputError = T.pack "!!" outSign OutputAlways = T.empty outSign OutputTestRaw = T.empty @@ -120,6 +123,7 @@ outTestLabel = \case OutputChildFail -> "child-fail" OutputMatch -> "match" OutputMatchFail {} -> "match-fail" + OutputIgnored -> "ignored" OutputError -> "error" OutputAlways -> "other" OutputTestRaw -> "" |