如何按顺序运行一组测试？

Question

我有美味的测试看起来像：

myTests :: [TestTree]
myTests = [
    testCase "1" $ do ... assertBool ...
  , testCase "2" $ do ... assertBool ...
  , testCase "3" $ do ... assertBool ...
  , testCase "4" $ do ... assertBool ...
  ...
]

但它们的问题在于它们中的一些（比方说，3、4）共享一些必须以“互斥”方式使用的系统资源（实际上它是一个文件，但它可能是其他东西）。 据我了解，问题是测试 1、2、3、4 ……并行运行。

所以，我想依次运行测试 3、4。 其他 - 并行。 我在想这样的事情：

  par = [...]
  seq = someMagic [...]
  myTests = par <> seq

什么是someMagic function？ 我发现localOption @NumThreads 1 $ [...]但它与TestTree作为第二个参数一起使用，而不是与TestTree列表一起使用？ 如何做这样的事情？

• EDIT-1：我刚刚发现另一个想法：使用testGroup将它们“折叠”成一个TestGroup 。
• EDIT-2：刚刚尝试过testGroup - 但我遇到了关于繁忙资源的相同问题。
• EDIT-3：另一个想法是使用after来声明依赖

Answer 1

可以使用after （和类似函数）在测试之间声明显式顺序（依赖关系）。

[
...
, testCase "testMyFunc: must fails" $ do
    ...

, after AllFinish "$NF ~ /testMyFunc/" $ testCase "anotherFunc: must work" $ do
    ...
...
]

Tasty 的README中描述了使用的表达式。 因此，如果测试并行运行，则可以对其中一些进行排序（顺序）。