Shorten test name for cleaner CLI output

This commit is contained in:
George Thomas 2025-12-05 13:49:04 +00:00
parent e6bf315716
commit 7ba96ee3e5

View File

@ -47,7 +47,7 @@ puzzle =
goldenVsString (show n) (path <> "frames/" <> show n) $ goldenVsString (show n) (path <> "frames/" <> show n) $
encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames
) )
<> [ testCase "nothing accessible in last frame" do <> [ testCase "end" do
Just g <- Seq.lookup nFrames <$> frames Just g <- Seq.lookup nFrames <$> frames
assertBool "accessible tile found" $ noneAccessible g assertBool "accessible tile found" $ noneAccessible g
] ]