implement remove_overloaded_operator

[gitmo/Moose.git] / t / metaclasses / overloading.t

diff --git a/t/metaclasses/overloading.t b/t/metaclasses/overloading.t
index ebc2f12..ba5f1d5 100644 (file)
--- a/t/metaclasses/overloading.t
+++ b/t/metaclasses/overloading.t
@@ -94,6 +94,11 @@ BEGIN { $plus_impl = sub { $plus = 1; "plus" } }
     is($minus, 0);
     is(Foo::Overloaded->new - Foo::Overloaded->new, "minus");
     is($minus, 1);
+
+    $meta->remove_overloaded_operator('-');
+
+    like(exception { Foo::Overloaded->new - Foo::Overloaded->new },
+         qr/Operation "-": no method found/);
 }
 
 done_testing;