Generic.Random

Simple GHC.Generics-based arbitrary generators.

For more information:

• Generic.Random.Tutorial
• https://byorgey.wordpress.com/2016/09/20/the-generic-random-library-part-1-simple-generic-arbitrary-instances/

Arbitrary implementations

genericArbitrary

Arguments

:: GArbitrary UnsizedOpts a

=> Weights a

List of weights for every constructor

-> Gen a

Pick a constructor with a given distribution, and fill its fields with recursive calls to arbitrary.

Example

genericArbitrary (2 % 3 % 5 % ()) :: Gen a

Picks the first constructor with probability 2/10, the second with probability 3/10, the third with probability 5/10.

genericArbitraryU :: (GArbitrary UnsizedOpts a, GUniformWeight a) => Gen a

Pick every constructor with equal probability. Equivalent to genericArbitrary uniform.

genericArbitraryU :: Gen a

genericArbitrarySingle :: (GArbitrary UnsizedOpts a, Weights_ (Rep a) ~ L c0) => Gen a

arbitrary for types with one constructor. Equivalent to genericArbitraryU, with a stricter type.

genericArbitrarySingle :: Gen a

genericArbitraryRec

Arguments

:: GArbitrary SizedOpts a

=> Weights a

List of weights for every constructor

-> Gen a

Decrease size at every recursive call, but don't do anything different at size 0.

genericArbitraryRec (7 % 11 % 13 % ()) :: Gen a

genericArbitrary'

Arguments

:: (GArbitrary SizedOpts a, BaseCase a)

=> Weights a

List of weights for every constructor

-> Gen a

Decrease size to ensure termination for recursive types, looking for base cases once the size reaches 0.

genericArbitrary' (17 % 19 % 23 % ()) :: Gen a

genericArbitraryU' :: (GArbitrary SizedOpts a, BaseCase a, GUniformWeight a) => Gen a

Equivalent to genericArbitrary' uniform.

genericArbitraryU :: Gen a

genericArbitraryG :: GArbitrary (SetGens g UnsizedOpts) a => GenList g -> Weights a -> Gen a

genericArbitrary with explicit generators.

Example

genericArbitraryG customGens (17 % 19 % ())

where, for example to override generators for String and Int fields,

customGens :: GenList '[String, Int]
customGens =
  (filter (/= '\NUL') <$> arbitrary) :@
  (getNonNegative <$> arbitrary) :@
  Nil

Note on multiple matches

If the list contains multiple matching types for a field x of type a (i.e., either a or Field "x" a), the generator for the first match will be picked.

genericArbitraryUG :: (GArbitrary (SetGens g UnsizedOpts) a, GUniformWeight a) => GenList g -> Gen a

genericArbitraryU with explicit generators. See also genericArbitraryG.

genericArbitrarySingleG :: (GArbitrary (SetGens g UnsizedOpts) a, Weights_ (Rep a) ~ L c0) => GenList g -> Gen a

genericArbitrarySingle with explicit generators. See also genericArbitraryG.

genericArbitraryRecG

Arguments

:: GArbitrary (SetGens g SizedOpts) a

=> GenList g

-> Weights a

List of weights for every constructor

-> Gen a

genericArbitraryRec with explicit generators. See also genericArbitraryG.

genericArbitraryWith :: GArbitrary opts a => opts -> Weights a -> Gen a

General generic generator with custom options.

Base cases for recursive types

withBaseCase :: Gen a -> Gen a -> Gen a

Run the first generator if the size is positive. Run the second if the size is zero.

defaultGen `withBaseCase` baseCaseGen

class BaseCase a where

Custom instances can override the default behavior.

Minimal complete definition

baseCase

Methods

baseCase :: Gen a

Generator of base cases.

Instances

BaseCaseSearching Nat a 0 => BaseCase a

Overlappable

Methods

baseCase :: Gen a

Specifying finite distributions

data Weights a

Trees of weights assigned to constructors of type a, rescaled to obtain a probability distribution.

Two ways of constructing them.

(x1 % x2 % ... % xn % ()) :: Weights a
uniform :: Weights a

Using (%), there must be exactly as many weights as there are constructors.

uniform is equivalent to (1 % ... % 1 % ()) (automatically fills out the right number of 1s).

Instances

WeightBuilder (Weights_ (Rep a)) => WeightBuilder' (Weights a)

Methods

(%) :: W (First' (Weights a)) -> Prec' (Weights a) -> Weights a

data W (c :: Symbol)

Type of a single weight, tagged with the name of the associated constructor for additional compile-time checking.

((9 :: W "Leaf") % (8 :: W "Node") % ())

Instances

Num (W c)

Methods

(+) :: W c -> W c -> W c

(-) :: W c -> W c -> W c

(*) :: W c -> W c -> W c

negate :: W c -> W c

abs :: W c -> W c

signum :: W c -> W c

fromInteger :: Integer -> W c

(%) :: WeightBuilder' w => W (First' w) -> Prec' w -> w infixr 1

A binary constructor for building up trees of weights.

uniform :: UniformWeight_ (Rep a) => Weights a

Uniform distribution.

Full options

data Options (s :: Sizing) (g :: [Type])

Type-level options for GArbitrary.

Instances

HasGenerators (Options s g)

Methods

generators :: Options s g -> GenList (GeneratorsOf (Options s g))

type SetGens g (Options s _g)

type SetGens g (Options s _g) = Options s g

type GeneratorsOf (Options _s g)

type GeneratorsOf (Options _s g) = g

type SizingOf (Options s _g)

type SizingOf (Options s _g) = s

type SizedOpts = (Options Sized '[] :: Type)

sizedOpts :: SizedOpts

type UnsizedOpts = (Options Unsized '[] :: Type)

unsizedOpts :: UnsizedOpts

data Sizing

Whether to decrease the size parameter before generating fields.

Constructors

Sized

Unsized

setSized :: Options s g -> Options Sized g

setUnsized :: Options s g -> Options Unsized g

data GenList (g :: [Type]) where

Heterogeneous list of generators.

Constructors

Nil :: GenList '[]

(:@) :: Gen a -> GenList g -> GenList (a ': g) infixr 3

newtype Field (s :: Symbol) a

A marker for a generator which overrides a specific field named s.

Available only for base >= 4.9.

Constructors

Field

Fields

• unField :: a

Instances

ArbitraryOr ((:) * (Field n a) g) (Just Symbol n) a

Methods

arbitraryOr :: proxy (Just Symbol n) -> GenList ((* ': Field n a) g) -> Gen a

field :: proxy s -> a -> Field s a

Field constructor with the field name given via a proxy.

setGenerators :: GenList g -> Options s g0 -> Options s g

Public classes

class (Generic a, GA opts (Rep a)) => GArbitrary opts a

Generic Arbitrary

Instances

(Generic a, GA opts (Rep a)) => GArbitrary opts a

class UniformWeight_ (Rep a) => GUniformWeight a

Derived uniform distribution of constructors for a.

Instances

UniformWeight_ (Rep a) => GUniformWeight a