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;
10 $TODO = q{Mouse is not yet completed};
32 default => sub { Foo->new() },
35 } '... can create the attribute with delegations';
42 } '... created the object ok';
45 is($bar->a, 'Foo::a', '... got the right delgated value');
48 $SIG{__WARN__} = sub { push @w, "@_" };
58 default => sub { Foo->new() },
61 } '... can create the attribute with delegations';
65 is(@w, 0, "no warnings");
71 } '... created the object ok';
74 is($baz->a, 'Foo::a', '... got the right delgated value');
91 default => sub { Foo->new() },
92 handles => [qw(a new)],
94 } '... can create the attribute with delegations';
99 local $TODO = "warning not yet implemented";
101 is(@w, 1, "one warning");
102 like($w[0], qr/not delegating.*new/i, "warned");
110 } '... created the object ok';
111 isa_ok($blart, 'Blart');
113 is($blart->a, 'Foo::a', '... got the right delgated value');