puzzle-draw-0.2.0.0: tests/Data/Puzzles/GridShapeSpec.hs

module Data.Puzzles.GridShapeSpec where

import Test.Hspec (Spec, describe, it, shouldBe)

import Data.Puzzles.GridShape

spec :: Spec
spec = do
    describe "edgeSize" $ do
        it "computes the size in cells" $ do
            edgeSize [E (N 1 1) Vert, E (N 2 1) Horiz] `shouldBe` (3, 2)