view tests/pod.t @ 50:dab776364751

2007-10-11 07:40:01 by steve Added from Felipe Sateler
author steve
date Thu, 11 Oct 2007 07:40:01 +0000
parents bc8961a81af6
children
line wrap: on
line source

#!/usr/bin/perl -w

#
#  Test that the POD we use in our modules is valid.
#


use strict;
use Test::More;
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;

#
#  Run the test(s).
#
my @poddirs = qw( bin );
all_pod_files_ok( all_pod_files( @poddirs ) );