X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F013-compatibility-get_method_list.t;h=41d886e363fa46e633e688a677b6fa26eedf26dd;hb=7d987c56aa22bb6f6a694783bd7158ef37fad85f;hp=8e85b84062317d436e5ceea9fa438c4be29542e9;hpb=8632b6fe69bd4417ad67fbcbbca617ad4fd54ccb;p=gitmo%2FMouse.git

diff --git a/t/800_shikabased/013-compatibility-get_method_list.t b/t/800_shikabased/013-compatibility-get_method_list.t
index 8e85b84..41d886e 100644
--- a/t/800_shikabased/013-compatibility-get_method_list.t
+++ b/t/800_shikabased/013-compatibility-get_method_list.t
@@ -1,7 +1,7 @@
 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.81" unless eval { require Moose; Moose->VERSION(0.81); };
 plan tests => 6;
 
 test($_) for qw/Moose Mouse/;
@@ -30,8 +30,8 @@ sub test {
 }
 ...
     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";
 }