From 6528082401100cd8ef26c8dc3e953b960a997827 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Fri, 12 Jan 2018 21:26:34 +0100 Subject: Lua filters: improve error messages Provide more context about the task which caused an error. --- test/Tests/Lua.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'test') diff --git a/test/Tests/Lua.hs b/test/Tests/Lua.hs index bbce2ac42..9df5e79cd 100644 --- a/test/Tests/Lua.hs +++ b/test/Tests/Lua.hs @@ -123,6 +123,16 @@ tests = map (localOption (QuickCheckTests 20)) Lua.getglobal "PANDOC_API_VERSION" Lua.liftIO . assertEqual "pandoc-types version is wrong" versionNums =<< Lua.peek Lua.stackTop + + , testCase "informative error messages" . runPandocLua' $ do + Lua.pushboolean True + err <- Lua.peekEither Lua.stackTop :: Lua.Lua (Either String Pandoc) + case err of + Left msg -> do + let expectedMsg = "Could not get Pandoc value: " + ++ "expected table but got boolean." + Lua.liftIO $ assertEqual "unexpected error message" expectedMsg msg + Right _ -> error "Getting a Pandoc element from a bool should fail." ] assertFilterConversion :: String -> FilePath -> Pandoc -> Pandoc -> Assertion -- cgit v1.2.3