t/001_mouse/811-util-linear-isa.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 2;
   4
   5 {
   6     package Parent;
   7     use Mouse;
   8 }
   9
  10 {
  11     package Child;
  12     use Mouse;
  13     extends 'Parent';
  14 }
  15
  16 is_deeply join(', ', Parent->meta->linearized_isa), 'Parent, Mouse::Object';
  17 is_deeply join(', ', Child->meta->linearized_isa),  'Child, Parent, Mouse::Object';
  18