suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added a generator for A.Case to the flow-graph testing

Browse Source
This commit is contained in:
Neil Brown 2007-11-10 19:17:01 +00:00
parent f050dadaec
commit ac2bee7b48
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
common/FlowGraphTest.hs
View File

@ -408,6 +408,7 @@ genProcess n = nextIdT >>* makeMeta' >>= \m -> (flip oneofLS) n
,(2,genElem2 A.Seq m . genStructured justP . sub1)
,(2,genElem3 A.Par m (comb0 A.PlainPar) . genStructured justP . sub1)
,(2,genElem2 A.If m . genStructured justC . sub1)
,(3,genElem3 A.Case m genExpression . genStructured justO . sub2)
]