Author: paultcochrane
Date: Thu Mar 29 06:16:56 2007
New Revision: 17835
Modified:
trunk/t/doc/pod.t
Log:
[t] Added an informative message as to what ok() means when all pod files
have the correct syntax.
Modified: trunk/t/doc/pod.t
==============================================================================
--- trunk/t/doc/pod.t (original)
+++ trunk/t/doc/pod.t Thu Mar 29 06:16:56 2007
@@ -83,7 +83,7 @@
}
my $bad_files = join( "\n", @failed );
-is( $bad_files, q{} ); # only ok if everything passed
+is( $bad_files, q{}, 'Pod syntax correct' ); # only ok if everything passed
# Pulled from Test::Pod
sub file_pod_ok {
