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

Added to RainPassTest some code for setting up the defined names

Browse Source
This commit is contained in:
Neil Brown 2007-08-16 13:51:17 +00:00
parent 8a9ce4e205
commit b9a78e99e4
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
RainPassTest.hs
View File

@ -1,6 +1,6 @@
module RainPassTest (tests) where module RainPassTest (tests) where
import Test.HUnit import Test.HUnit hiding (State)
import Control.Monad.State as CSM import Control.Monad.State as CSM
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified AST as A import qualified AST as A
@ -9,13 +9,20 @@ import TreeUtil
import RainPasses import RainPasses
import CompState import CompState
import Control.Monad.Error (runErrorT) import Control.Monad.Error (runErrorT)
import Control.Monad.Identity
import Types
testEachPass0 :: Assertion testEachPass0 :: Assertion
testEachPass0 = do origResult <- (evalStateT (runErrorT (transformEach orig)) emptyState) testEachPass0 = do origResult <- (evalStateT (runErrorT (transformEach orig)) startState)
case origResult of case origResult of
Left err -> assertFailure ("testEachPass0; pass failed with: " ++ err) Left err -> assertFailure ("testEachPass0; pass failed with: " ++ err)
Right origTrans -> assertPatternMatch "testEachPass0" exp origTrans Right origTrans -> assertPatternMatch "testEachPass0" exp origTrans
where where
startState :: CompState
startState = execState startState' emptyState
startState' :: State CompState ()
startState' = do defineName (simpleName "c") A.NameDef {A.ndType = A.Declaration m A.Byte}
orig = A.Seq m orig = A.Seq m
(A.Rep m (A.Rep m
(A.ForEach m (simpleName "c") (makeLiteralString "1")) (A.ForEach m (simpleName "c") (makeLiteralString "1"))