[svn:DBD-Pg] r11086 - DBD-Pg/trunk/t

[turnstep]

Author: turnstep
Date: Mon Apr 14 16:35:57 2008
New Revision: 11086

Modified:
   DBD-Pg/trunk/t/99_pod.t

Log:
Fix count, turn into proper skips.


Modified: DBD-Pg/trunk/t/99_pod.t
==============================================================================
--- DBD-Pg/trunk/t/99_pod.t     (original)
+++ DBD-Pg/trunk/t/99_pod.t     Mon Apr 14 16:35:57 2008
@@ -14,10 +14,11 @@
        require Test::Pod;
        Test::Pod->import;
 };
-if ($@ or $Test::Pod::VERSION < $PODVERSION) {
-       pass('Skipping Test::Pod testing');
-}
-else {
+
+SKIP: {
+       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');
 }
@@ -28,10 +29,12 @@
        require Test::Pod::Coverage;
        Test::Pod::Coverage->import;
 };
-if ($@ or $Test::Pod::Coverage::VERSION < $PODCOVERVERSION) {
-       pass ('Skipping Test::Pod::Coverage testing');
-}
-else {
+SKIP: {
+
+       if ($@ or $Test::Pod::Coverage::VERSION < $PODCOVERVERSION) {
+               skip "Test::Pod::Coverage $PODCOVERVERSION is required", 1;
+       }
+
        my $trusted_names  =
                [
                 qr{^CLONE$},
@@ -174,5 +177,4 @@
 
                ];
        pod_coverage_ok('DBD::Pg', {trustme => $trusted_names}, 'DBD::Pg pod 
coverage okay');
-
 }