t/mro/basic_04_c3_utf8.t

   1 #!./perl
   2
   3 use strict;
   4 use warnings;
   5 use utf8;
   6 use open qw( :utf8 :std );
   7
   8 require q(./test.pl); plan(tests => 1);
   9
  10 =pod
  11
  12 From the parrot test t/pmc/object-meths.t
  13
  14  A   B A   E
  15   \ /   \ /
  16    C     D
  17     \   /
  18      \ /
  19       F
  20
  21 =cut
  22
  23 {
  24     package Ƭ::ŁiƁ::ଅ; use mro 'c3';
  25     package Ƭ::ŁiƁ::ᛒ; use mro 'c3';
  26     package Ƭ::ŁiƁ::ऍ; use mro 'c3';
  27     package Ƭ::ŁiƁ::ƈ; use mro 'c3'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ᛒ');
  28     package Ƭ::ŁiƁ::Ḋ; use mro 'c3'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ऍ');
  29     package Ƭ::ŁiƁ::Ḟ; use mro 'c3'; use base ('Ƭ::ŁiƁ::ƈ', 'Ƭ::ŁiƁ::Ḋ');
  30 }
  31
  32 ok(eq_array(
  33     mro::get_linear_isa('Ƭ::ŁiƁ::Ḟ'),
  34     [ qw(Ƭ::ŁiƁ::Ḟ Ƭ::ŁiƁ::ƈ Ƭ::ŁiƁ::Ḋ Ƭ::ŁiƁ::ଅ Ƭ::ŁiƁ::ᛒ Ƭ::ŁiƁ::ऍ) ]
  35 ), '... got the right MRO for Ƭ::ŁiƁ::Ḟ');
  36