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

import           Test.Hspec
import           System.Utility.H9Clock
import           System.Utility.H9Clock.Test.Util

spec :: Spec
spec = do
        let rect = Rectangle (0, 0) (250, 250)
        describe "mkHandPts" $ do
                it "should create hourHand and minHand points" $ do
                        mkHandsPts rect 16 30 `shouldBe` handPts

        describe "Clock color" $ do
                context "of the hour hand" $ do
                        it "should be Dark Blue" $ do
                                getRGB darkBlue `shouldBe` (0, 0, 85)
                context "of the min hand" $ do
                        it "should be Pale Blue" $ do
                                getRGB paleBlue `shouldBe` (0, 0, 187)
                context "of the background" $ do
                        it "should be Pale Blue Green" $ do
                                getRGB paleBlueGreen `shouldBe` (236, 254, 252)

        describe "Clock dots" $ do
                it "should be produced by 23 points" $ do
                        dotsPts 4 4 rect `shouldBe` dPts