module ConstraintSpec (main, spec) where

import Test.Hspec

import Constraint

main :: IO ()
main = hspec spec

spec :: Spec
spec = describe "Constraint" $ do
  it "can be created from number" $
    makeRangeFromNumber 10 `shouldBe` Constraint 10 10

  it "validate number" $
    10 `inRange` Constraint 0 10 `shouldBe` True

  it "validate number" $
    10 `inRange` Constraint 15 20 `shouldBe` False