diff options
Diffstat (limited to 't/roles/overloading_combine_to_role.t')
-rw-r--r-- | t/roles/overloading_combine_to_role.t | 33 |
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(); |