yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

turned off Data and Record types, found a bad test case with lambda

Browse source
This commit is contained in:
John P Mayer Jr 2014-01-14 21:30:03 -05:00
parent afb6bd5023
commit c91815ebda
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/Tests/Property/Arbitrary.hs
View file

@ -64,9 +64,9 @@ instance Arbitrary Type where
where tipe :: Int -> Gen Type
tipe n = oneof [ Lambda <$> depthTipe <*> depthTipe
, Var <$> lowVar
, Data <$> capVar <*> listOf depthTipe
, Record <$> listOf1 field <*> (Just <$> lowVar)
, Record <$> listOf field <*> pure Nothing
--, Data <$> capVar <*> listOf depthTipe
--, Record <$> listOf1 field <*> (Just <$> lowVar)
--, Record <$> listOf field <*> pure Nothing
]
where depthTipe :: Gen Type
depthTipe = do