Shorten test name for cleaner CLI output
This commit is contained in:
parent
e6bf315716
commit
7ba96ee3e5
@ -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
|
||||||
]
|
]
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user