Subject: | duplicate plan in 03-pod-coverage.t when Test::Pod::Coverage not installed |
Test 03 fails when Test::Pod::Coverage is not available. The main issue is the line
use Test::More tests => 1;
The attached patch fixes this.
Rhesa
t/03-pod_coverage....You tried to plan twice! Second plan at t/03-pod_coverage.t line 6
# Looks like your test died before it could output anything.
t/03-pod_coverage....dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
t/04-basic...........ok
t/07-bad-cdbi........ok
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/03-pod_coverage.t 2 512 1 2 200.00% 1
1 test skipped.
Failed 1/5 test scripts, 80.00% okay. 1/4 subtests failed, 75.00% okay.
--- 03-pod_coverage.t.orig 2005-07-10 14:16:29.000000000 +0200
+++ 03-pod_coverage.t 2005-07-10 14:21:46.000000000 +0200
@@ -1,8 +1,8 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 1;
-eval "use Test::Pod::Coverage 1.04";
-plan skip_all => "Test::Pod::Coverage 1.04 required" if $@;
+use Test::More ;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required" if $@;
-pod_coverage_ok( "CGI::Application::Plugin::BREAD", "CGI::Application::Plugin::BREAD is covered" );
+all_pod_coverage_ok( "CGI::Application::Plugin::BREAD", "CGI::Application::Plugin::BREAD is covered" );