TODOify the test for now
Shawn M Moore [Tue, 25 Nov 2008 08:20:16 +0000 (08:20 +0000)]
t/007-excludes.t

index 8762907..b312bed 100644 (file)
@@ -28,11 +28,14 @@ sub excludes_roles {
     } @_
 }
 
-throws_ok {
-    Moose::Meta::Class->create_anon_class(
-        roles => [ 'Role::A', excludes_roles('Role::A') ],
-    );
-} qr/^Conflict detected: Role::A excludes role 'Role::A'/;
+TODO: {
+    local $TODO = "the error message says Role::A excludes Role::A..??!";
+    throws_ok {
+        Moose::Meta::Class->create_anon_class(
+            roles => [ 'Role::A', excludes_roles('Role::A') ],
+        );
+    } qr/^Conflict detected: Moose::Meta::Role::__ANON__::SERIAL::\d+ excludes role 'Role::A'/;
+};
 
 #lives_ok {
 #    Moose::Meta::Class->create_anon_class(