@@ -7,7 +7,7 @@ import Control.Monad (when)
7import Data.Version (Version (versionBranch))
7import Data.Version (Version (versionBranch))
8import System.FilePath ((</>))
8import System.FilePath ((</>))
9import Test.Tasty (TestTree, localOption)
9import Test.Tasty (TestTree, localOption)
10−import Test.Tasty.HUnit (Assertion, assertEqual, testCase)
10+import Test.Tasty.HUnit (Assertion, assertEqual, assertFailure, testCase)
11import Test.Tasty.QuickCheck (QuickCheckTests (..), ioProperty, testProperty)
11import Test.Tasty.QuickCheck (QuickCheckTests (..), ioProperty, testProperty)
12import Text.Pandoc.Arbitrary ()
12import Text.Pandoc.Arbitrary ()
13import Text.Pandoc.Builder (bulletList, divWith, doc, doubleQuoted, emph,
13import Text.Pandoc.Builder (bulletList, divWith, doc, doubleQuoted, emph,
@@ -179,7 +179,7 @@ assertFilterConversion msg filterPath docIn docExpected = do
179 setUserDataDir (Just "../data")
179 setUserDataDir (Just "../data")
180 runLuaFilter def ("lua" </> filterPath) [] docIn
180 runLuaFilter def ("lua" </> filterPath) [] docIn
181 case docEither of
181 case docEither of
182− Left _ -> fail "lua filter failed"
182+ Left exception -> assertFailure (show exception)
183 Right docRes -> assertEqual msg docExpected docRes
183 Right docRes -> assertEqual msg docExpected docRes
185roundtripEqual :: (Eq a, Lua.FromLuaStack a, Lua.ToLuaStack a) => a -> IO Bool
185roundtripEqual :: (Eq a, Lua.FromLuaStack a, Lua.ToLuaStack a) => a -> IO Bool