Propagate 'forceMatch' for empty test groups

UnkindPartition · Jul 14, 2023 · c56d322 · c56d322
1 parent 804b2a7
commit c56d322
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/core-tests/SequentialTestGroup.hs b/core-tests/SequentialTestGroup.hs
@@ -89,6 +89,7 @@ filterTestTree pattern =
       , sequentialTestGroup "E" AllSucceed
         [ emptyTest "F"
         , emptyTest "G"
+        , testGroup "XX" []
         , emptyTest "H"
         ]
     ]

diff --git a/core/Test/Tasty/Core.hs b/core/Test/Tasty/Core.hs
@@ -563,6 +563,9 @@ filterByPattern = snd . go (Any False)
         | otherwise 
         -> (Any False, AnnEmptyTestTree)
 
+      AnnTestGroup (opts, _) name [] ->
+        (forceMatch, AnnTestGroup opts name [])
+
       AnnTestGroup (opts, _) name trees ->
         case lookupOption opts of
           Parallel ->