运行`cover -test`时如何从子进程收集覆盖率，否则不收集？（开发::封面）

Question

（我想我已经看到了这个问题的答案，但我再也找不到了。我遇到的最接近的是这个问题）。

我正在对prt 进行黑客攻击，并试图为我的更改获取完整的覆盖数据。我的一些新测试调用system($^X, 'prt', ...)运行子进程。然后我测试这些进程的输出。但是，Devel::Cover 不会在子进程中收集覆盖率数据。我如何收集该数据，而不会导致 Devel::Cover 在我执行常规操作时运行make test？目前我有一个丑陋的解决方法（见下文），但我认为必须有一个更简单的方法。

完整的 MCVE 在这里。命令行复制，为您提供方便：

git clone https://github.com/cxw42/multi-process-devel-cover-test.git ; cd multi-process-devel-cover-test ; perl Makefile.PL ; make ; cover -test

注释掉t/01-help.t下面描述的解决方法的第 11 行。

编辑我使用的原因system是为了得到100％覆盖上-h/ --help/ --version。这些开关由自动调用的Getopt::Long处理exit()。如有必要，我可以-exitval=>NOEXIT在自己的代码中使用和处理退出。

行不通的事情

PERL5OPT

$ PERL5OPT=-MDevel::Cover=-silent,1 cover -test
/home/cxw/perl5/perlbrew/perls/perlcygbrew-5.26.2-1/bin/cover shouldn't be run with coverage turned on.

HARNESS_PERL_SWITCHES+cover

$ HARNESS_PERL_SWITCHES=-MDevel::Cover=-silent,1 cover -test
...
t/01-help.t .. # Devel::Cover not covering
...
----- ------ ------ ------ ------ ------ ------ ------
File    stmt   bran   cond    sub    pod   time  total
----- ------ ------ ------ ------ ------ ------ ------
Total    n/a    n/a    n/a    n/a    n/a    n/a    n/a
----- ------ ------ ------ ------ ------ ------ ------

HARNESS_PERL_SWITCHES+EUMM make test

$ HARNESS_PERL_SWITCHES=-MDevel::Cover=-silent,1 make test
...
t/01-help.t .. # Devel::Cover not covering
...
$ (export HARNESS_PERL_SWITCHES=-MDevel::Cover=-silent,1 ; make test)
...
t/01-help.t .. # Devel::Cover not covering
...

当前的解决方法

目前，我找到的唯一方法是-MDevel::Cover在调用system. 受此答案和相应测试的启发，我有以下解决方法：

# Detect whether Devel::Cover is running
my $is_covering = !!(eval 'Devel::Cover::get_coverage()');
my @perl = ($^X, $is_covering ? ('-MDevel::Cover=-silent,1') : ());
diag $is_covering ? 'Devel::Cover running' : 'Devel::Cover not covering';

# Pass the Devel::Cover option, if any, to the child process
system(@perl, 'prt', ...);

在 MCVE 中，解决方法在此处并在此处使用。

Answer 1

我认为这或类似的事情可能是你能做的最好的事情了。

Devel::Cover 几乎被设计为一种开发工具，因此假设您一次将测试一个项目。看来你真的想在这里测试两个项目。如果情况并非如此，那么也许有比使用系统更好的组合部件的方法？

但是，如果您当前的解决方案是组合此代码的最佳方法，那么我不确定是否有更好的方法来获得完整的覆盖。例如，如果您想要覆盖，您可能可以明确地设置一个环境变量，或者您可以设置 $PERL5OPT 而不是更改系统调用，但本质上这是相同的解决方案。