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

Added a test for the new outExprs pass

Browse Source
This commit is contained in:
Neil Brown 2007-10-10 23:46:58 +00:00
parent d04adba875
commit c7fe2431db
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
transformations/PassTest.hs
View File

@ -25,7 +25,9 @@ import Test.HUnit hiding (State)
import qualified AST as A import qualified AST as A
import CompState import CompState
import Metadata
import Pattern import Pattern
import SimplifyComms
import SimplifyExprs import SimplifyExprs
import TestUtil import TestUtil
import TreeUtil import TreeUtil
@ -158,6 +160,27 @@ testTransformConstr0 = TestCase $ testPass "transformConstr0" exp (transformCons
) )
skipP skipP
testOutExprs :: Test
testOutExprs = TestList
[
TestCase $ testPassWithItemsStateCheck "testOutExprs 0"
(tag2 A.Seq DontCare $ tag3 A.Spec DontCare
(tag3 A.Specification DontCare (Named "temp_var" DontCare) $ tag4 A.IsExpr DontCare A.ValAbbrev A.Int $
buildExprPattern $ Mon A.MonadicMinus (Var "x")
)
(tag2 A.OnlyP DontCare $ tag3 A.Output emptyMeta chan [tag2 A.OutExpression emptyMeta (tag2 A.ExprVariable DontCare (tag2 A.Variable DontCare (Named "temp_var" DontCare)))])
)
(outExprs $
A.Output emptyMeta chan [A.OutExpression emptyMeta $ buildExpr $ Mon A.MonadicMinus (Var "x")]
)
(defineName (xName) $ simpleDefDecl "x" A.Int)
(checkTempVarTypes "testOutExprs 0" [("temp_var", A.Int)])
]
where
chan = variable "c"
xName = simpleName "x"
--Returns the list of tests: --Returns the list of tests:
tests :: Test tests :: Test
@ -167,6 +190,7 @@ tests = TestList
,testFunctionsToProcs1 ,testFunctionsToProcs1
,testFunctionsToProcs2 ,testFunctionsToProcs2
,testTransformConstr0 ,testTransformConstr0
,testOutExprs
] ]