q :: Testable a => String -> a -> HU.Test
q = qccheck (defaultConfig {configMaxTest = 250, configMaxFail = 5000})
allt = [q "Identity" prop_identity,
q "Lines identity" prop_linesidentity,
q "Lines list identity" prop_lineslistidentity,
q :: Testable a => String -> a -> HU.Test
q = qccheck (defaultConfig {configMaxTest = 250, configMaxFail = 5000})
allt = [q "Identity" prop_identity,
q "Lines identity" prop_linesidentity,
q "Lines list identity" prop_lineslistidentity,