如何使用Test :: Class :: Load运行单独的测试?

Dre*_*ens 8 perl unit-testing

在积累了足够的测试后,运行它们都需要一些实时的时间,我查看了Test::Class::Loaddoc以找到运行单个测试类的提示.它提供了一种方法来做到这一点,但我必须遗漏一些东西,因为我无法使它工作.这就是我所拥有的:

我的测试目录:

drewfus:~/sandbox$ ls t/
lib/  perlcriticrc  PerlCritic.t  Unit.t
Run Code Online (Sandbox Code Playgroud)

t/Unit.t 包括以下内容:

use strict;
use warnings;

use Test::Class;
use Test::More 'no_plan';
use Test::Class::Load 't/lib';
Run Code Online (Sandbox Code Playgroud)

根据Test::Class::Loaddoc中的建议,我有一个基类用于我继承的每个测试类,SG::TestBase它存在于t/lib/SG/TestBase.pm:

package SG::TestBase;
use strict;
use warnings;
use base 'Test::Class';

INIT { Test::Class->runtests }

1;
Run Code Online (Sandbox Code Playgroud)

最后,这是一个示例测试类,SG::UtilsTest位于t/lib/SG/UtilsTest.pm:

package SG::UtilsTest;
use strict;
use warnings;
use base 'SG::TestBase';

BEGIN { use_ok('SG::Utils') };
<etc>
Run Code Online (Sandbox Code Playgroud)

如果我想用Build test或运行所有测试,一切仍然很好prove,但尝试运行单个测试不起作用:

drewfus:~/sandbox$  prove -lv SG::UtilsTest
Cannot determine source for SG::UtilsTest at /usr/share/perl/5.10/App/Prove.pm line 496
Run Code Online (Sandbox Code Playgroud)

adr*_*anh 5

恭喜发现文档中的错误:-)

最后一个参数应该是测试类的路径 - 而不是包名.您还需要添加测试类库的路径,以便证明可以找到它们:

  prove -lv -It/lib t/lib/SG/UtilsTest.pm
Run Code Online (Sandbox Code Playgroud)

应该管用.