need to delete from the method map, not just set to undef (kentnl)

[gitmo/Moose.git] / t / 001_cmop / 003_methods.t

diff --git a/t/001_cmop/003_methods.t b/t/001_cmop/003_methods.t
index a94ae99..1f60918 100644 (file)
--- 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;