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

Make test tree reflect directory tree

Browse Source
This commit is contained in:
George Thomas 2025-12-02 14:26:45 +00:00
parent 0d236a2f2c
commit 60acecb993
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
app/Main.hs
View File

@ -23,18 +23,17 @@ main =
defaultMain defaultMain
. localOption (Always :: UseColor) . localOption (Always :: UseColor)
. testGroup "tests" . testGroup "tests"
$ map $ ["examples", "real"] <&> \s ->
puzzleTest testGroup s $
[ puzzle1 puzzleTest s
, puzzle2 <$> [ puzzle1
] , puzzle2
]
puzzleTest :: Puzzle -> TestTree puzzleTest :: FilePath -> Puzzle -> TestTree
puzzleTest Puzzle{number, parser, parts} = puzzleTest t Puzzle{number, parser, parts} =
testGroup pt $
["examples", "real"] <&> \t ->
withResource (parseFile $ "inputs/" <> t <> "/" <> pt) mempty \input -> withResource (parseFile $ "inputs/" <> t <> "/" <> pt) mempty \input ->
testGroup t $ testGroup pt $
zip (map show [1 :: Int ..]) parts <&> \(n, pp) -> zip (map show [1 :: Int ..]) parts <&> \(n, pp) ->
goldenVsString n ("outputs/" <> t <> "/" <> pt <> "/" <> n) $ goldenVsString n ("outputs/" <> t <> "/" <> pt <> "/" <> n) $
BL.fromStrict . encodeUtf8 . pp <$> input BL.fromStrict . encodeUtf8 . pp <$> input