t/05_MRO.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 BEGIN {
   9     use_ok('Class::C3::XS');
  10     use_ok('t::lib::F');
  11 }
  12
  13 =pod
  14
  15 From the parrot test t/pmc/object-meths.t
  16
  17  A   B A   E
  18   \ /   \ /
  19    C     D
  20     \   /
  21      \ /
  22       F
  23
  24 =cut
  25
  26 is_deeply(
  27     [ Class::C3::XS::calculateMRO('t::lib::F') ],
  28     [ qw(t::lib::F t::lib::C t::lib::D t::lib::A t::lib::B t::lib::E) ],
  29     '... got the right MRO for t::lib::F');
  30