patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Indent test failures

Browse Source
This commit is contained in:
George Thomas 2026-01-07 01:11:45 +00:00
parent ffbdd8744e
commit b80743c840
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
haskell/Pre.hs
View File

@ -318,12 +318,11 @@ displayTestResultsConsole terminalWidth testResult =
TL.fromStrict $ TL.fromStrict $
header Red '✗' name indent Nothing header Red '✗' name indent Nothing
<> setColour Vivid Red <> setColour Vivid Red
<> case e of <> paddedAllLines (T.replicate (indent * 2) " ") case e of
ExceptionFailure ex -> T.show ex ExceptionFailure ex -> T.show ex
AssertionFailure t -> T.stripEnd t AssertionFailure t -> T.stripEnd t
GoldenFailure{expected, actual} -> GoldenFailure{expected, actual} ->
"Expected:\n" <> T.stripEnd expected <> "\nActual:\n" <> T.stripEnd actual "Expected:\n" <> T.stripEnd expected <> "\nActual:\n" <> T.stripEnd actual
<> "\n"
header colour icon name indent time = header colour icon name indent time =
setColour Vivid colour setColour Vivid colour
<> T.singleton icon <> T.singleton icon
@ -346,6 +345,7 @@ displayTestResultsConsole terminalWidth testResult =
) )
time time
<> "\n" <> "\n"
paddedAllLines p = T.unlines . map (p <>) . T.lines
showTime (nominalDiffTimeToSeconds -> MkFixed duration) = showTime (nominalDiffTimeToSeconds -> MkFixed duration) =
-- SI prefixes, and always exactly 2 decimal places, or 3 if there's no prefix -- SI prefixes, and always exactly 2 decimal places, or 3 if there's no prefix
T.show res T.show res