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

Minor refactor

Browse Source
This commit is contained in:
George Thomas 2025-12-02 08:53:18 +00:00
parent 14cc0c94ff
commit ea6ca4158c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/Main.hs
View File

@ -21,13 +21,15 @@ main =
puzzleTest :: Puzzle a -> TestTree puzzleTest :: Puzzle a -> TestTree
puzzleTest p = puzzleTest p =
testGroup (show p.number) $ testGroup pt $
["examples", "real"] <&> \t -> ["examples", "real"] <&> \t ->
withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> t <> "/" <> show p.number)) mempty \input -> withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> t <> "/" <> pt)) mempty \input ->
testGroup t $ testGroup t $
[("1", p.part1), ("2", p.part2)] <&> \(n, pp) -> [("1", p.part1), ("2", p.part2)] <&> \(n, pp) ->
goldenVsString n ("outputs/" <> t <> "/" <> show p.number <> "/" <> n) $ goldenVsString n ("outputs/" <> t <> "/" <> pt <> "/" <> n) $
BL.fromStrict . encodeUtf8 . pp.solve <$> input BL.fromStrict . encodeUtf8 . pp.solve <$> input
where
pt = show p.number
data Puzzle input = Puzzle data Puzzle input = Puzzle
{ number :: Word { number :: Word