@@ -3,9 +3,9 @@ module Tests.Lua ( tests ) where
33
44import Control.Monad (when)
55import System.FilePath ((</>))
6−import Test.Tasty (TestTree)
6+import Test.Tasty (TestTree, localOption)
77import Test.Tasty.HUnit (Assertion, assertEqual, testCase)
8−import Test.Tasty.QuickCheck (ioProperty, testProperty)
8+import Test.Tasty.QuickCheck (ioProperty, testProperty, QuickCheckTests(..))
99import Text.Pandoc.Arbitrary ()
1010import Text.Pandoc.Definition (Block, Inline, Meta, Pandoc)
1111import Text.Pandoc.Builder ( (<>), bulletList, doc, doubleQuoted, emph
@@ -16,7 +16,7 @@ import Text.Pandoc.Lua
1616import qualified Scripting.Lua as Lua
1717
1818tests :: [TestTree]
19−tests =
19+tests = map (localOption (QuickCheckTests 20))
2020 [ testProperty "inline elements can be round-tripped through the lua stack" $
2121 \x -> ioProperty (roundtripEqual (x::Inline))
2222