registry-hedgehog-aeson-0.2.0.0: test/Test/Data/Registry/Hedgehog/AesonGeneratorsSpec.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE PartialTypeSignatures #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# OPTIONS_GHC -fno-warn-partial-type-signatures #-}

module Test.Data.Registry.Hedgehog.AesonGeneratorsSpec where

import Protolude
import Test.Tasty.Hedgehogx
-- uncomment to display the generated values
-- import Data.Registry.Hedgehog.AesonGenerators

-- | Sanity check
test_json_simple_values = prop "generate simple json values" $ do
  -- uncomment to display the generated values
  -- values <- forAll (genValueWith (setDepth 0))
  -- collect values
  success

test_json_complex_values = prop "generate complex json values" $ do
  -- uncomment to display the generated values
  -- values <- forAll (genValueWith (setDepth 2))
  -- collect values
  success