graphql-engine/server/src-test/Data/NonNegativeIntSpec.hs

21 lines
590 B
Haskell

module Data.NonNegativeIntSpec (spec) where
-- | basic tests on NonNegativeIntType
import Prelude
import Hasura.RQL.Types.Common (mkNonNegativeInt)
import Test.Hspec (Spec, describe, it, shouldBe)
spec :: Spec
spec = do
nonNegIntSpec
nonNegIntSpec :: Spec
nonNegIntSpec =
describe "non negative integer type" $ do
it "only validates non negative integers" $ do
(mkNonNegativeInt 23) `shouldBe` (Just 23)
(mkNonNegativeInt (-23)) `shouldBe` Nothing
-- TODO: add spec for fromJSON for NonNegativeInt type