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

Avoid printing empty extra test trees

Browse Source
This commit is contained in:
George Thomas 2026-01-05 15:24:35 +00:00
parent 24a21e3807
commit a47e738ec2
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
haskell/Main.hs
View File

@ -56,8 +56,7 @@ main =
)
[]
)
<> [ TestTree
"extra"
(\(input, _, os) -> pure (input, os))
$ extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/")
]
<> let ts = extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/")
in if null ts
then []
else [TestTree "extra" (\(input, _, os) -> pure (input, os)) ts]