fix "use MyExporter -traits => ..." (RT77974)

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

diff --git a/t/metaclasses/overloading.t b/t/metaclasses/overloading.t
index f2227c8..daeed8c 100644 (file)
--- a/t/metaclasses/overloading.t
+++ b/t/metaclasses/overloading.t
@@ -4,6 +4,8 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
+my $quote = qr/['`"]/;
+
 {
     package Foo;
     use Moose;
@@ -20,10 +22,10 @@ use Test::Fatal;
     ok(!$meta->has_overloaded_operator('+'));
     ok(!$meta->has_overloaded_operator('-'));
 
-    is_deeply([$meta->get_overloaded_operators], []);
-
     is_deeply([$meta->get_overload_list], []);
 
+    is_deeply([$meta->get_all_overloaded_operators], []);
+
     is($meta->get_overloaded_operator('+'), undef);
     is($meta->get_overloaded_operator('-'), undef);
 }
@@ -45,9 +47,9 @@ BEGIN { $plus_impl = sub { $plus = 1; "plus" } }
     ok($meta->has_overloaded_operator('+'));
     ok(!$meta->has_overloaded_operator('-'));
 
-    is_deeply([$meta->get_overloaded_operators], ['+']);
+    is_deeply([$meta->get_overload_list], ['+']);
 
-    my @overloads = $meta->get_overload_list;
+    my @overloads = $meta->get_all_overloaded_operators;
     is(scalar(@overloads), 1);
     my $plus_meth = $overloads[0];
     isa_ok($plus_meth, 'Class::MOP::Method::Overload');
@@ -73,15 +75,15 @@ BEGIN { $plus_impl = sub { $plus = 1; "plus" } }
     my $minus_impl = sub { $minus = 1; "minus" };
 
     like(exception { Foo::Overloaded->new - Foo::Overloaded->new },
-         qr/Operation "-": no method found/);
+         qr/Operation $quote-$quote: no method found/);
 
     $meta->add_overloaded_operator('-' => $minus_impl);
 
     ok($meta->has_overloaded_operator('-'));
 
-    is_deeply([sort $meta->get_overloaded_operators], ['+', '-']);
+    is_deeply([sort $meta->get_overload_list], ['+', '-']);
 
-    is(scalar($meta->get_overload_list), 2);
+    is(scalar($meta->get_all_overloaded_operators), 2);
 
     my $minus_meth = $meta->get_overloaded_operator('-');
     isa_ok($minus_meth, 'Class::MOP::Method::Overload');
@@ -94,6 +96,83 @@ 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 $quote-$quote: no method found/);
+}
+
+my $times = 0;
+my $divided = 0;
+{
+    package Foo::OverloadedMethod;
+    use Moose;
+    use overload '*' => 'times';
+
+    sub times   { $times = 1;   "times" }
+    sub divided { $divided = 1; "divided" }
+}
+
+{
+    my $meta = Foo::OverloadedMethod->meta;
+
+    ok($meta->is_overloaded);
+
+    ok($meta->has_overloaded_operator('*'));
+    ok(!$meta->has_overloaded_operator('/'));
+
+    is_deeply([$meta->get_overload_list], ['*']);
+
+    my @overloads = $meta->get_all_overloaded_operators;
+    is(scalar(@overloads), 1);
+    my $times_meth = $overloads[0];
+    isa_ok($times_meth, 'Class::MOP::Method::Overload');
+    is($times_meth->operator, '*');
+    is($times_meth->name, '(*');
+    is($times_meth->body, $meta->get_method('times')->body);
+    is($times_meth->package_name, 'Foo::OverloadedMethod');
+    is($times_meth->associated_metaclass, $meta);
+
+    my $times_meth2 = $meta->get_overloaded_operator('*');
+    { local $TODO = "we don't cache these yet";
+    is($times_meth2, $times_meth);
+    }
+    is($times_meth2->operator, '*');
+    is($times_meth2->body, $meta->get_method('times')->body);
+    is($meta->get_overloaded_operator('/'), undef);
+
+    is($times, 0);
+    is(Foo::OverloadedMethod->new * Foo::OverloadedMethod->new, "times");
+    is($times, 1);
+
+    like(exception { Foo::OverloadedMethod->new / Foo::OverloadedMethod->new },
+         qr{Operation $quote/$quote: no method found});
+
+    $meta->add_overloaded_operator('/' => 'divided');
+
+    ok($meta->has_overloaded_operator('/'));
+
+    is_deeply([sort $meta->get_overload_list], ['*', '/']);
+
+    is(scalar($meta->get_all_overloaded_operators), 2);
+
+    my $divided_meth = $meta->get_overloaded_operator('/');
+    isa_ok($divided_meth, 'Class::MOP::Method::Overload');
+    is($divided_meth->operator, '/');
+    is($divided_meth->name, '(/');
+    is($divided_meth->body, $meta->get_method('divided')->body);
+    is($divided_meth->package_name, 'Foo::OverloadedMethod');
+    is($divided_meth->associated_metaclass, $meta);
+
+    is($divided, 0);
+    is(Foo::OverloadedMethod->new / Foo::OverloadedMethod->new, "divided");
+    is($divided, 1);
+
+    $meta->remove_overloaded_operator('/');
+
+    like(exception { Foo::OverloadedMethod->new / Foo::OverloadedMethod->new },
+         qr{Operation $quote/$quote: no method found});
 }
 
 done_testing;