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     unshift @Child::ISA, 'Parent';
  13 }
  14
  15 is_deeply join(', ', @{get_linear_isa('Parent')}), 'Parent';
  16 is_deeply join(', ', @{get_linear_isa('Child')}),  'Child, Parent';
  17