Lines Matching refs:ROLES

23 my @ROLES = qw{ TestRole::Role TestRole::Role2 };
53     test_out $_ok->("$thing does $_") for @ROLES;
54     does_ok $thing, [ @ROLES ];
63     test_out $_ok->($msg) for @ROLES;
64     does_ok $thing, [ @ROLES ], $msg;
73     test_out $_ok->("$msg $_") for @ROLES;
74     does_ok $thing, [ @ROLES ], "$msg %s";
92     do { test_out $_nok->("$thing does $_"); test_fail 1 } for @ROLES;
93     does_ok $thing, [ @ROLES ];
101     do { test_out $_nok->("$thing does $_"); test_fail 2 } for $ROLES[0];
102     do { test_out $_ok->("$thing does $_")               } for $ROLES[1];
103     does_ok $thing, [ @ROLES ];