| CC: | schwern [...] pobox.com |
| Subject: | t/pod-coverage.t fails due to missing pod for "import_extra" |
POD coverage test fails due to missing POD for import_extra. Attached
patch fixes issue, added POD could stand improving though...
t/pod-coverage............NOK 2/6
# Failed test 'Pod coverage on Test::More'
# at t/pod-coverage.t line 23.
# Coverage for Test::More is 95.7%, with 1 naked subroutine:
# import_extra
# Looks like you failed 1 test of 6.
t/pod-coverage............dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 2
Failed 1/6 tests, 83.33% okay
t/pod.....................ok
| Subject: | test-simple-pod-coverage.patch |
diff -rup Test-Simple-0.67/lib/Test/More.pm Test-Simple-0.67a/lib/Test/More.pm
--- Test-Simple-0.67/lib/Test/More.pm 2007-02-13 08:13:51.000000000 -0800
+++ Test-Simple-0.67a/lib/Test/More.pm 2007-02-13 08:18:38.000000000 -0800
@@ -162,32 +162,6 @@ sub plan {
$tb->plan(@_);
}
-
-# This implements "use Test::More 'no_diag'" but the behavior is
-# deprecated.
-sub import_extra {
- my $class = shift;
- my $list = shift;
-
- my @other = ();
- my $idx = 0;
- while( $idx <= $#{$list} ) {
- my $item = $list->[$idx];
-
- if( defined $item and $item eq 'no_diag' ) {
- $class->builder->no_diag(1);
- }
- else {
- push @other, $item;
- }
-
- $idx++;
- }
-
- @$list = @other;
-}
-
-
=head2 Test names
By convention, each test is assigned a number in order. This is
@@ -1380,6 +1354,7 @@ sub eq_set {
);
}
+
=back
@@ -1436,6 +1411,35 @@ B<NOTE> This behavior may go away in fu
Test::More works with Perls as old as 5.004_05.
+=item B<import_extra>
+
+ This implements "use Test::More 'no_diag'" but the behavior is
+ deprecated.
+
+=cut
+
+sub import_extra {
+ my $class = shift;
+ my $list = shift;
+
+ my @other = ();
+ my $idx = 0;
+ while( $idx <= $#{$list} ) {
+ my $item = $list->[$idx];
+
+ if( defined $item and $item eq 'no_diag' ) {
+ $class->builder->no_diag(1);
+ }
+ else {
+ push @other, $item;
+ }
+
+ $idx++;
+ }
+
+ @$list = @other;
+}
+
=item Overloaded objects