From ac2bee7b488310cedab70667d64cd3000c71d829 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sat, 10 Nov 2007 19:17:01 +0000 Subject: [PATCH] Added a generator for A.Case to the flow-graph testing --- common/FlowGraphTest.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/common/FlowGraphTest.hs b/common/FlowGraphTest.hs index 8f58782..44a5415 100644 --- a/common/FlowGraphTest.hs +++ b/common/FlowGraphTest.hs @@ -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) ]