Test.Syd.Validity.Aeson

Standard test Specs and raw Propertys for FromJSON and ToJSON instances.

You will need TypeApplications to use these.

Documentation

jsonSpecOnValid :: forall a. (Show a, Eq a, Typeable a, GenValid a, FromJSON a, ToJSON a) => Spec

Standard test spec for properties of JSON-related functions for valid values

Example usage:

jsonSpecOnValid @Rational

jsonSpec :: forall a. (Show a, Eq a, Typeable a, GenUnchecked a, FromJSON a, ToJSON a) => Spec

Standard test spec for properties of JSON-related functions for unchecked values

Example usage:

jsonSpec @Int

jsonSpecOnArbitrary :: forall a. (Show a, Eq a, Typeable a, Arbitrary a, FromJSON a, ToJSON a) => Spec

Standard test spec for properties of JSON-related functions for arbitrary values

Example usage:

jsonSpecOnArbitrary @Int

jsonSpecOnGen :: forall a. (Show a, Eq a, Typeable a, FromJSON a, ToJSON a) => Gen a -> String -> (a -> [a]) -> Spec

Standard test spec for properties of JSON-related functions for a given generator (and a name for that generator).

Example usage:

jsonSpecOnGen (genListOf $ pure 'a') "sequence of 'a's"

neverFailsToEncodeOnGen :: (Show a, ToJSON a) => Gen a -> (a -> [a]) -> Property

neverFailsToEncodeOnGen @Bool arbitrary shrink

neverFailsToEncodeOnGen @Bool genUnchecked shrinkUnchecked

neverFailsToEncodeOnGen @Bool genValid shrinkValid

neverFailsToEncodeOnGen @Int arbitrary shrink

neverFailsToEncodeOnGen @Int genUnchecked shrinkUnchecked

neverFailsToEncodeOnGen @Int genValid shrinkValid

encodeAndDecodeAreInversesOnGen :: (Show a, Eq a, FromJSON a, ToJSON a) => Gen a -> (a -> [a]) -> Property

encodeAndDecodeAreInversesOnGen @Bool arbitrary shrink

encodeAndDecodeAreInversesOnGen @Bool genUnchecked shrinkUnchecked

encodeAndDecodeAreInversesOnGen @Bool genValid shrinkValid

encodeAndDecodeAreInversesOnGen @Int arbitrary shrink

encodeAndDecodeAreInversesOnGen @Int genUnchecked shrinkUnchecked

encodeAndDecodeAreInversesOnGen @Int genValid shrinkValid