mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 20:41:49 +03:00
21 lines
590 B
Haskell
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 |