TODOify rbuels's failing test, see [rt.cpan.org #47350]
Shawn M Moore [Thu, 25 Jun 2009 20:03:27 +0000 (16:03 -0400)]
t/010_basics/021_attr_override_method_warning.t

index 61dd021..e86ad30 100644 (file)
@@ -16,6 +16,8 @@ sub foo { 'omglolbbq' }
 package main;
 EOP
 
-is( scalar(@warnings), 1, 'got 1 warning' );
-like( $warnings[0], qr/\bfoo\b.+redefine/, 'got a redefinition warning that mentions redefining or overriding or something');
-
+TODO: {
+    local $TODO = "Class-MOP does not warn about this yet";
+    is( scalar(@warnings), 1, 'got 1 warning' );
+    like( $warnings[0], qr/\bfoo\b.+redefine/, 'got a redefinition warning that mentions redefining or overriding or something');
+}