get tests working

Author: Stuart Popejoy

tests/PactTestsSpec.hs

@@ -41,7 +41,7 @@ findTests = (map (tdir </>) . filter ((== ".repl") . reverse . take 5 . reverse)
 
 runScript :: String -> SpecWith ()
 runScript fp = describe fp $ do
-  (r,ReplState{..}) <- runIO $ execScript' (Script fp) fp
+  (r,ReplState{..}) <- runIO $ execScript' (Script False fp) fp
   case r of
     Left e -> fail e
     Right _ -> do

tests/TypecheckSpec.hs

@@ -54,7 +54,7 @@ checkFuns = describe "tc.pact typecheck" $ do
 
 loadModule :: FilePath -> ModuleName -> IO ModuleData
 loadModule fp mn = do
-  (r,s) <- execScript' (Script fp) fp
+  (r,s) <- execScript' (Script False fp) fp
   either (die def) (const (return ())) r
   case view (rEnv . eeRefStore . rsModules . at mn) s of
     Just m -> return m