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};
17 push @called, 'Class::DEMOLISH';
22 push @called, 'Class::DEMOLISHALL';
23 $self->SUPER::DEMOLISHALL(@_);
31 push @called, 'Child::DEMOLISH';
36 push @called, 'Child::DEMOLISHALL';
37 $self->SUPER::DEMOLISHALL(@_);
41 is_deeply([splice @called], [], "no DEMOLISH calls yet");
44 my $object = Class->new;
46 is_deeply([splice @called], [], "no DEMOLISH calls yet");
49 is_deeply([splice @called], ['Class::DEMOLISHALL', 'Class::DEMOLISH']);
52 my $child = Child->new;
53 is_deeply([splice @called], [], "no DEMOLISH calls yet");
57 is_deeply([splice @called], ['Child::DEMOLISHALL', 'Class::DEMOLISHALL', 'Child::DEMOLISH', 'Class::DEMOLISH']);