perl - 如何使用 Test::Class 执行一个测试

Question

我有以下代码，其中包含许多测试功能

package A;
{
BEGIN { $ENV{DIE_ON_FAIL} = 1 }

    sub test_168 : Test(no_plan){
    print("168");
    }

    sub test_169 : Test(no_plan){
    print("169");
    }
1;
}

如果使用 Test::Class 调用这个模块，所有的 testMethods 都会被执行。是否有任何解决方案只执行所需的方法

Answer 1

您可以设置TEST_METHOD环境变量以将测试限制为单个方法 ( ) 或匹配正则表达式 ( )TEST_METHOD='test_168'的所有方法TEST_METHOD='test_16.'