[Bast-commits] r5325 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-01-20 17:39:54 +0000 (Tue, 20 Jan 2009)
New Revision: 5325

Modified:
   DBIx-Class/0.08/trunk/t/103many_to_many_warning.t
Log:
Disable 103many_to_many_warning.t for perl 5.10 - warnings::register is broken on it

Modified: DBIx-Class/0.08/trunk/t/103many_to_many_warning.t
===================================================================
--- DBIx-Class/0.08/trunk/t/103many_to_many_warning.t	2009-01-18 21:19:37 UTC (rev 5324)
+++ DBIx-Class/0.08/trunk/t/103many_to_many_warning.t	2009-01-20 17:39:54 UTC (rev 5325)
@@ -5,7 +5,10 @@
 use lib qw(t/lib);
 use Data::Dumper;
 
-plan tests => 2;
+plan ( ($] >= 5.009000 and $] < 5.010001)
+  ? (skip_all => 'warnings::register broken under 5.10: http://rt.perl.org/rt3/Public/Bug/Display.html?id=62522')
+  : (tests => 2)
+);
 
 {
   my @w;