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

Check day 4 number of frames is as expected

Browse Source
This commit is contained in:
George Thomas 2026-01-04 11:13:39 +00:00
parent 234640fb1a
commit f6771a7131
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
haskell/Puzzles/Day4.hs
View File

@ -34,6 +34,7 @@ puzzle =
it (show n) . pureGoldenTextFile (path <> "frames/" <> show n) $ it (show n) . pureGoldenTextFile (path <> "frames/" <> show n) $
maybe "frame list too short!" drawGrid (Seq.lookup n frames) maybe "frame list too short!" drawGrid (Seq.lookup n frames)
it "end" do it "end" do
Seq.length frames `shouldBe` (nFrames + 1)
Just g <- pure $ Seq.lookup nFrames frames Just g <- pure $ Seq.lookup nFrames frames
(g `shouldSatisfyNamed` "accessible tile found") noneAccessible (g `shouldSatisfyNamed` "accessible tile found") noneAccessible
} }