Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
000_load.t	120 B	-rw-r--r--	2014-03-01 10:32:45	Edit Del
001_merge.t	1.33 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
002_merge.t	2.78 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
003_merge.t	1.81 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
004_merge.t	1.3 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
005_order_disagreement.t	831 B	-rw-r--r--	2014-03-01 10:32:45	Edit Del
006_complex_merge.t	4.02 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
007_cached_merge.t	4.19 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
008_cached_merge_unordered.t	4.23 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
009_dbic_merge.t	3.86 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
010_complex_merge_classless.t	3.21 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del
011_infinite_loop.t	2.98 KB	-rw-r--r--	2014-03-01 10:32:45	Edit Del

Editing: 004_merge.t (1.3 KB)

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

BEGIN {
    use_ok('Algorithm::C3');
}

=pod

example taken from: L<http://gauss.gwydiondylan.org/books/drm/drm_50.html>

         Object
           ^
           |
        LifeForm 
         ^    ^
        /      \
   Sentient    BiPedal
      ^          ^
      |          |
 Intelligent  Humanoid
       ^        ^
        \      /
         Vulcan

 define class <sentient> (<life-form>) end class;
 define class <bipedal> (<life-form>) end class;
 define class <intelligent> (<sentient>) end class;
 define class <humanoid> (<bipedal>) end class;
 define class <vulcan> (<intelligent>, <humanoid>) end class;

=cut

{
    package Object;    
    
    sub my_ISA {
        no strict 'refs';
        @{$_[0] . '::ISA'};
    }    
    
    package LifeForm;
    use base 'Object';
    
    package Sentient;
    use base 'LifeForm';
    
    package BiPedal;
    use base 'LifeForm';
    
    package Intelligent;
    use base 'Sentient';
    
    package Humanoid;
    use base 'BiPedal';
    
    package Vulcan;
    use base ('Intelligent', 'Humanoid');
}

is_deeply(
    [ Algorithm::C3::merge('Vulcan', 'my_ISA') ],
    [ qw(Vulcan Intelligent Sentient Humanoid BiPedal LifeForm Object) ],
    '... got the right C3 merge order for the Vulcan Dylan Example');