source:
tags/5.2.21/LA-Tools/t/01_pod.t
@
2115
Last change on this file since 2115 was 1955, checked in by nanardon, 7 years ago | |
---|---|
File size: 356 bytes |
Line | |
---|---|
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | use Test::Pod; |
5 | |
6 | eval "use Pod::Checker"; |
7 | plan skip_all => 'Pod::Checker required' if $@; |
8 | |
9 | my @pods = ( |
10 | all_pod_files('blib', 'man'), |
11 | ); |
12 | |
13 | plan tests => scalar(@pods) * 2; |
14 | |
15 | foreach(@pods) { |
16 | my $errors = podchecker($_); |
17 | ok($errors >= 0, "File $_ contains pod"); |
18 | ok($errors <= 0, "Check Pod of $_"); |
19 | } |
Note: See TracBrowser
for help on using the repository browser.