diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-06-18 11:24:30 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-06-18 11:24:30 +0200 |
| commit | b20a3cf72522a88d73ab1d6f03c13e5705c7ab8e (patch) | |
| tree | 3ba5d71e14d28b0f9e3ea9165f57bc0fa1df38a9 | |
| parent | 5a0a5e9ef69926265289ae5229e68060a7c77a27 (diff) | |
test-framework: Correct line count when collapsing with nested subgroups
| -rw-r--r-- | test-framework/Test/Framework.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-framework/Test/Framework.hs b/test-framework/Test/Framework.hs index e0dc4b3..1b2b7d7 100644 --- a/test-framework/Test/Framework.hs +++ b/test-framework/Test/Framework.hs @@ -190,7 +190,7 @@ runTests options = \tree' -> "\x1B[32mOK\x1B[0m" ++ prettyDuration False (realToFrac (diffUTCTime endtm starttm)) return (Just 1) - _ -> return mlns + _ -> return ((+1) <$> mlns) go indent path (Resource make cleanup fun) = do value <- liftIO make success <- go indent path (fun value) |