Regenerate test files

[gitmo/Mouse.git] / t / 030_roles / 010_run_time_role_composition.t

diff --git a/t/030_roles/010_run_time_role_composition.t b/t/030_roles/010_run_time_role_composition.t
index c4ba5ce..9a3a5d7 100644 (file)
--- a/t/030_roles/010_run_time_role_composition.t
+++ b/t/030_roles/010_run_time_role_composition.t
@@ -1,9 +1,13 @@
 #!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
 use Test::More;
+$TODO = q{Mouse is not yet completed};
 
 use Scalar::Util qw(blessed);
 
@@ -61,12 +65,12 @@ isa_ok($obj2, 'My::Class');
 }
 
 {
-    ok(!$obj2->does('Bark'), '... we do not do any roles yet');
+    ok(!$obj2->does('Sleeper'), '... we do not do any roles yet');
 
-    Bark->meta->apply($obj2);
+    Sleeper->meta->apply($obj2);
 
-    ok($obj2->does('Bark'), '... we now do the Bark role');
-    is(blessed($obj), blessed($obj2), '... they share the same anon-class/role thing');
+    ok($obj2->does('Sleeper'), '... we now do the Sleeper role');
+    isnt(blessed($obj), blessed($obj2), '... they DO NOT share the same anon-class/role thing');
 }
 
 {
@@ -81,7 +85,7 @@ isa_ok($obj2, 'My::Class');
 
     ok(!My::Class->does('Sleeper'), '... the class does not do the Sleeper role');
 
-    isnt(blessed($obj), blessed($obj2), '... they no longer share the same anon-class/role thing');
+    isnt(blessed($obj), blessed($obj2), '... they still don\'t share the same anon-class/role thing');
 
     isa_ok($obj, 'My::Class');
 
@@ -92,12 +96,22 @@ isa_ok($obj2, 'My::Class');
 }
 
 {
-    ok(!$obj2->does('Sleeper'), '... we do not do any roles yet');
+    ok(!$obj2->does('Bark'), '... we do not do Bark yet');
 
-    Sleeper->meta->apply($obj2);
+    Bark->meta->apply($obj2);
 
-    ok($obj2->does('Sleeper'), '... we now do the Bark role');
-    is(blessed($obj), blessed($obj2), '... they share the same anon-class/role thing again');
+    ok($obj2->does('Bark'), '... we now do the Bark role');
+    isnt(blessed($obj), blessed($obj2), '... they still don\'t share the same anon-class/role thing');
+}
+
+# test that anon classes are equivalent after role composition in the same order
+{
+    foreach ($obj, $obj2) {
+        $_ = My::Class->new;
+        Bark->meta->apply($_);
+        Sleeper->meta->apply($_);
+    }
+    is(blessed($obj), blessed($obj2), '... they now share the same anon-class/role thing');
 }
 
 done_testing;