diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2014-06-05 13:56:57 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-06-05 13:56:57 +0100 |
| commit | 465ef26f5213110b0fbef4beb3f601d18dc2cb05 (patch) | |
| tree | e11cf102132813634cdcd43bd36bdc9f19cb5530 /t | |
| parent | f5810d8b38aa5e494c3f7f1b976018eff278b35b (diff) | |
| download | perl-libnet-465ef26f5213110b0fbef4beb3f601d18dc2cb05.tar.gz | |
Add optional POD testing
Diffstat (limited to 't')
| -rw-r--r-- | t/pod.t | 47 |
1 files changed, 47 insertions, 0 deletions
@@ -0,0 +1,47 @@ +#!perl
+#===============================================================================
+#
+# t/pod.t
+#
+# DESCRIPTION
+# Test script to check POD.
+#
+# COPYRIGHT
+# Copyright (C) 2014 Steve Hay. All rights reserved.
+#
+# LICENCE
+# You may distribute under the terms of either the GNU General Public License
+# or the Artistic License, as specified in the LICENCE file.
+#
+#===============================================================================
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Test::More;
+
+#===============================================================================
+# MAIN PROGRAM
+#===============================================================================
+
+MAIN: {
+ my $ok = eval {
+ require Test::Pod;
+ Test::Pod->import();
+ 1;
+ };
+
+ if (not $ok) {
+ plan skip_all => 'Test::Pod required to test POD';
+ }
+ elsif ($Test::Pod::VERSION < 1.00) {
+ plan skip_all => 'Test::Pod 1.00 or higher required to test POD';
+ }
+ else {
+ all_pod_files_ok();
+ }
+}
+
+#===============================================================================
|