diff --git a/test/Test/Data/Map/Implicit.hs b/test/Test/Data/Map/Implicit.hs index d9efede..6f29cf0 100644 --- a/test/Test/Data/Map/Implicit.hs +++ b/test/Test/Data/Map/Implicit.hs @@ -16,6 +16,9 @@ import Control.Applicative (pure) import Data.Maybe (Maybe) import Test.Tasty.QuickCheck qualified as Tasty.QuickCheck import Test.Tasty (TestTree) +import Test.Tasty.QuickCheck (QuickCheckMaxSize(QuickCheckMaxSize)) +import Data.Function (($)) +import Test.Tasty qualified as Tasty -- | This is testworthy since I have somehow hand-hacked the read/show de/serialization of 'ImplicitMap' @@ -30,4 +33,5 @@ allTests :: [(String, Property)] allTests = $allProperties testGroup :: TestTree -testGroup = Tasty.QuickCheck.testProperties "Data.Map.Implicit" allTests +testGroup = Tasty.localOption (QuickCheckMaxSize 25) -- it is necessary to restrain the size because the generated core would get veeeeeery big otherwise + $ Tasty.QuickCheck.testProperties "Data.Map.Implicit" allTests