From 115bb8252a126fa0cb35ef0f47adf2edd526e03b Mon Sep 17 00:00:00 2001 From: Andrew Moore Date: Fri, 20 Jun 2008 13:02:03 -0500 Subject: [PATCH] Adding an automated test for POD correctness. This test script checks all perl files in the C4 directory for POD correctness. It is completely optional, and as of yet, is not actually run when you run the test suite. It's just a handy way to check our POD documentation, which should be correct before we release code. This script can be invoked with 'prove -v xt/author/podcorrectness.t' Additionally, this is the first test in the 'xt' directory. Current perl testing practices have reserved the 'xt' directory for tests that should be run by the code authors before release. See: http://perl-qa.hexten.net/wiki/index.php/Oslo_QA_Hackathon_2008_:Achievements#Testing_Best_Practices for more information. Signed-off-by: Joshua Ferraro --- xt/author/podcorrectness.t | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 xt/author/podcorrectness.t diff --git a/xt/author/podcorrectness.t b/xt/author/podcorrectness.t new file mode 100644 index 0000000000..6ad915c40c --- /dev/null +++ b/xt/author/podcorrectness.t @@ -0,0 +1,24 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +=head2 podcorrectness.t + +This test file checks all perl modules in the C4 directory for POD +correctness. It typically finds things like pod tags withouth blank +lines immediately before or after them, unknown directives, or =over, +=item, and =back in the wrong order. + +You must have Test::Pod installed. + +One good way to run this is with C + +=cut + +use Test::More; +eval "use Test::Pod 1.00"; +plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; +my @poddirs = qw( C4 ); +all_pod_files_ok( all_pod_files( @poddirs ) ); + -- 2.39.5