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

diff --git a/t/05_MRO.t b/t/05_MRO.t
new file mode 100644
index 0000000..d3c6b77
--- /dev/null
+++ b/t/05_MRO.t
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+BEGIN {
+    use lib 'opt', '../opt', '..';
+    use_ok('c3');
+    use_ok('t::lib::F');    
+}
+
+=pod 
+
+From the parrot test t/pmc/object-meths.t
+
+ A   B A   E
+  \ /   \ /
+   C     D
+    \   /
+     \ /
+      F
+
+=cut
+
+Class::C3::initialize();
+
+is_deeply(
+    [ c3::calculateMRO('t::lib::F') ],
+    [ qw(t::lib::F t::lib::C t::lib::D t::lib::A t::lib::B t::lib::E) ],
+    '... got the right MRO for t::lib::F');  
+