Moose-2.1405HEADMoose-2.1405master

1 files changed, 33 insertions, 0 deletions

diff --git a/t/roles/overloading_combine_to_role.t b/t/roles/overloading_combine_to_role.t
new file mode 100644
index 0000000..72eb9c4
--- /dev/null
+++ b/t/roles/overloading_combine_to_role.t
@@ -0,0 +1,33 @@
+use strict;
+use warnings;
+
+use Test::More 0.88;
+use Test::Warnings;
+use overload ();
+
+use lib 't/lib';
+
+use OverloadingTests;
+use Overloading::ClassWithCombiningRole;
+
+for my $role (
+    qw( Overloading::RoleWithOverloads Overloading::RoleWithoutOverloads )) {
+
+    ok(
+        Overloading::ClassWithCombiningRole->DOES($role),
+        "Overloading::ClassWithCombiningRole does $role role"
+    );
+}
+
+OverloadingTests::test_overloading_for_package($_) for qw(
+    Overloading::RoleWithOverloads
+    Overloading::ClassWithCombiningRole
+);
+
+OverloadingTests::test_no_overloading_for_package(
+    'Overloading::RoleWithoutOverloads');
+
+OverloadingTests::test_overloading_for_package(
+    'Overloading::ClassWithCombiningRole');
+
+done_testing();