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

[turnstep]

Author: turnstep
Date: Mon Mar  3 09:21:30 2008
New Revision: 10874

Modified:
   DBD-Pg/trunk/t/00-signature.t

Log:
Be nicer when people declare Test::Critic, but don't have the module installed.


Modified: DBD-Pg/trunk/t/00-signature.t
==============================================================================
--- DBD-Pg/trunk/t/00-signature.t       (original)
+++ DBD-Pg/trunk/t/00-signature.t       Mon Mar  3 09:21:30 2008
@@ -12,21 +12,23 @@
 }
 plan tests => 1;
 
-if (!eval { require Module::Signature; 1 }) {
-       fail 'Could not find Module::Signature';
-}
-elsif ( !-e 'SIGNATURE' ) {
-       fail 'SIGNATURE file was not found';
-}
-elsif ( ! -s 'SIGNATURE') {
-       fail 'SIGNATURE file was empty';
-}
-else {
-       my $ret = Module::Signature::verify();
-       if ($ret eq Module::Signature::SIGNATURE_OK()) {
-               pass 'Valid SIGNATURE file';
+SKIP: {
+       if (!eval { require Module::Signature; 1 }) {
+               skip 'Must have Module::Signature to test SIGNATURE file', 1;
+       }
+       elsif ( !-e 'SIGNATURE' ) {
+               fail 'SIGNATURE file was not found';
+       }
+       elsif ( ! -s 'SIGNATURE') {
+               fail 'SIGNATURE file was empty';
        }
        else {
-               fail 'Invalid SIGNATURE file';
+               my $ret = Module::Signature::verify();
+               if ($ret eq Module::Signature::SIGNATURE_OK()) {
+                       pass 'Valid SIGNATURE file';
+               }
+               else {
+                       fail 'Invalid SIGNATURE file';
+               }
        }
 }