mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-15 19:06:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Working on Eval.h test for 8.8 and 8.6

Browse Source
This commit is contained in:
thomasjm 2023-08-16 02:50:59 -07:00
parent 0b8474bc29
commit 372261871b
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/tests/IHaskell/Test/Eval.hs
View File

@ -6,7 +6,6 @@ module IHaskell.Test.Eval (testEval) where
import Prelude
import Data.List (stripPrefix)
import Control.Monad (when, forM_)
import Data.IORef (newIORef, modifyIORef, readIORef)
import System.Directory (getTemporaryDirectory, setCurrentDirectory)
@ -18,7 +17,6 @@ import qualified GHC.Paths
import Test.Hspec
import IHaskell.Eval.Evaluate (interpret, evaluate)
import IHaskell.IPython (defaultKernelSpecOptions)
import IHaskell.Test.Util (strip)
import IHaskell.Types (Display(..), DisplayData(..), EvaluationResult(..), KernelState(..),
LintStatus(..), MimeType(..), defaultKernelState, extractPlain)
@ -157,16 +155,23 @@ testEval =
it "evaluates :in directive" $ do
#if MIN_VERSION_ghc(8,10,0)
(displays, output) <- eval ":in String"
(displays, _output) <- eval ":in String"
displays `shouldBe` [ManyDisplay [Display [
DisplayData PlainText "type String :: *\ntype String = [Char]\n \t-- Defined in \8216GHC.Base\8217"
, DisplayData MimeHtml "<div class=\"code CodeMirror cm-s-jupyter cm-s-ipython\"><span class=\"cm-keyword\">type</span><span class=\"cm-space\"> </span><span class=\"cm-variable-2\">String</span><span class=\"cm-space\"> </span><span class=\"cm-atom\">::</span><span class=\"cm-space\"> </span><span class=\"cm-atom\">*</span><span class=\"cm-space\"><br /></span>\n<span class=\"cm-keyword\">type</span><span class=\"cm-space\"> </span><span class=\"cm-variable-2\">String</span><span class=\"cm-space\"> </span><span class=\"cm-atom\">=</span><span class=\"cm-space\"> </span><span class=\"cm-atom\">[</span><span class=\"cm-variable-2\">Char</span><span class=\"cm-atom\">]</span><span class=\"cm-space\"><br /> \t</span><span class=\"cm-comment\">-- Defined in \8216GHC.Base\8217</span><span class=\"cm-space\"><br /></span></div>"
]]]
#elif MIN_VERSION_ghc(8,6,0)
(displays, _output) <- eval ":in String"
displays `shouldBe` [ManyDisplay [Display [
DisplayData PlainText "type String = [Char] \t-- Defined in `GHC.Base'"
, DisplayData MimeHtml "<div class=\"code CodeMirror cm-s-jupyter cm-s-ipython\"><span class=\"cm-keyword\">type</span><span class=\"cm-space\"> </span><span class=\"cm-variable-2\">String</span><span class=\"cm-space\"> </span><span class=\"cm-atom\">=</span><span class=\"cm-space\"> </span><span class=\"cm-atom\">[</span><span class=\"cm-variable-2\">Char</span><span class=\"cm-atom\">]</span><span class=\"cm-space\"> \t</span><span class=\"cm-comment\">-- Defined in `GHC.Base'</span><span class=\"cm-space\"><br /></span></div>"
]]]
#else
":in String" `becomes` [ManyDisplay [Display [
DisplayData PlainText "type String :: *\ntype String = [Char]\n \t-- Defined in \8216GHC.Base\8217"]
]]
(displays, _output) <- eval ":in String"
displays `shouldBe` [ManyDisplay [Display [
DisplayData PlainText "type String :: *\ntype String = [Char]\n \t-- Defined in \8216GHC.Base\8217"]
]]
#endif
it "captures stderr" $ do