From 0f0be6e4a30838e0c09256aee118a50263e05e17 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 30 Jan 2008 19:14:33 +0000 Subject: [PATCH] Added support for replicators to the quickcheck tests (actually applying the modification functions) --- common/FlowGraphTest.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/common/FlowGraphTest.hs b/common/FlowGraphTest.hs index 810c1ba..c6b66a6 100644 --- a/common/FlowGraphTest.hs +++ b/common/FlowGraphTest.hs @@ -595,6 +595,7 @@ pickFuncId g = map (applyFunc . getFunc) (labNodes g) applyFunc (AlterProcess f) = f return applyFunc (AlterExpression f) = f return applyFunc (AlterExpressionList f) = f return + applyFunc (AlterReplicator f) = f return applyFunc (AlterSpec f) = f return applyFunc (AlterNothing) = return @@ -610,6 +611,7 @@ pickFuncRep gr = Map.fromList $ map (helpApplyFunc . getMetaFunc) (labNodes gr) applyFunc (m,AlterProcess f) = f (g m) applyFunc (m,AlterExpression f) = f (g m) applyFunc (m,AlterExpressionList f) = f (g m) + applyFunc (m,AlterReplicator f) = f (g m) applyFunc (m,AlterSpec f) = f (g m) applyFunc (m,AlterNothing) = g m