diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Lua.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/Tests/Lua.hs b/test/Tests/Lua.hs index a66952de8..4040c38ac 100644 --- a/test/Tests/Lua.hs +++ b/test/Tests/Lua.hs @@ -185,6 +185,11 @@ tests = map (localOption (QuickCheckTests 20)) Lua.liftIO . assertEqual "no accessor" (("hi", ["moin"], []) :: Attr) =<< Lua.peek Lua.stackTop + , testCase "module `pandoc.system` is present" . runLua' $ do + Lua.getglobal' "pandoc.system" + ty <- Lua.ltype Lua.stackTop + Lua.liftIO $ assertEqual "module should be a table" Lua.TypeTable ty + , testCase "informative error messages" . runLua' $ do Lua.pushboolean True err <- Lua.peekEither Lua.stackTop |