Mercurial > hg > chronicle

annotate tests/pod.t @ 232:dfb2cf5a5882 release-2.7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New release
author Steve Kemp <steve@steve.org.uk>
date Fri, 02 May 2008 21:10:09 +0100
parents bc8961a81af6
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
1 #!/usr/bin/perl -w
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
2
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
3 #
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
4 # Test that the POD we use in our modules is valid.
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
5 #
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
6
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
7
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
8 use strict;
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
9 use Test::More;
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
10 eval "use Test::Pod 1.00";
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
11 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
12
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
13 #
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
14 # Run the test(s).
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
15 #
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
16 my @poddirs = qw( bin );
bc8961a81af6 2007-08-13 22:53:14 by steve
steve
parents:
diff changeset
17 all_pod_files_ok( all_pod_files( @poddirs ) );