1 use Test::More tests => 14;
14 package Local::Class1;
23 package Local::Class2;
25 with qw( Local::Role1 );
26 with qw( Local::Role2 );
30 package Local::Class3;
32 with qw( Local::Role1 );
33 with qw( Local::Role2 );
35 my ($proto, $role) = @_;
36 return 1 if $role eq 'Local::Role3';
37 return $proto->Role::Tiny::does_role($role);
42 my $class = "Local::Class$c";
44 my $role = "Local::Role$r";
45 ok($class->does($role), "$class\->does($role)");
46 ok($class->DOES($role), "$class\->DOES($role)");
51 my $class = "Local::Class3";
52 my $role = "Local::Role3";
53 ok( ! $class->does($role), "$class\->does($role)");
54 ok( $class->DOES($role), "$class\->DOES($role)");