diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-12 16:35:55 +0200 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-12 16:35:55 +0200 |
| commit | e65e3f11fe911a6ca1009cf35f4b3e7ca907c459 (patch) | |
| tree | 1bba57124a382f4d4bc81272cbc61f82bdc8e0ce /src/Sequence/Contact/Tests.hs | |
| parent | c0e64e4f383a1a64ff0cb7e40ac3256726fc82b6 (diff) | |
| download | 2017-01-16_17:13:37-e65e3f11fe911a6ca1009cf35f4b3e7ca907c459.tar 2017-01-16_17:13:37-e65e3f11fe911a6ca1009cf35f4b3e7ca907c459.tar.gz 2017-01-16_17:13:37-e65e3f11fe911a6ca1009cf35f4b3e7ca907c459.tar.bz2 2017-01-16_17:13:37-e65e3f11fe911a6ca1009cf35f4b3e7ca907c459.tar.xz 2017-01-16_17:13:37-e65e3f11fe911a6ca1009cf35f4b3e7ca907c459.zip | |
support for tests applying effects
Diffstat (limited to 'src/Sequence/Contact/Tests.hs')
| -rw-r--r-- | src/Sequence/Contact/Tests.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Sequence/Contact/Tests.hs b/src/Sequence/Contact/Tests.hs index 2c21834..81b8d3c 100644 --- a/src/Sequence/Contact/Tests.hs +++ b/src/Sequence/Contact/Tests.hs | |||
| @@ -117,7 +117,8 @@ enactTest rawTest = do | |||
| 117 | | pw <= bar = Success | 117 | | pw <= bar = Success |
| 118 | | pw >= critFailureBar = CritFailure | 118 | | pw >= critFailureBar = CritFailure |
| 119 | | otherwise = Failure | 119 | | otherwise = Failure |
| 120 | toResult <$> d 100 | 120 | dResult <- toResult <$> d 100 |
| 121 | TestResult <$> pure dResult <*> (test ^. tEffect) dResult | ||
| 121 | 122 | ||
| 122 | -- hasTest :: Stats -> String -> Bool | 123 | -- hasTest :: Stats -> String -> Bool |
| 123 | -- hasTest stats str = has (getTest str) stats | 124 | -- hasTest stats str = has (getTest str) stats |