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

Improve error handling in Day 4 extra tests

Browse Source
This commit is contained in:
George Thomas 2026-01-05 15:13:18 +00:00
parent 7ee7b458ce
commit 7bacf5efc4
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
haskell/Puzzles/Day4.hs
View File

@ -35,13 +35,16 @@ puzzle =
pure $ Seq.fromList $ takeUntil noneAccessible frameStream
)
let nFrames = if isRealData then 58 else 9
lookupFrame n frames =
maybe (fail $ "frame list index not found: " <> show n) pure $
Seq.lookup n frames
in map
( \n ->
TestTree
(mkTestName $ show n)
( \frames ->
golden (path <> "frames/" <> show n) $
maybe "frame list too short!" drawGrid (Seq.lookup n frames)
( \frames -> do
g <- lookupFrame n frames
golden (path <> "frames/" <> show n) $ drawGrid g
)
[]
)
@ -50,7 +53,7 @@ puzzle =
"end"
( \frames -> do
assertEqual (nFrames + 1) (Seq.length frames)
Just g <- pure $ Seq.lookup nFrames frames
g <- lookupFrame nFrames frames
assert "accessible tile found" $ noneAccessible g
)
[]