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