2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
8 $TODO = q{Mouse is not yet completed};
12 use Mouse::Util qw(with_traits);
30 my $traited_class = with_traits('Foo', 'Foo::Role');
31 ok($traited_class->meta->is_anon_class, "we get an anon class");
32 isa_ok($traited_class, 'Foo');
33 does_ok($traited_class, 'Foo::Role');
37 my $traited_class = with_traits('Foo', 'Foo::Role', 'Foo::Role2');
38 ok($traited_class->meta->is_anon_class, "we get an anon class");
39 isa_ok($traited_class, 'Foo');
40 does_ok($traited_class, 'Foo::Role');
41 does_ok($traited_class, 'Foo::Role2');
45 my $traited_class = with_traits('Foo');
46 is($traited_class, 'Foo', "don't apply anything if we don't get any traits");
50 my $traited_class = with_traits('Foo', 'Foo::Role');
51 my $traited_class2 = with_traits('Foo', 'Foo::Role');
52 is($traited_class, $traited_class2, "get the same class back when passing the same roles");