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