Avoid printing empty extra test trees

This commit is contained in:
George Thomas 2026-01-05 15:24:35 +00:00
parent 24a21e3807
commit a47e738ec2

View File

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