diff options
Diffstat (limited to 'test/Tests/Lua.hs')
| -rw-r--r-- | test/Tests/Lua.hs | 20 |
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 |