Devel :: Cover合并Perl脚本和模块的覆盖率数据

我有问题合并数据覆盖Perl脚本和模块..运行Devel :: Cover单独工作正常,但当我尝试组合数据时,我失去统计信息只是Perl脚本而不是模块..

让我解释..

我有一个看起来像这样的目录树..

Code_Coverage_Test
 |
 |---->lib
 |
 |---->t
 |

在根Code_Coverage_Test目录中,我有Build.pl文件,它为模块和脚本构建测试,启动另外两个脚本,为我自动执行某些命令.

./Build.pl

#!/usr/bin/perl -w

use strict;
use Module::Build;

my $buildTests = Module::Build->new(
        module_name             => 'testPMCoverage',license                 => 'perl',dist_abstract           => 'Perl .pm Test Code Coverage',dist_author             => 'me@myEmail.com',build_requires  => {
           'Test::More' => '0.10',},);

$buildTests->create_build_script();

./startTests.sh

#!/bin/sh

cd t
./doPMtest.sh
./doPLtest.sh

cd ../

perl Build testcover

在lib目录里面我有我试图运行代码覆盖的文件..

LIB / testPLCoverage.pl

#!/usr/bin/perl -w

use strict;

print "Ok!";

LIB / testPMCoverage.pm

use strict;
use warnings;
package testPMCoverage;

sub hello {
    return "Hello";
}

sub bye {
    return "Bye";
}


1;

在t dir中,我有我的.t测试文件和2个脚本,为我启动测试..两个都由根目录中的startTests.sh调用

吨/ testPMCoverage.t

#!/usr/bin/perl -w


use strict;
use Test::More;

require_ok( 'testPMCoverage' );

my $test = testPMCoverage::hello();
is($test,"Hello","hello() test");

done_testing();

吨/ doPLtest.sh

#!/bin/sh

#Test 1
cd ../
cd lib
perl -MDevel::Cover=-db,../cover_db testPLCoverage.pl

吨/ doPMtest.sh

#!/bin/bash

cd ../
perl Build.pl
perl Build test

我遇到的问题是,当doPLtests.sh脚本运行时,我得到覆盖数据,没问题.

---------------------------- ------ ------ ------ ------ ------ ------ ------
File                           STMT   Bran   Cond    Sub    pod   Time  total
---------------------------- ------ ------ ------ ------ ------ ------ ------
testPLCoverage.pl             100.0    n/a    n/a  100.0    n/a  100.0  100.0
Total                         100.0    n/a    n/a  100.0    n/a  100.0  100.0
---------------------------- ------ ------ ------ ------ ------ ------ ------

但是,当doPMtest.sh脚本完成并且startTests.sh脚本启动Build testcover命令时,我会丢失该数据并获取这些消息…

Reading database path/Code_Coverage_Tests/cover_db
Devel::Cover: Warning: can't open testPLCoverage.pl for MD5 digest: No such file or directory
Devel::Cover: Warning: can't locate structure for statement in testPLCoverage.pl
Devel::Cover: Warning: can't locate structure for subroutine in testPLCoverage.pl
Devel::Cover: Warning: can't locate structure for time in testPLCoverage.pl

..不知怎的,我丢失了数据

---------------------------- ------ ------ ------ ------ ------ ------ ------
File                           STMT   Bran   Cond    Sub    pod   Time  total
---------------------------- ------ ------ ------ ------ ------ ------ ------
blib/lib/testPMCoverage.pm     87.5    n/a    n/a   75.0    0.0  100.0   71.4
testPLCoverage.pl               n/a    n/a    n/a    n/a    n/a    n/a    n/a
Total                          87.5    n/a    n/a   75.0    0.0  100.0   71.4
---------------------------- ------ ------ ------ ------ ------ ------ ------

如何组合Perl模块和Perl脚本测试以在一个文件中获得有效的代码覆盖？