Skip Menu |

This queue is for tickets about the Log-Log4perl-Layout-XMLLayout CPAN distribution.

Report information
The Basics
Id: 30537
Status: new
Priority: 0/
Queue: Log-Log4perl-Layout-XMLLayout
People
Owner: Nobody in particular
Requestors: KGOESS [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: 0.03

History Show all quoted text
  Wed Nov 07 00:36:31 2007 KGOESS [...] cpan.org - Ticket created
If target system doesn't have Test::Pod::Coverage installed, then t/pod-coverage.t fails, reporting a test failure rather than just skipping the tests which is what the test is trying to do as written. This is the failure message: You tried to plan twice at t/pod-coverage.t line 3. # Looks like your test died before it could output anything. Apparently you can't say "no_plan" and "plan skip_all" in the same test. Here's the fix: --- t/pod-coverage.t.orig 2007-11-06 21:30:01.000000000 -0800 +++ t/pod-coverage.t 2007-11-06 21:31:00.362709704 -0800 @@ -1,6 +1,10 @@ -use Test::More 'no_plan'; +use Test::More; eval "use Test::Pod::Coverage 1.00"; -plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@; +if ($@){ + plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage"; +}else{ + plan 'no_plan'; +} pod_coverage_ok( q(Log::Log4perl::Layout::XMLLayout), { also_private => [ qr/^(current_time|render)$/ ], }, - "private functions are not POD covered",); \ No newline at end of file + "private functions are not POD covered",);