Author: turnstep
Date: Mon Nov 23 09:53:08 2009
New Revision: 13582
Modified:
DBD-Pg/trunk/t/99_pod.t
Log:
Run Test::Pod on things in t/lib as well.
Modified: DBD-Pg/trunk/t/99_pod.t
==============================================================================
--- DBD-Pg/trunk/t/99_pod.t (original)
+++ DBD-Pg/trunk/t/99_pod.t Mon Nov 23 09:53:08 2009
@@ -13,7 +13,7 @@
plan (skip_all => 'Test skipped unless environment variable
RELEASE_TESTING is set');
}
-plan tests => 3;
+plan tests => 10;
my $PODVERSION = '0.95';
eval {
@@ -25,8 +25,20 @@
if ($@ or $Test::Pod::VERSION < $PODVERSION) {
skip ("Test::Pod $PODVERSION is required", 2);
}
- pod_file_ok ('Pg.pm');
- pod_file_ok ('lib/Bundle/DBD/Pg.pm');
+for my $filename (qw{
+Pg.pm
+lib/Bundle/DBD/Pg.pm
+t/lib/App/Info.pm
+t/lib/App/Info/RDBMS/PostgreSQL.pm
+t/lib/App/Info/Util.pm
+t/lib/App/Info/Request.pm
+t/lib/App/Info/Handler.pm
+t/lib/App/Info/Handler/Prompt.pm
+t/lib/App/Info/RDBMS.pm
+}
+) {
+ pod_file_ok($filename);
+}
}
## We won't require everyone to have this, so silently move on if not found
