X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04_MRO.t;fp=t%2F04_MRO.t;h=0000000000000000000000000000000000000000;hb=fbe8c8c4b14d12e8f2e254abe7aab98c74391920;hp=1e9bbba5b5b2460c9f16aab5644cb04e10f1e61c;hpb=8995e8271e0f7f7b9c0942a4425e8a44099bf608;p=gitmo%2FClass-C3-XS.git

diff --git a/t/04_MRO.t b/t/04_MRO.t
deleted file mode 100644
index 1e9bbba..0000000
--- a/t/04_MRO.t
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-
-BEGIN {
-    use lib 'opt', '../opt', '..';
-    use_ok('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;    
-    use c3;
-    
-    package LifeForm;
-    use c3;
-    use base 'Object';
-    
-    package Sentient;
-    use c3;
-    use base 'LifeForm';
-    
-    package BiPedal;
-    use c3;    
-    use base 'LifeForm';
-    
-    package Intelligent;
-    use c3;    
-    use base 'Sentient';
-    
-    package Humanoid;
-    use c3;    
-    use base 'BiPedal';
-    
-    package Vulcan;
-    use c3;    
-    use base ('Intelligent', 'Humanoid');
-}
-
-Class::C3::initialize();
-
-is_deeply(
-    [ c3::calculateMRO('Vulcan') ],
-    [ qw(Vulcan Intelligent Sentient Humanoid BiPedal LifeForm Object) ],
-    '... got the right MRO for the Vulcan Dylan Example');  
\ No newline at end of file