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 lib 'opt', '../opt', '..';
  10     use_ok('c3');
  11     use_ok('t::lib::F');
  12 }
  13
  14 =pod
  15
  16 From the parrot test t/pmc/object-meths.t
  17
  18  A   B A   E
  19   \ /   \ /
  20    C     D
  21     \   /
  22      \ /
  23       F
  24
  25 =cut
  26
  27 Class::C3::initialize();
  28
  29 is_deeply(
  30     [ c3::calculateMRO('t::lib::F') ],
  31     [ qw(t::lib::F t::lib::C t::lib::D t::lib::A t::lib::B t::lib::E) ],
  32     '... got the right MRO for t::lib::F');
  33