X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_cmop%2F003_methods.t;h=1f60918b7371173386a51b32c4d84c2bc32da873;hb=16d1744a09cb08cb096e84d72831ba6f1cb312b6;hp=a94ae99ad8dcc72d1f3abfc7a4361d7ac5d88672;hpb=3933d34bcdf5b57ed6ca3993f061f3539f96d28a;p=gitmo%2FMoose.git

diff --git a/t/001_cmop/003_methods.t b/t/001_cmop/003_methods.t
index a94ae99..1f60918 100644
--- a/t/001_cmop/003_methods.t
+++ b/t/001_cmop/003_methods.t
@@ -394,5 +394,14 @@ is_deeply(
     ok(!DeleteFromMe->can('foo'));
 }
 
+{
+    my $baz_meta = Class::MOP::Class->initialize('Baz');
+    $baz_meta->add_method(foo => sub { });
+    my $stash = Package::Stash->new('Baz');
+    $stash->remove_package_symbol('&foo');
+    is_deeply([$baz_meta->get_method_list], [], "method is deleted");
+    ok(!Baz->can('foo'), "Baz can't foo");
+}
+
 
 done_testing;