instance Arbitrary Character where
arbitrary = genRandom randomCharacter
instance CoArbitrary Character where
- variateSeed _ seed v = seed + fromInteger (hash (showCharacter v))
+ variateSeed _ seed v = seed + fromInteger (hashCode (showCharacter v))
"""Generates a random string that is a valid SCL or Java identifier"""
arbitraryIdentifier = Gen $ \n -> string (Vector.vectorF (1+randomN (max n 1))
instance Arbitrary String where
arbitrary = Gen $ \n -> string (Vector.vectorF (randomN (1+n)) (\_ -> randomCharacter))
instance CoArbitrary String where
- variateSeed _ seed v = seed + fromInteger (hash v)
+ variateSeed _ seed v = seed + fromInteger (hashCode v)
instance Arbitrary () where
arbitrary = genRandom ()