Commit fd2a2ef2 authored by Eyal Dechter's avatar Eyal Dechter

More clean up.

parent 368dd190
......@@ -73,6 +73,7 @@ library
directory,
here,
system-filepath,
filemanip,
filepath,
cereal ==0.3.*,
text >=0.11,
......@@ -133,6 +134,7 @@ executable IHaskell
directory,
here,
system-filepath,
filemanip,
filepath,
cereal ==0.3.*,
text >=0.11,
......
......@@ -18,8 +18,12 @@ import IHaskell.Eval.Parser
import IHaskell.Types
import IHaskell.IPython
import IHaskell.Eval.Evaluate as Eval hiding (liftIO)
import qualified IHaskell.Eval.Evaluate as Eval (liftIO)
import IHaskell.Eval.Completion
import Debug.Trace
import Test.Hspec
import Test.Hspec.HUnit
......@@ -162,7 +166,8 @@ completionTests = do
withHsDirectory $ \dirPath ->
let loading xs = ":load " ++ encodeString xs
paths xs = map encodeString xs
completionHas' = completionHas_ $ Eval.evaluate defaultKernelState
completionHas' = completionHas_ $
do Eval.evaluate defaultKernelState
(":! cd " ++ dirPath)
(\b d -> return ())
in liftIO $ do
......@@ -171,6 +176,7 @@ completionTests = do
loading ("" </> "file1!") `completionHas'` paths ["" </> "file1.hs",
"" </> "file1.lhs"]
evalTests = do
describe "Code Evaluation" $ do
it "evaluates expressions" $ do
......
......@@ -193,5 +193,3 @@ completePath currDir exts prefix
| otherwise = z
cut _ z = z
in relativeCompletions
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment