Rename 800_shikabased/*.t to 001_mouse/8*.t (suggested by tokuhirom :)

[gitmo/Mouse.git] / t / 800_shikabased / 012-role-compatibility.t

diff --git a/t/800_shikabased/012-role-compatibility.t b/t/800_shikabased/012-role-compatibility.t
deleted file mode 100644 (file)
index 44a46b0..0000000
--- a/t/800_shikabased/012-role-compatibility.t
+++ /dev/null
@@ -1,35 +0,0 @@
-use strict;
-use warnings;
-use Test::More tests => 5;
-
-{
-    package ParentRole;
-    use Mouse::Role;
-    sub parent_method { 'parent_method' }
-}
-
-{
-    package ChildRole;
-    use Mouse::Role;
-
-    with 'ParentRole';
-
-    sub child_method { "role's" }
-}
-
-{
-    package Class;
-    use Mouse;
-    with 'ChildRole';
-
-    sub child_method { "class's" }
-}
-
-my $o = Class->new;
-
-ok $o->does('ChildRole'), 'does ChildRole';
-ok $o->does('ParentRole'), 'does ParentRole';
-can_ok $o, qw(parent_method child_method);
-is $o->parent_method, 'parent_method';
-is $o->child_method,  "class's";
-