Mercurial > hg > chronicle

annotate tests/pod.t @ 1:bc8961a81af6 release

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2007-08-13 22:53:14 by steve Initial revision
author steve
date Mon, 13 Aug 2007 22:53:14 +0000
parents
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 ) );