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

[gitmo/Mouse.git] / t / 001_mouse / 807-multi-roles.t

diff --git a/t/001_mouse/807-multi-roles.t b/t/001_mouse/807-multi-roles.t
new file mode 100644 (file)
index 0000000..671e7d5
--- /dev/null
+++ b/t/001_mouse/807-multi-roles.t
@@ -0,0 +1,36 @@
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+{
+    package Requires;
+    use Mouse::Role;
+    requires 'foo';
+}
+
+{
+    package Method;
+    use Mouse::Role;
+
+    sub foo { 'ok' }
+}
+
+{
+    package Method2;
+    use Mouse::Role;
+
+    sub bar { 'yep' }
+}
+
+{
+    package MyApp;
+    use Mouse;
+    with ('Requires', 'Method');
+    with ('Method2' => { alias => { bar => 'baz' } });
+}
+
+my $m = MyApp->new;
+is $m->foo, 'ok';
+is $m->bar, 'yep';
+is $m->baz, 'yep';
+