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;
9 $TODO = q{Mouse is not yet completed};
18 push @phonograph, 'footsteps',
22 push @phonograph, 'quack';
29 push @phonograph, 'honk';
34 use Mouse::Util::TypeConstraints;
36 my $ducktype = duck_type 'DuckType' => qw(walk quack);
44 my $t = DucktypeTest->new(duck => Duck->new);
46 is_deeply([splice @phonograph], ['quack']);
49 is_deeply([splice @phonograph], ['footsteps']);