hs2048-0.1.0: test-suite/Hs2048/PointSpec.hs

module Hs2048.PointSpec (spec) where

import           Hs2048.Point
import           Test.Hspec

spec :: Spec
spec = do
    let p = (1, 2)

    describe "x" $ do
        it "returns the first value" $ do
            x p `shouldBe` 1

    describe "y" $ do
        it "returns the second value" $ do
            y p `shouldBe` 2