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:25:36 +0200 |
| commit | 2cf1cfa469066f15b5d232bea4b2a845ad212df5 (patch) | |
| tree | 34c16a4097de5b1810acc4db9c0ddb3c0109a54b | |
| parent | 7bd37711ffecb7a0e202ecfd717e3a4cbbe6074f (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) |