t/900_bug/002_does_role_should_search_parent.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 2;
   4
   5 # Klass->does_role should check the parent classes.
   6
   7 {
   8     package R1;
   9     use Mouse::Role;
  10 }
  11
  12 {
  13     package C1;
  14     use Mouse;
  15     with 'R1';
  16 }
  17
  18 {
  19     package C2;
  20     use Mouse;
  21     extends 'C1';
  22 }
  23
  24 ok(C1->meta->does_role('R1'));
  25 ok(C2->meta->does_role('R1'));
  26