Define variables necessary for some of the constant-folding tests.

frontends/OccamPassesTest.hs

@@ -45,6 +45,7 @@ startState
                                  undefined
           defineConst "someBytes" (A.Array [A.UnknownDimension] A.Byte)
                                   undefined
+          defineVariable "var" A.Int
 
 -- | Test 'OccamPasses.foldConstants'.
 testFoldConstants :: Test

frontends/RainTypesTest.hs

@@ -66,7 +66,7 @@ constantFoldTest = TestList
    foldCon n exp orig = TestCase $ testPass ("constantFoldTest " ++ show n) (buildExprPattern exp) (constantFoldPass $ buildExpr orig) state
 
    state :: State CompState ()
-   state = return ()
+   state = defineVariable "x" A.Int64
 
    lit :: Integer -> ExprHelper
    lit n = Lit $ int64Literal n