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

Moved wrapProcSeq into the TestUtils module

Browse Source
This commit is contained in:
Neil Brown 2008-11-19 16:09:31 +00:00
parent 3b166490f1
commit f4ff507543
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
checks/CheckTest.hs
View File

@ -26,10 +26,6 @@ import CheckFramework
import Metadata import Metadata
import TestUtils 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 :: Test
testUnusedVar = TestList testUnusedVar = TestList
[ [

6
common/TestUtils.hs
View File

@ -108,6 +108,12 @@ testCheck config property =
--}}} --}}}
--{{{ building AST fragments and patterns --{{{ 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. -- | Helper function to generate an array dimension.
dimension :: Int -> A.Dimension dimension :: Int -> A.Dimension
dimension n = makeDimension emptyMeta n dimension n = makeDimension emptyMeta n