t/800_shikabased/011-util-linear-isa.t

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