test/System/Utility/H9Clock/TypeSpec.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

module System.Utility.H9Clock.TypeSpec
        ( spec
        )
where

import           Test.Hspec
import           System.Utility.H9Clock

spec :: Spec
spec = do
        let rect = Rectangle (0, 0) (250, 250)
        describe "the Rectangle record" $ do
                it "should have a string representation" $ do
                        show rect
                                `shouldBe` "Rectangle {min = (0,0), max = (250,250)}"
                it "should have a equal instance" $ do
                        rect `shouldBe` rect