Commit | Line | Data |
6bc89f92 |
1 | BEGIN { |
77d2a621 |
2 | if ($ENV{PERL_CORE}) { |
3 | chdir 't' if -d 't'; |
4 | @INC = '../lib'; |
5 | } |
6 | } |
7 | |
8 | BEGIN { |
6bc89f92 |
9 | eval "use Test::More"; |
10 | if ($@) { |
11 | print "1..0 # Skipped: Test::More not installed\n"; |
12 | exit; |
13 | } |
14 | } |
15 | |
16 | eval "use Test::Pod::Coverage 0.08"; |
17 | plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD coverage" if $@; |
18 | |
19 | my @privfcns = qw( |
77d2a621 |
20 | Addfile |
21 | Hexdigest |
22 | B64digest |
6bc89f92 |
23 | shaclose |
77d2a621 |
24 | shadump |
25 | shadup |
26 | shaload |
27 | shaopen |
28 | sharewind |
6bc89f92 |
29 | shawrite |
30 | ); |
31 | |
32 | all_pod_coverage_ok( { also_private => \@privfcns } ); |