1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, '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();
|
