File tree Expand file tree Collapse file tree 2 files changed +8
-13
lines changed Expand file tree Collapse file tree 2 files changed +8
-13
lines changed Original file line number Diff line number Diff line change 9
9
} :
10
10
let
11
11
inherit pkgs ;
12
- tests = 10000 ;
13
12
project = {
14
13
src = ./. ;
15
14
29
28
30
29
# Enable strict compilation
31
30
lambda-buffers-compiler . configureFlags = [ "-f-dev" ] ;
32
-
33
- # Set the number of QuickCheck and Hedgehog tests
34
- lambda-buffers-compiler . components . tests . lambda-buffers-compiler-tests . configureFlags = [
35
- "--hedgehog-tests=${ tests } "
36
- "--quickcheck-tests=${ tests } "
37
- ] ;
38
31
} ;
39
32
} )
40
33
] ;
Original file line number Diff line number Diff line change @@ -10,17 +10,19 @@ import Proto.Compiler_Fields (compilerResult)
10
10
import Test.LambdaBuffers.Compiler.Coverage (coverage )
11
11
import Test.LambdaBuffers.Compiler.Mutation qualified as Mut
12
12
import Test.LambdaBuffers.Compiler.WellFormed (genCompilerInput )
13
- import Test.Tasty (TestTree , testGroup )
13
+ import Test.Tasty (TestTree , adjustOption , testGroup )
14
14
import Test.Tasty.HUnit (HasCallStack )
15
15
import Test.Tasty.Hedgehog (testProperty )
16
+ import Test.Tasty.Hedgehog qualified as H
16
17
17
18
test :: TestTree
18
19
test =
19
- testGroup
20
- " Compiler API tests"
21
- [ allWellFormedCompInpCompile
22
- , allWellFormedCompInpCompileAfterBenignMut
23
- ]
20
+ adjustOption (\ _ -> H. HedgehogTestLimit $ Just 10_000 ) $
21
+ testGroup
22
+ " Compiler API tests"
23
+ [ allWellFormedCompInpCompile
24
+ , allWellFormedCompInpCompileAfterBenignMut
25
+ ]
24
26
25
27
compilationOk :: H. MonadTest m => CompilerOutput -> m ()
26
28
compilationOk compOut = compOut H. === (defMessage & compilerResult .~ defMessage)
You can’t perform that action at this time.
0 commit comments