19 lines
431 B
Haskell
19 lines
431 B
Haskell
module ConstraintSpec
|
|
( main
|
|
, spec
|
|
) where
|
|
|
|
import Constraint
|
|
import Test.Hspec
|
|
|
|
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
|