aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Lua.hs20
1 files changed, 10 insertions, 10 deletions
diff --git a/test/Tests/Lua.hs b/test/Tests/Lua.hs
index 1d07829f5..4bc949ddb 100644
--- a/test/Tests/Lua.hs
+++ b/test/Tests/Lua.hs
@@ -18,7 +18,7 @@ import Text.Pandoc.Class (runIOorExplode, setUserDataDir)
import Text.Pandoc.Definition (Block (BlockQuote, Div, Para), Inline (Emph, Str),
Attr, Meta, Pandoc, pandocTypesVersion)
import Text.Pandoc.Filter (Filter (LuaFilter), applyFilters)
-import Text.Pandoc.Lua (runPandocLua)
+import Text.Pandoc.Lua (runLua)
import Text.Pandoc.Options (def)
import Text.Pandoc.Shared (pandocVersion)
@@ -128,7 +128,7 @@ tests = map (localOption (QuickCheckTests 20))
(doc $ para "ignored")
(doc $ para (str $ "lua" </> "script-name.lua"))
- , testCase "Pandoc version is set" . runPandocLua' $ do
+ , testCase "Pandoc version is set" . runLua' $ do
Lua.getglobal' "table.concat"
Lua.getglobal "PANDOC_VERSION"
Lua.push ("." :: String) -- separator
@@ -136,13 +136,13 @@ tests = map (localOption (QuickCheckTests 20))
Lua.liftIO . assertEqual "pandoc version is wrong" pandocVersion
=<< Lua.peek Lua.stackTop
- , testCase "Pandoc types version is set" . runPandocLua' $ do
+ , testCase "Pandoc types version is set" . runLua' $ do
let versionNums = versionBranch pandocTypesVersion
Lua.getglobal "PANDOC_API_VERSION"
Lua.liftIO . assertEqual "pandoc-types version is wrong" versionNums
=<< Lua.peek Lua.stackTop
- , testCase "Allow singleton inline in constructors" . runPandocLua' $ do
+ , testCase "Allow singleton inline in constructors" . runLua' $ do
Lua.liftIO . assertEqual "Not the exptected Emph" (Emph [Str "test"])
=<< Lua.callFunc "pandoc.Emph" (Str "test")
Lua.liftIO . assertEqual "Unexpected element" (Para [Str "test"])
@@ -156,14 +156,14 @@ tests = map (localOption (QuickCheckTests 20))
Lua.peek Lua.stackTop
)
- , testCase "Elements with Attr have `attr` accessor" . runPandocLua' $ do
+ , testCase "Elements with Attr have `attr` accessor" . runLua' $ do
Lua.push (Div ("hi", ["moin"], [])
[Para [Str "ignored"]])
Lua.getfield Lua.stackTop "attr"
Lua.liftIO . assertEqual "no accessor" (("hi", ["moin"], []) :: Attr)
=<< Lua.peek Lua.stackTop
- , testCase "informative error messages" . runPandocLua' $ do
+ , testCase "informative error messages" . runLua' $ do
Lua.pushboolean True
err <- Lua.peekEither Lua.stackTop
case (err :: Either String Pandoc) of
@@ -185,7 +185,7 @@ roundtripEqual :: (Eq a, Lua.Peekable a, Lua.Pushable a) => a -> IO Bool
roundtripEqual x = (x ==) <$> roundtripped
where
roundtripped :: (Lua.Peekable a, Lua.Pushable a) => IO a
- roundtripped = runPandocLua' $ do
+ roundtripped = runLua' $ do
oldSize <- Lua.gettop
Lua.push x
size <- Lua.gettop
@@ -196,10 +196,10 @@ roundtripEqual x = (x ==) <$> roundtripped
Left e -> error (show e)
Right y -> return y
-runPandocLua' :: Lua.Lua a -> IO a
-runPandocLua' op = runIOorExplode $ do
+runLua' :: Lua.Lua a -> IO a
+runLua' op = runIOorExplode $ do
setUserDataDir (Just "../data")
- res <- runPandocLua op
+ res <- runLua op
case res of
Left e -> error (show e)
Right x -> return x