[Bast-commits] r4255 - branches/DBIx-Class-Schema-Loader/current/t

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2008-04-11 19:56:11 +0100 (Fri, 11 Apr 2008)
New Revision: 4255

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/04kwalitee.t
Log:
Silence the skipping on missing Test::Kwalitee, and give the real reason
if it is installed but this is running in a dist.


Modified: branches/DBIx-Class-Schema-Loader/current/t/04kwalitee.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/04kwalitee.t	2008-04-11 14:37:58 UTC (rev 4254)
+++ branches/DBIx-Class-Schema-Loader/current/t/04kwalitee.t	2008-04-11 18:56:11 UTC (rev 4255)
@@ -1,7 +1,8 @@
 use Test::More;
 
-eval { require Test::Kwalitee; die "Not maintainer" unless -f 'MANIFEST.SKIP' };
-if($@) {
-    plan( skip_all => $@ );
-}
+plan skip_all => "Not maintainer" unless -f 'MANIFEST.SKIP';
+
+eval { require Test::Kwalitee; };
+plan skip_all => 'Test::Kwalitee not installed' if $@;
+
 Test::Kwalitee->import();