Corrected the item count for replicators in the QuickCheck FlowGraph tests
This commit is contained in:
parent
45a8fa0b88
commit
0dc4b81be8
|
@ -552,7 +552,7 @@ genStructured allowed n = nextIdT >>* makeMeta' >>= \m -> (flip oneofLS) n
|
|||
--Replicators are allowed in ALTs, IFs, SEQs and PARs:
|
||||
|
||||
,cond (onlyP allowed || onlyO allowed || onlyA allowed)
|
||||
(5, genElem3 A.Rep m genReplicator . genStructured allowed . sub3)
|
||||
(4, genElem3 A.Rep m genReplicator . genStructured allowed . sub3)
|
||||
|
||||
-- Specs currently don't work with Case statements TODO
|
||||
,cond (not $ onlyO allowed) (3,genElem3 A.Spec m genSpecification . genStructured allowed . sub2 )
|
||||
|
|
Loading…
Reference in New Issue
Block a user