blob: 7dd13f46834d50a1772f6cef5374d5265d94ab8d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
# $Id$
#
# tests/server/pod-t -- Test POD formatting for client documentation.
#
# Written by Russ Allbery <rra@stanford.edu>
# Copyright 2008 Board of Trustees, Leland Stanford Jr. University
#
# See LICENSE for licensing terms.
use Test::More;
my @files = qw(wallet.pod);
my $total = scalar (@files);
plan tests => $total;
eval 'use Test::Pod 1.00';
SKIP: {
skip $total, 'Test::Pod 1.00 required for testing POD' if $@;
for my $file (@files) {
pod_file_ok ("@abs_top_srcdir@/client/$file", "client/$file");
}
}
|