This commit is contained in:
George Thomas 2025-12-04 20:11:37 +00:00
parent 8f67916e1a
commit 2f35bd9251

View File

@ -36,8 +36,7 @@ main =
in
withResource (parseFile $ "../inputs/" <> t <> "/" <> pt) mempty \input ->
testGroup pt $
(
zip (map show [1 :: Int ..]) parts <&> \(n, pp) ->
( zip (map show [1 :: Int ..]) parts <&> \(n, pp) ->
goldenVsString n ("../outputs/" <> t <> "/" <> pt <> "/" <> n) $
BL.fromStrict . encodeUtf8 . pp <$> input
)