问在HUnit中选择性地运行测试

EN

Test.HUnit提供了一个红色的大按钮来运行测试：

runTestTT :: Test -> IO Counts

由于需要构建大型测试套件，因此Test不是单个测试，而实际上是叶子中带有Assertion的标记玫瑰树：

data Test
  = TestCase Assertion | TestList [Test] | TestLabel String Test
        -- Defined in `Test.HUnit.Base'

它不是抽象的，所以可以对其进行处理。一个特别有用的处理是通过路径提取子树：

byPath = flip $ foldl f where
    f (TestList l) = (l !!)
    f (TestLabel _ t) = const t
    f t = const t     

因此，例如，我可以运行单个子套件runTestTT $ byPath [1] tests或由测试路径标识的特定测试runTestTT $ byPath [1,7,3] tests，而不是等待整个套件。

自行开发的工具的一个缺点是不保留(缩短)测试路径。

Hackage上已经有这样的处理辅助工具了吗？