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

Introduce displayDatasBecome for test JSON output

Browse Source
This commit is contained in:
thomasjm 2023-08-16 16:42:47 -07:00
parent dbea941859
commit eab83a28f0
1 changed files with 29 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,6 +42,13 @@ eval string = do
pagerout <- readIORef pagerAccum
return (reverse out, unlines . map extractPlain . reverse $ pagerout)
displayDatasBecome :: String -> [Display] -> IO ()
displayDatasBecome command desired = do
(displays, _output) <- eval command
when (displays /= desired) $
expectationFailure $ "Expected display datas to be " ++ show (encode desired)
++ ". Got " ++ show (encode displays)
becomes :: String -> [String] -> IO ()
becomes string expected = evaluationComparing comparison string
where
@ -156,27 +163,31 @@ testEval =
it "evaluates :in directive" $ do
#if MIN_VERSION_ghc(8,10,0)
(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>"
]]]
displayDatasBecome ":in String" [
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,4,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>"
]]]
displayDatasBecome ":in String" [
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>"
]]
]
#elif MIN_VERSION_ghc(8,2,0)
(displays, _output) <- eval ":in String"
displays `shouldBe` [ManyDisplay [Display [
DisplayData PlainText "type String = [Char] \t-- Defined in `GHC.Base'"
]]]
displayDatasBecome ":in String" [
ManyDisplay [Display [
DisplayData PlainText "type String = [Char] \t-- Defined in `GHC.Base'"
]]
]
#else
(displays, _output) <- eval ":in String"
displays `shouldBe` [ManyDisplay [Display [
DisplayData PlainText "type String :: *\ntype String = [Char]\n \t-- Defined in \8216GHC.Base\8217"
]]]
displayDatasBecome ":in String" [
ManyDisplay [Display [
DisplayData PlainText "type String :: *\ntype String = [Char]\n \t-- Defined in \8216GHC.Base\8217"
]]
]
#endif
it "captures stderr" $ do