如何使用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调用此模块，则所有testMethod都是Executed。是否有任何解决方案只执行所需的方法

Answer 1

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