latest moose inlining destructor by default

[gitmo/Mouse.git] / t / 800_shikabased / 013-compatibility-get_method_list.t

diff --git a/t/800_shikabased/013-compatibility-get_method_list.t b/t/800_shikabased/013-compatibility-get_method_list.t
index e75ce26..f7b6dfa 100644 (file)
--- a/t/800_shikabased/013-compatibility-get_method_list.t
+++ b/t/800_shikabased/013-compatibility-get_method_list.t
@@ -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";
 }