diff options
Diffstat (limited to 'test/Tests/Lua.hs')
-rw-r--r-- | test/Tests/Lua.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Tests/Lua.hs b/test/Tests/Lua.hs index 0f6619240..66dc2a6dd 100644 --- a/test/Tests/Lua.hs +++ b/test/Tests/Lua.hs @@ -120,7 +120,7 @@ tests = map (localOption (QuickCheckTests 20)) , testCase "Pandoc types version is set" . runPandocLua' $ do let versionNums = versionBranch pandocTypesVersion Lua.getglobal "PANDOC_API_VERSION" - Lua.liftIO . assertEqual "pandoc version is wrong" versionNums + Lua.liftIO . assertEqual "pandoc-types version is wrong" versionNums =<< Lua.peek Lua.stackTop ] @@ -145,7 +145,7 @@ roundtripEqual x = (x ==) <$> roundtripped error ("not exactly one additional element on the stack: " ++ show size) res <- Lua.peekEither (-1) case res of - Left _ -> error "could not read from stack" + Left e -> error (show e) Right y -> return y runPandocLua' :: Lua.Lua a -> IO a |