(我想我已经看到了这个问题的答案,但我再也找不到了。我遇到的最接近的是这个问题)。
我正在对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
Run Code Online (Sandbox Code Playgroud)
注释掉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.
Run Code Online (Sandbox Code Playgroud)
HARNESS_PERL_SWITCHES+cover
$ HARNESS_PERL_SWITCHES=-MDevel::Cover=-silent,1 cover -test
...
t/01-help.t …Run Code Online (Sandbox Code Playgroud)