vegowotenks/scalie
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix[test]: don't take one minute for two tests

Browse source
This commit is contained in:
vegowotenks 2025-08-15 10:08:09 +02:00
parent c02f1b292b
commit 390308e9d7
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/Test/Data/Map/Implicit.hs
View file

@ -16,6 +16,9 @@ import Control.Applicative (pure)
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Test.Tasty.QuickCheck qualified as Tasty.QuickCheck import Test.Tasty.QuickCheck qualified as Tasty.QuickCheck
import Test.Tasty (TestTree) 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' -- | 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 allTests = $allProperties
testGroup :: TestTree 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