grin-compiler/grin
1
1
Fork 0
mirror of https://github.com/grin-compiler/grin.git synced 2024-09-11 15:37:54 +03:00
Code Issues Projects Releases Wiki Activity

Test: stress test combinator.

Browse Source
This commit is contained in:
Andor Penzes 2018-03-20 23:32:20 +01:00
parent a003de4860
commit b1c60cf859
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
grin/src/Test.hs
View File

@ -61,7 +61,7 @@ stressTest
-> (TypeEnv, Exp)
-> (TypeEnv, Exp)
-> Spec
stressTest f before after = it "Random context" $ forAllShrink (listOf1 arbitrary) shrink $ \ctx ->
stressTest f before after = it "Stress test" $ forAllShrink (listOf1 arbitrary) shrink $ \ctx ->
let c = createExpr ctx
in (f (c before)) == (c after)