perl - 用 Test::More 写“skip() unless ok()”可以吗？

Question

我浏览了文档，但找不到我的查询的明确答案。

在我的许多测试中，SKIP块的执行取决于先前测试的成功。

所以，例如，这是我写的：

ok( @results > $threshold , 'Threshold met' );

SKIP: {
        skip 'due to insufficient results', 3
          unless @results > $threshold;
        # ...
}

如果我的测试发生变化，我不想更改两个位置，所以我想要一个 DRY-er 等效项：

SKIP: {
        skip 'due to insufficient results', 3
          unless ok( @results > $threshold , 'Threshold met' );
        # ...
}

我最初的测试表明这两个片段是等效的。

但是，文档中的某些内容引起了我的注意：

每个SKIP块必须有标签SKIP，否则Test::More不能发挥它的魔力。

我在这里担心的是魔法可能会溢出到ok()现在，因为它在块内。

Answer 1

是的。为什么不呢？