r54101 - in /branches/upstream/libtest-pod-perl/current: Build.PL Changes MANIFEST META.yml README lib/Test/Pod.pm t/all_pod_files.t t/pod/good-pod-script.bat
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Mar 11 16:07:10 UTC 2010
Author: jawnsy-guest
Date: Thu Mar 11 16:06:54 2010
New Revision: 54101
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54101
Log:
[svn-upgrade] Integrating new upstream version, libtest-pod-perl (1.42)
Added:
branches/upstream/libtest-pod-perl/current/README
branches/upstream/libtest-pod-perl/current/t/pod/good-pod-script.bat
Modified:
branches/upstream/libtest-pod-perl/current/Build.PL
branches/upstream/libtest-pod-perl/current/Changes
branches/upstream/libtest-pod-perl/current/MANIFEST
branches/upstream/libtest-pod-perl/current/META.yml
branches/upstream/libtest-pod-perl/current/lib/Test/Pod.pm
branches/upstream/libtest-pod-perl/current/t/all_pod_files.t
Modified: branches/upstream/libtest-pod-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/Build.PL?rev=54101&op=diff
==============================================================================
--- branches/upstream/libtest-pod-perl/current/Build.PL (original)
+++ branches/upstream/libtest-pod-perl/current/Build.PL Thu Mar 11 16:06:54 2010
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Module::Build;
+use Module::Build '0.30';
Module::Build->new(
module_name => 'Test::Pod',
@@ -19,7 +19,7 @@
meta_merge => {
resources => {
homepage => 'http://search.cpan.org/dist/Test-Pod/',
- bugtracker => 'http://github.com/theory/test-xpod/issues/',
+ bugtracker => 'http://github.com/theory/test-pod/issues/',
repository => 'http://github.com/theory/test-pod/tree/',
}
},
Modified: branches/upstream/libtest-pod-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/Changes?rev=54101&op=diff
==============================================================================
--- branches/upstream/libtest-pod-perl/current/Changes (original)
+++ branches/upstream/libtest-pod-perl/current/Changes Thu Mar 11 16:06:54 2010
@@ -1,4 +1,27 @@
Change log for Test::Pod
+
+1.42 - 2010-03-10T19:41:20
+ * Fixed invalid Pod link. Thanks to Markus Sonderegger.
+ * Changed license in the POD to "Same as Perl" to match the license listed in
+ `META.yml`.
+ * Changed `Build.PL` to require Module::Build 0.30. It already does in
+ `configure_requires`, but also doing so on the `use` line helps provide
+ a more useful error message in older toolchain tools that don't use
+ `configure_requires`.
+ * Updated `MANIFEST` so that the `README` is actually included in the
+ distribution.
+ * Now recognizes `.bat` files as Perl files when they contain
+ "--*-Perl-*--" on the first line. Thanks to Olivier 'dolmen' Mengué for
+ the patch (RT #46973).
+ * `all_pod_files_ok()` now operates on directories as well as files.
+ Thanks to Adriano Ferreira for the patch (RT #33025).
+ * Files with no POD now have " (no pod)" added to test name. Thanks to
+ Adriano Ferreira for the patch (RT #34955).
+ * Updated documentation to note that `.PL` files are considered Perl
+ files. Thanks to Adriano Ferreira for the spot (RT #34955).
+ * `all_pod_files_ok()` now lets `pod_file_ok()` set the default test name,
+ rather than doing so itself. Thanks to Adriano Ferreira for the spot (RT
+ #34955).
1.41 - 2010-01-14T20:09:25
* Maintenance transfered to David Wheeler.
Modified: branches/upstream/libtest-pod-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/MANIFEST?rev=54101&op=diff
==============================================================================
--- branches/upstream/libtest-pod-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-pod-perl/current/MANIFEST Thu Mar 11 16:06:54 2010
@@ -3,6 +3,7 @@
lib/Test/Pod.pm
MANIFEST This list of files
META.yml
+README
t/00-load.t
t/all_pod_files.t
t/cut-outside-block.pod
@@ -15,6 +16,7 @@
t/missing-file.t
t/pod.t
t/pod/good-pod-script
+t/pod/good-pod-script.bat
t/pod/good.pod
t/pod/no_pod.pod
t/selftest.t
Modified: branches/upstream/libtest-pod-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/META.yml?rev=54101&op=diff
==============================================================================
--- branches/upstream/libtest-pod-perl/current/META.yml (original)
+++ branches/upstream/libtest-pod-perl/current/META.yml Thu Mar 11 16:06:54 2010
@@ -16,15 +16,15 @@
provides:
Test::Pod:
file: lib/Test/Pod.pm
- version: 1.41
+ version: 1.42
requires:
File::Spec: 0
Pod::Simple: 3.07
Test::Builder::Tester: 1.02
Test::More: 0.70
resources:
- bugtracker: http://github.com/theory/test-xpod/issues/
+ bugtracker: http://github.com/theory/test-pod/issues/
homepage: http://search.cpan.org/dist/Test-Pod/
license: http://dev.perl.org/licenses/
repository: http://github.com/theory/test-pod/tree/
-version: 1.41
+version: 1.42
Added: branches/upstream/libtest-pod-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/README?rev=54101&op=file
==============================================================================
--- branches/upstream/libtest-pod-perl/current/README (added)
+++ branches/upstream/libtest-pod-perl/current/README Thu Mar 11 16:06:54 2010
@@ -1,0 +1,32 @@
+Test/Pod version 1.42
+=====================
+
+This library's module, Test::Pod, provides an interface for validating POD in
+module files.
+
+INSTALLATION
+
+To install this module, type the following:
+
+ perl Build.PL
+ ./Build
+ ./Build test
+ ./Build install
+
+Dependencies
+------------
+
+Test::Pod requires the following modules:
+
+* Pod::Simple 3.07
+* Test::More 0.70
+* Test::Builder::Tester 1.02
+* File::Spec
+
+Copyright and Licence
+---------------------
+
+Copyright 2006-2010, Andy Lester. Some Rights Reserved.
+
+You may use, modify, and distribute this package under the terms as the
+Artistic License v2.0 or GNU Public License v2.0.
Modified: branches/upstream/libtest-pod-perl/current/lib/Test/Pod.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/lib/Test/Pod.pm?rev=54101&op=diff
==============================================================================
--- branches/upstream/libtest-pod-perl/current/lib/Test/Pod.pm (original)
+++ branches/upstream/libtest-pod-perl/current/lib/Test/Pod.pm Thu Mar 11 16:06:54 2010
@@ -8,11 +8,11 @@
=head1 VERSION
-Version 1.41
-
-=cut
-
-our $VERSION = '1.41';
+Version 1.42
+
+=cut
+
+our $VERSION = '1.42';
=head1 SYNOPSIS
@@ -135,6 +135,7 @@
my $ok = !$checker->any_errata_seen;
$ok = _additional_test_pod_specific_checks( $ok, ($checker->{errata}||={}), $file );
+ $name .= ' (no pod)' if !$checker->content_seen;
$Test->ok( $ok, $name );
if ( !$ok ) {
my $lines = $checker->{errata};
@@ -147,17 +148,17 @@
return $ok;
} # pod_file_ok
-=head2 all_pod_files_ok( [@files/@directories] )
-
-Checks all the files in C<@files> for valid POD. It runs
-L<all_pod_files()> on each file/directory, and calls the C<plan()>
-function for you (one test for each function), so you can't have
-already called C<plan>.
-
-If C<@files> is empty or not passed, the function finds all POD
-files in the F<blib> directory if it exists, or the F<lib> directory
-if not. A POD file is one that ends with F<.pod>, F<.pl> and F<.pm>,
-or any file where the first line looks like a shebang line.
+=head2 all_pod_files_ok( [@entries] )
+
+Checks all the files under C<@entries> for valid POD. It runs
+L<all_pod_files()> on directories and assumes everything else to be a file to
+be tested. It calls the C<plan()> function for you (one test for each file),
+so you can't have already called C<plan>.
+
+If C<@entries> is empty or not passed, the function finds all POD files in
+files in the F<blib> directory if it exists, or the F<lib> directory if not. A
+POD file is one that ends with F<.pod>, F<.pl> and F<.pm>, or any file where
+the first line looks like a shebang line.
If you're testing a module, just make a F<t/pod.t>:
@@ -171,32 +172,34 @@
=cut
sub all_pod_files_ok {
- my @files = @_ ? @_ : all_pod_files();
+ my @args = @_ ? @_ : _starting_points();
+ my @files = map { -d $_ ? all_pod_files($_) : $_ } @args;
$Test->plan( tests => scalar @files );
my $ok = 1;
foreach my $file ( @files ) {
- pod_file_ok( $file, $file ) or undef $ok;
+ pod_file_ok( $file ) or undef $ok;
}
return $ok;
}
=head2 all_pod_files( [@dirs] )
-Returns a list of all the Perl files in I<$dir> and in directories
-below. If no directories are passed, it defaults to F<blib> if
-F<blib> exists, or else F<lib> if not. Skips any files in CVS,
-.svn, .git and similar directories. See C<%Test::Pod::ignore_dirs>
-for a list of them.
+Returns a list of all the Perl files in I<@dirs> and in directories below. If
+no directories are passed, it defaults to F<blib> if F<blib> exists, or else
+F<lib> if not. Skips any files in CVS, .svn, .git and similar directories. See
+C<%Test::Pod::ignore_dirs> for a list of them.
A Perl file is:
=over 4
-=item * Any file that ends in F<.PL>, F<.pl>, F<.pm>, F<.pod> or F<.t>.
+=item * Any file that ends in F<.PL>, F<.pl>, F<.PL>, F<.pm>, F<.pod>, or F<.t>.
=item * Any file that has a first line with a shebang and "perl" on it.
+
+=item * Any file that ends in F<.bat> and has a first line with "--*-Perl-*--" on it.
=back
@@ -253,7 +256,7 @@
my $first = <$fh>;
close $fh;
- return 1 if defined $first && ($first =~ /^#!.*perl/);
+ return 1 if defined $first && ($first =~ /(?:^#!.*perl)|--\*-Perl-\*--/);
return;
}
@@ -284,12 +287,12 @@
Peter Edwards
for contributions and to C<brian d foy> for the original code.
-=head1 COPYRIGHT
+=head1 COPYRIGHT AND LICENSE
Copyright 2006-2010, Andy Lester. Some Rights Reserved.
-You may use, modify, and distribute this package under the terms
-as the Artistic License v2.0 or GNU Public License v2.0.
+This module is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
=cut
Modified: branches/upstream/libtest-pod-perl/current/t/all_pod_files.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/t/all_pod_files.t?rev=54101&op=diff
==============================================================================
--- branches/upstream/libtest-pod-perl/current/t/all_pod_files.t (original)
+++ branches/upstream/libtest-pod-perl/current/t/all_pod_files.t Thu Mar 11 16:06:54 2010
@@ -13,6 +13,7 @@
@expected = (
File::Spec->catfile( 'blib', 'lib', 'Test', 'Pod.pm' ),
File::Spec->catfile( 't', 'pod', 'good-pod-script.' ),
+ File::Spec->catfile( 't', 'pod', 'good-pod-script.bat' ),
File::Spec->catfile( 't', 'pod', 'good.pod' ),
File::Spec->catfile( 't', 'pod', 'no_pod.pod' ),
);
@@ -23,6 +24,7 @@
@expected = qw(
blib/lib/Test/Pod.pm
t/pod/good-pod-script
+ t/pod/good-pod-script.bat
t/pod/good.pod
t/pod/no_pod.pod
);
Added: branches/upstream/libtest-pod-perl/current/t/pod/good-pod-script.bat
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-pod-perl/current/t/pod/good-pod-script.bat?rev=54101&op=file
==============================================================================
--- branches/upstream/libtest-pod-perl/current/t/pod/good-pod-script.bat (added)
+++ branches/upstream/libtest-pod-perl/current/t/pod/good-pod-script.bat Thu Mar 11 16:06:54 2010
@@ -1,0 +1,35 @@
+ at rem = '--*-Perl-*--
+ at echo off
+if "%OS%" == "Windows_NT" goto WinNT
+perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofperl
+:WinNT
+perl -x -S %0 %*
+if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
+if %errorlevel% == 9009 echo You do not have Perl in your PATH.
+if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
+goto endofperl
+ at rem ';
+#!/usr/bin/perl
+#line 15
+
+=head1 NAME
+
+This is a pretend script that we need to check
+
+=head1 DESCRIPTION
+
+This is a pod file without errors.
+
+=head1 AUTHOR
+
+Andy Lester, garbage-address at aol.com
+
+=head1 COPYRIGHT
+
+Copyright 2004, Andy Lester
+
+=cut
+
+__END__
+:endofperl
More information about the Pkg-perl-cvs-commits
mailing list