summaryrefslogtreecommitdiff
path: root/t/roles/overloading_combine_to_class.t
diff options
context:
space:
mode:
Diffstat (limited to 't/roles/overloading_combine_to_class.t')
-rw-r--r--t/roles/overloading_combine_to_class.t33
1 files changed, 33 insertions, 0 deletions
diff --git a/t/roles/overloading_combine_to_class.t b/t/roles/overloading_combine_to_class.t
new file mode 100644
index 0000000..e749248
--- /dev/null
+++ b/t/roles/overloading_combine_to_class.t
@@ -0,0 +1,33 @@
+use strict;
+use warnings;
+
+use Test::More 0.96;
+use Test::Warnings;
+use overload ();
+
+use lib 't/lib';
+
+use OverloadingTests;
+use Overloading::CombiningClass;
+
+for my $role (
+ qw( Overloading::RoleWithOverloads Overloading::RoleWithoutOverloads )) {
+
+ ok(
+ Overloading::CombiningClass->DOES($role),
+ "Overloading::CombiningClass does $role role"
+ );
+}
+
+OverloadingTests::test_overloading_for_package($_) for qw(
+ Overloading::RoleWithOverloads
+ Overloading::CombiningClass
+);
+
+OverloadingTests::test_no_overloading_for_package(
+ 'Overloading::RoleWithoutOverloads');
+
+OverloadingTests::test_overloading_for_package(
+ 'Overloading::CombiningClass');
+
+done_testing();