use strict;
use warnings;
use Test::More;
-plan skip_all => "This test requires Moose" unless eval "require Moose; 1;";
+plan skip_all => "This test requires Moose 0.68" unless eval { require Moose; Moose->VERSION(0.68); };
plan tests => 6;
test($_) for qw/Moose Mouse/;
}
...
die $@ if $@;
- is join(',', sort "${class}Class"->meta->get_method_list()), 'foo,meta';
- is join(',', sort "${class}ClassImm"->meta->get_method_list()), 'foo,meta,new';
- is join(',', sort "${class}Role"->meta->get_method_list()), 'bar';
+ is join(',', sort "${class}Class"->meta->get_method_list()), 'foo,meta', "mutable $class";
+ is join(',', sort "${class}ClassImm"->meta->get_method_list()), 'DESTROY,foo,meta,new', "immutable $class";
+ is join(',', sort "${class}Role"->meta->get_method_list()), 'bar', "role $class";
}