Thomas Klausner wrote:
Hi!
On Sun, Sep 18, 2005 at 09:30:03PM +0200, David Landgren wrote:
Yeah, but I'm loathe to dedicate two separate test files merely to score
two points of Kwalitee. As it is, I'd just much rather bundle both tests
in a 00_basic.t file along with all the other standard no-brainer tests.
I'm not sure if Test::Pod and Test::Pod::Coverage can be run from the same
test script. AFAIK all_pod_files_ok sets the plan, and all_pod_coverage_ok
does so too.
use Test::More tests => 3;
SKIP: {
skip( 'Test::Pod not installed on this system', 2 )
unless do {
eval qq{ use Test::Pod };
$@ ? 0 : 1;
};
pod_file_ok( 'foobar.pm' );
pod_file_ok( 'quux.pm' );
}
SKIP: {
skip( 'Test::Pod::Coverage not installed on this system', 1 )
unless do {
eval qq{ use Test::Pod::Coverage };
$@ ? 0 : 1;
};
pod_coverage_ok( "FOO::BAR", "POD coverage is go!" );
}
__END__
TMTOWTDIlly yours,
David
|
