t/001_mouse/064-class-c3.t

   1 #!perl
   2 use strict;
   3 use warnings;
   4
   5 BEGIN{
   6     eval{ require MRO::Compat };
   7     eval{ require mro };
   8 }
   9
  10 use Test::More defined(&mro::get_linear_isa)
  11     ? (tests => 1)
  12     : (skip_all => 'This test requires mro');
  13
  14 {
  15     package Base;
  16     use Mouse;
  17
  18     package Left;
  19     use Mouse;
  20     extends 'Base';
  21
  22     package Right;
  23     use Mouse;
  24     extends 'Base';
  25
  26     package Diamond;
  27     use Mouse;
  28     use mro 'c3';
  29
  30     extends qw(Left Right);
  31
  32 }
  33
  34 is_deeply([Diamond->meta->linearized_isa], [qw(Diamond Left Right Base Mouse::Object)]);