[Bast-commits] r5726 - trunk/DBIx-Class-Schema-Loader/t

[timbunce at dev.catalyst.perl.org]

Author: timbunce
Date: 2009-03-09 21:40:30 +0000 (Mon, 09 Mar 2009)
New Revision: 5726

Modified:
   trunk/DBIx-Class-Schema-Loader/t/04kwalitee.t
Log:
Reduce noise when running tests if Test::Kwalitee isn't installed.


Modified: trunk/DBIx-Class-Schema-Loader/t/04kwalitee.t
===================================================================
--- trunk/DBIx-Class-Schema-Loader/t/04kwalitee.t	2009-03-09 21:36:21 UTC (rev 5725)
+++ trunk/DBIx-Class-Schema-Loader/t/04kwalitee.t	2009-03-09 21:40:30 UTC (rev 5726)
@@ -2,6 +2,7 @@
 
 eval { require Test::Kwalitee; die "Not maintainer" unless -f 'MANIFEST.SKIP' };
 if($@) {
+    $@ =~ s/ \(\@INC contains.*//; # reduce the noise
     plan( skip_all => $@ );
 }
 Test::Kwalitee->import();