1 files changed, 23 insertions, 0 deletions
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");
+    }
+}