r39818 - in /trunk/libtest-pod-perl: Changes MANIFEST META.yml Makefile.PL Pod.pm debian/changelog debian/compat debian/control debian/copyright debian/rules t/00-load.t t/link.pod t/link.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Jul 13 16:39:00 UTC 2009
Author: jawnsy-guest
Date: Mon Jul 13 16:38:37 2009
New Revision: 39818
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39818
Log:
* New upstream release
+ Now requires Perl 5.8.0
+ More support for skipping version control directories
* Standards-Version 3.8.2
* Added /me to Uploaders
* Updated gregoa's e-mail address
* Changed over to debhelper 7 short format
* Updated copyright to new format
Added:
trunk/libtest-pod-perl/t/link.pod
trunk/libtest-pod-perl/t/link.t
Modified:
trunk/libtest-pod-perl/Changes
trunk/libtest-pod-perl/MANIFEST
trunk/libtest-pod-perl/META.yml
trunk/libtest-pod-perl/Makefile.PL
trunk/libtest-pod-perl/Pod.pm
trunk/libtest-pod-perl/debian/changelog
trunk/libtest-pod-perl/debian/compat
trunk/libtest-pod-perl/debian/control
trunk/libtest-pod-perl/debian/copyright
trunk/libtest-pod-perl/debian/rules
trunk/libtest-pod-perl/t/00-load.t
Modified: trunk/libtest-pod-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/Changes?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/Changes (original)
+++ trunk/libtest-pod-perl/Changes Mon Jul 13 16:38:37 2009
@@ -1,4 +1,27 @@
Change log for Test::Pod
+
+1.40 - Sun Jul 12 23:32:11 CDT 2009
+ [THINGS THAT MAY BREAK YOUR CODE]
+ Test::Pod now requires Perl 5.8.0.
+
+ [ENHANCEMENTS]
+ Test::Pod now complains about the illegal construct L<text|url>.
+ Thanks to Paul Miller.
+
+ The list of directories to exclude is now much longer, and is
+ available in %Test::Pod::ignore_dirs. This list is right now:
+
+ '.bzr' => 'Bazaar',
+ '.git' => 'Git',
+ '.hg' => 'Mercurial',
+ '.pc' => 'quilt',
+ '.svn' => 'Subversion',
+ CVS => 'CVS',
+ RCS => 'RCS',
+ SCCS => 'SCCS',
+ _darcs => 'darcs',
+ _sgbak => 'Vault/Fortress',
+
1.26 - Wed Jul 19 09:54:48 CDT 2006
Modified: trunk/libtest-pod-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/MANIFEST?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/MANIFEST (original)
+++ trunk/libtest-pod-perl/MANIFEST Mon Jul 13 16:38:37 2009
@@ -1,6 +1,6 @@
Changes
+Makefile.PL
MANIFEST
-Makefile.PL
Pod.pm
t/00-load.t
@@ -11,6 +11,8 @@
t/good.t
t/item-ordering.pod
t/item-ordering.t
+t/link.pod
+t/link.t
t/load.t
t/missing-file.t
t/pod.t
Modified: trunk/libtest-pod-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/META.yml?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/META.yml (original)
+++ trunk/libtest-pod-perl/META.yml Mon Jul 13 16:38:37 2009
@@ -1,14 +1,24 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Test-Pod
-version: 1.26
-version_from: Pod.pm
-installdirs: site
+--- #YAML:1.0
+name: Test-Pod
+version: 1.40
+abstract: ~
+author: []
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
requires:
- File::Spec: 0
- Pod::Simple: 2.04
- Test::Builder::Tester: 1.02
- Test::More: 0.62
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+ File::Spec: 0
+ Pod::Simple: 3.07
+ Test::Builder::Tester: 1.02
+ Test::More: 0.62
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.52
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libtest-pod-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/Makefile.PL?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/Makefile.PL (original)
+++ trunk/libtest-pod-perl/Makefile.PL Mon Jul 13 16:38:37 2009
@@ -5,7 +5,7 @@
'NAME' => 'Test::Pod',
'VERSION_FROM' => 'Pod.pm',
'PREREQ_PM' => {
- 'Pod::Simple' => '2.04',
+ 'Pod::Simple' => '3.07', # required for t/link.t
'Test::More' => '0.62',
'Test::Builder::Tester' => '1.02',
'File::Spec' => 0,
Modified: trunk/libtest-pod-perl/Pod.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/Pod.pm?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/Pod.pm (original)
+++ trunk/libtest-pod-perl/Pod.pm Mon Jul 13 16:38:37 2009
@@ -1,3 +1,43 @@
+package Test::Pod::_parser;
+use base 'Pod::Simple';
+use strict;
+
+sub _handle_element_start {
+ my($parser, $element_name, $attr_hash_r) = @_;
+
+ # Curiously, Pod::Simple supports L<text|scheme:...> rather well.
+
+ if( $element_name eq "L" and $attr_hash_r->{type} eq "url") {
+ $parser->{_state_of_concern}{'Lurl'} = $attr_hash_r->{to};
+ }
+
+ return $parser->SUPER::_handle_element_start(@_);
+}
+
+sub _handle_element_end {
+ my($parser, $element_name) = @_;
+
+ delete $parser->{_state_of_concern}{'Lurl'}
+ if $element_name eq "L" and exists $parser->{_state_of_concern}{'Lurl'};
+
+ return $parser->SUPER::_handle_element_end(@_);
+}
+
+sub _handle_text {
+ my($parser, $text) = @_;
+ if( my $href = $parser->{_state_of_concern}{'Lurl'} ) {
+ if( $href ne $text ) {
+ my $line = $parser->line_count() -2; # XXX: -2, WHY WHY WHY??
+
+ $parser->whine($line, "L<text|scheme:...> is invalid according to perlpod");
+ }
+ }
+
+ return $parser->SUPER::_handle_text(@_);
+}
+
+1;
+
package Test::Pod;
use strict;
@@ -8,12 +48,11 @@
=head1 VERSION
-Version 1.26
-
-=cut
-
-use vars qw( $VERSION );
-$VERSION = '1.26';
+Version 1.40
+
+=cut
+
+our $VERSION = '1.40';
=head1 SYNOPSIS
@@ -62,11 +101,23 @@
=cut
-use 5.004;
-
-use Pod::Simple;
+use 5.008;
+
use Test::Builder;
use File::Spec;
+
+our %ignore_dirs = (
+ '.bzr' => 'Bazaar',
+ '.git' => 'Git',
+ '.hg' => 'Mercurial',
+ '.pc' => 'quilt',
+ '.svn' => 'Subversion',
+ CVS => 'CVS',
+ RCS => 'RCS',
+ SCCS => 'SCCS',
+ _darcs => 'darcs',
+ _sgbak => 'Vault/Fortress',
+);
my $Test = Test::Builder->new;
@@ -81,6 +132,12 @@
$Test->exported_to($caller);
$Test->plan(@_);
+}
+
+sub _additional_test_pod_specific_checks {
+ my ($ok, $errata, $file) = @_;
+
+ return $ok;
}
=head1 FUNCTIONS
@@ -109,12 +166,14 @@
return;
}
- my $checker = Pod::Simple->new;
+ my $checker = Test::Pod::_parser->new;
$checker->output_string( \my $trash ); # Ignore any output
$checker->parse_file( $file );
my $ok = !$checker->any_errata_seen;
+ $ok = _additional_test_pod_specific_checks( $ok, ($checker->{errata}||={}), $file );
+
$Test->ok( $ok, $name );
if ( !$ok ) {
my $lines = $checker->{errata};
@@ -130,13 +189,14 @@
=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.
+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.
If you're testing a module, just make a F<t/pod.t>:
@@ -163,9 +223,11 @@
=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 or .svn directories.
+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.
A Perl file is:
@@ -195,7 +257,7 @@
closedir DH;
@newfiles = File::Spec->no_upwards( @newfiles );
- @newfiles = grep { $_ ne "CVS" && $_ ne ".svn" } @newfiles;
+ @newfiles = grep { not exists $ignore_dirs{ $_ } } @newfiles;
foreach my $newfile (@newfiles) {
my $filename = File::Spec->catfile( $file, $newfile );
@@ -223,13 +285,12 @@
my $file = shift;
return 1 if $file =~ /\.PL$/;
- return 1 if $file =~ /\.p(l|m|od)$/;
+ return 1 if $file =~ /\.p(?:l|m|od)$/;
return 1 if $file =~ /\.t$/;
- local *FH;
- open FH, $file or return;
- my $first = <FH>;
- close FH;
+ open my $fh, '<', $file or return;
+ my $first = <$fh>;
+ close $fh;
return 1 if defined $first && ($first =~ /^#!.*perl/);
@@ -253,17 +314,18 @@
=head1 ACKNOWLEDGEMENTS
Thanks to
-David Wheeler
+David Wheeler,
+Paul Miller
and
Peter Edwards
for contributions and to C<brian d foy> for the original code.
=head1 COPYRIGHT
-Copyright 2006, Andy Lester, All Rights Reserved.
-
-You may use, modify, and distribute this package under the
-same terms as Perl itself.
+Copyright 2006-2009, Andy Lester, All 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.
=cut
Modified: trunk/libtest-pod-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/debian/changelog?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/debian/changelog (original)
+++ trunk/libtest-pod-perl/debian/changelog Mon Jul 13 16:38:37 2009
@@ -1,4 +1,13 @@
-libtest-pod-perl (1.26-3) UNRELEASED; urgency=low
+libtest-pod-perl (1.40-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ + Now requires Perl 5.8.0
+ + More support for skipping version control directories
+ * Standards-Version 3.8.2
+ * Added /me to Uploaders
+ * Updated gregoa's e-mail address
+ * Changed over to debhelper 7 short format
+ * Updated copyright to new format
[ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
@@ -7,7 +16,7 @@
[ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:47:59 +0100
+ -- Jonathan Yu <frequency at cpan.org> Mon, 13 Jul 2009 07:57:44 -0400
libtest-pod-perl (1.26-2) unstable; urgency=low
Modified: trunk/libtest-pod-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/debian/compat?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/debian/compat (original)
+++ trunk/libtest-pod-perl/debian/compat Mon Jul 13 16:38:37 2009
@@ -1,1 +1,1 @@
-5
+7
Modified: trunk/libtest-pod-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/debian/control?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/debian/control (original)
+++ trunk/libtest-pod-perl/debian/control Mon Jul 13 16:38:37 2009
@@ -3,21 +3,22 @@
Priority: optional
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jay Bonci <jaybonci at debian.org>, Gunnar Wolf <gwolf at debian.org>,
- gregor herrmann <gregor+debian at comodo.priv.at>
-Build-Depends: debhelper ( >=5 )
+ gregor herrmann <gregor at debian.org>, Jonathan Yu <frequency at cpan.org>
+Build-Depends: perl (>= 5.8.0), debhelper (>= 7)
Build-Depends-Indep: libio-stringy-perl, libtest-simple-perl,
libpod-simple-perl
-Standards-Version: 3.7.3
+Standards-Version: 3.8.2
Homepage: http://search.cpan.org/dist/Test-Pod/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtest-pod-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libtest-pod-perl/
Package: libtest-pod-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends}, libio-stringy-perl,
- libpod-simple-perl
-Description: Test::Pod - check for POD errors in files
- Check POD files for errors or warnings in a test file, using Pod::Simple for
- most of the parsing. This module from CPAN integrates well with other
- Test::Builder and Test::More based modules.
-
+Depends: ${perl:Depends}, ${misc:Depends}, perl (>= 5.8.0),
+ libio-stringy-perl, libpod-simple-perl
+Description: Perl module to test for POD errors
+ Test::Pod is a simple test for Perl's Plain Old Documentation (POD) format. It
+ checks your distribution's module, script and documentation files for issues
+ with the documentation syntax. In the CPAN community, it is considered a best
+ practice to use this module as an author test prior to releasing your packages
+ because it prevents issues with various applications that use the POD.
Modified: trunk/libtest-pod-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/debian/copyright?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/debian/copyright (original)
+++ trunk/libtest-pod-perl/debian/copyright Mon Jul 13 16:38:37 2009
@@ -1,36 +1,54 @@
-This package was debianized by Jay Bonci <jay at bonci.com> on
-Sat, 8 Mar 2003 03:17:46 -0500.
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Andy Lester <andy at petdance.com>
+Upstream-Source: http://search.cpan.org/dist/Test-Pod/
+Upstream-Name: Test-Pod
-It was downloaded from http://search.cpan.org/dist/Test-Pod
+Files: *
+Copyright: 2006-2009, Andy Lester <andy at petdance.com>
+ 2002-2004, brian d foy <bdfoy at cpan.org>
+License-Alias: Perl
+License: Artistic | GPL-1+
-Upstream Authors:
- Andy Lester <test-pod at petdance.com>
- brian d foy <bdfoy at cpan.org>
+Files: debian/*
+Copyright: 2009, Jonathan Yu <frequency at cpan.org>
+ 2003, Jay Bonci <jay at debian.org>
+License: Artistic | GPL-1+
-Copyright:
+Files: t/item-ordering.pod, t/cut-outside-block.pod
+Copyright: 2002, Andy Lester <andy at petdance.com>
+License: Artistic | GPL-1+
+X-Comment: It is assumed this file follows the same licensing scheme as the
+ rest of the package -- that is, the same terms as Perl itself.
-Copyright 2002, Andy Lester and brian d foy, All Rights Reserved.
-Copyright 2004, Andy Lester and brian d foy, All Rights Reserved.
+Files: t/spaced-directives.pod, t/pod/*
+Copyright: 2004, Andy Lester <andy at petdance.com>
+License: Artistic | GPL-1+
+X-Comment: It is assumed this file follows the same licensing scheme as the
+ rest of the package -- that is, the same terms as Perl itself.
-Copyright for t/unknown-directive.pod:
-Copyright 2002, brian d foy
+Files: t/link.pod
+Copyright: 2009, Paul Miller <jettero at cpan.org>
+License: Artistic | GPL-1+
+X-Comment: It is assumed this file follows the same licensing scheme as the
+ rest of the package -- that is, the same terms as Perl itself.
+Files: t/unknown-directive.pod
+Copyright: 2002, brian d foy <bdfoy at cpan.org>
+License: Artistic | GPL-1+
+X-Comment: It is assumed this file follows the same licensing scheme as the
+ rest of the package -- that is, the same terms as Perl itself.
- This program is free software; you can redistribute it and/or modify
- it under the terms of either:
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
- a) the GNU General Public License as published by the Free
- Software Foundation; either version 1, or (at your option) any
- later version, or
-
- b) the "Artistic License"
-
- See:
-
- /usr/share/common-licenses/Artistic
- /usr/share/common-licenses/GPL
-
- For more information regarding these licensing options
-
-The Debian packaging is (C) 2003, Jay Bonci <jay at debian.org> and
-is licensed under the GPL, see `/usr/share/common-licenses/GPL'.
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Modified: trunk/libtest-pod-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/debian/rules?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/debian/rules (original)
+++ trunk/libtest-pod-perl/debian/rules Mon Jul 13 16:38:37 2009
@@ -1,70 +1,4 @@
#!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PACKAGE=$(shell dh_listpackages)
-
-ifndef PERL
-PERL = /usr/bin/perl
-endif
-
-TMP =$(CURDIR)/debian/$(PACKAGE)
-
-build: build-stamp
-build-stamp:
- dh_testdir
-
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
-
- touch $@
-
-clean:
- dh_testdir
- dh_testroot
-
- dh_clean build-stamp install-stamp
- [ ! -f Makefile ] || $(MAKE) realclean
-
-install: install-stamp
-install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
-
- $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
- [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(TMP)/usr/lib/perl5
-
- touch $@
-
-binary-arch:
-# We have nothing to do here for an architecture-independent package
-
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installdocs
- dh_installchangelogs Changes
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
-
-source diff:
- @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+%:
+ dh $@
Modified: trunk/libtest-pod-perl/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/t/00-load.t?rev=39818&op=diff
==============================================================================
--- trunk/libtest-pod-perl/t/00-load.t (original)
+++ trunk/libtest-pod-perl/t/00-load.t Mon Jul 13 16:38:37 2009
@@ -2,10 +2,12 @@
use warnings;
use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
BEGIN {
use_ok( 'Test::Pod' );
+ use_ok( 'Pod::Simple' );
}
diag( "Testing Test::Pod $Test::Pod::VERSION, Perl $], $^X" );
+diag( "Using Pod::Simple $Pod::Simple::VERSION" );
Added: trunk/libtest-pod-perl/t/link.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/t/link.pod?rev=39818&op=file
==============================================================================
--- trunk/libtest-pod-perl/t/link.pod (added)
+++ trunk/libtest-pod-perl/t/link.pod Mon Jul 13 16:38:37 2009
@@ -1,0 +1,25 @@
+
+=head1 COPYRIGHT
+
+Copyright 2009, Paul Miller C<< <jettero at cpan.org> >>
+
+
+... test text, please ignore
+
+=head1 SEE ALSO
+
+... test text, please ignore
+
+Invalid according to L<perlpod/Formatting Codes>:
+L<Paul's Perl Modules|http://voltar.org/perl>
+
+This should be OK:
+
+ L<Paul's Perl Modules|http://voltar.org/perl>
+
+This should also be OK: L<http://voltar.org/perl>
+
+... test text, please ignore
+
+=cut
+
Added: trunk/libtest-pod-perl/t/link.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-pod-perl/t/link.t?rev=39818&op=file
==============================================================================
--- trunk/libtest-pod-perl/t/link.t (added)
+++ trunk/libtest-pod-perl/t/link.t Mon Jul 13 16:38:37 2009
@@ -1,0 +1,20 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::Builder::Tester tests => 2;
+use Test::More;
+
+BEGIN {
+ use_ok( 'Test::Pod' );
+}
+
+my $file = 't/link.pod';
+test_out( "not ok 1 - POD test for $file" );
+pod_file_ok( $file );
+test_fail(-1);
+test_diag(
+ "$file (14): L<text|scheme:...> is invalid according to perlpod",
+);
+test_test( "$file is bad" );
More information about the Pkg-perl-cvs-commits
mailing list