annotate tests/pod.t @ 307:fe474f3ed3e5 default tip

Making archive pages have the same layout as the index
author Dominic Cleal <dominic@computerkb.co.uk>
date Mon, 22 Dec 2008 12:08:20 +0000
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 ) );