From e65e3f11fe911a6ca1009cf35f4b3e7ca907c459 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 12 Aug 2016 16:35:55 +0200 Subject: support for tests applying effects --- src/Sequence/Contact/Tests.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Sequence/Contact/Tests.hs') 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 | pw <= bar = Success | pw >= critFailureBar = CritFailure | otherwise = Failure - toResult <$> d 100 + dResult <- toResult <$> d 100 + TestResult <$> pure dResult <*> (test ^. tEffect) dResult -- hasTest :: Stats -> String -> Bool -- hasTest stats str = has (getTest str) stats -- cgit v1.2.3