Added POD testing for the client and server documentation.

5 files changed, 50 insertions, 2 deletions

diff --git a/TODO b/TODO
index 3599fe4..8c87149 100644
--- a/TODO
+++ b/TODO
@@ -8,8 +8,6 @@ Release 1.0:
 
 * Write the PTS ACL verifier.
 
-* Add POD testing for the client and server programs.
-
 * Add POD coverage testing using Test::POD::Coverage for the server
   modules.
 
diff --git a/configure.ac b/configure.ac
index 855d2e6..03539e6 100644
--- a/configure.ac
+++ b/configure.ac
@@ -62,8 +62,10 @@ AC_DEFINE([_GNU_SOURCE], [1], [Define to 1 on Linux to get full prototypes.])
 AC_CONFIG_HEADER([config.h])
 AC_CONFIG_FILES([Makefile perl/Makefile.PL])
 AC_CONFIG_FILES([tests/client/basic-t], [chmod +x tests/client/basic-t])
+AC_CONFIG_FILES([tests/client/pod-t], [chmod +x tests/client/pod-t])
 AC_CONFIG_FILES([tests/server/admin-t], [chmod +x tests/server/admin-t])
 AC_CONFIG_FILES([tests/server/backend-t], [chmod +x tests/server/backend-t])
 AC_CONFIG_FILES([tests/server/keytab-t], [chmod +x tests/server/keytab-t])
+AC_CONFIG_FILES([tests/server/pod-t], [chmod +x tests/server/pod-t])
 AC_CONFIG_FILES([tests/util/xmalloc-t], [chmod +x tests/util/xmalloc-t])
 AC_OUTPUT
diff --git a/tests/TESTS b/tests/TESTS
index a7dbb09..e19f290 100644
--- a/tests/TESTS
+++ b/tests/TESTS
@@ -1,9 +1,11 @@
 client/basic
+client/pod
 portable/asprintf
 portable/snprintf
 server/admin
 server/backend
 server/keytab
+server/pod
 util/concat
 util/messages
 util/xmalloc
diff --git a/tests/client/pod-t.in b/tests/client/pod-t.in
new file mode 100644
index 0000000..7dd13f4
--- /dev/null
+++ b/tests/client/pod-t.in
@@ -0,0 +1,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");
+    }
+}
diff --git a/tests/server/pod-t.in b/tests/server/pod-t.in
new file mode 100644
index 0000000..fd939a5
--- /dev/null
+++ b/tests/server/pod-t.in
@@ -0,0 +1,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(keytab-backend wallet-admin wallet-backend);
+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@/server/$file", "server/$file");
+    }
+}