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