Moved wrapProcSeq into the TestUtils module

checks/CheckTest.hs

@@ -26,10 +26,6 @@ import CheckFramework
 import Metadata
 import TestUtils
 
-wrapProcSeq :: A.Structured A.Process -> A.AST
-wrapProcSeq x = A.Spec emptyMeta (A.Specification emptyMeta (simpleName "foo")
-  $ A.Proc emptyMeta A.PlainSpec [] $ A.Seq emptyMeta x) (A.Several emptyMeta [])
-
 testUnusedVar :: Test
 testUnusedVar = TestList
  [

common/TestUtils.hs

@@ -108,6 +108,12 @@ testCheck config property =
 --}}}
 --{{{  building AST fragments and patterns
 
+-- | Wraps a structured process into a complete AST fragment.
+wrapProcSeq :: A.Structured A.Process -> A.AST
+wrapProcSeq x = A.Spec emptyMeta (A.Specification emptyMeta (simpleName "foo")
+  $ A.Proc emptyMeta A.PlainSpec [] $ A.Seq emptyMeta x) (A.Several emptyMeta [])
+
+
 -- | Helper function to generate an array dimension.
 dimension :: Int -> A.Dimension
 dimension n = makeDimension emptyMeta n