From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sun, 18 Jun 2006 12:03:45 +0000 (+0000)
Subject: augment/inner in roles
X-Git-Tag: 0_09_03~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2b9e3dd85488062130ea561cb830b7f8ca9d0a1;p=gitmo%2FMoose.git

augment/inner in roles
---

diff --git a/t/049_augment_and_inner_in_roles.t b/t/049_augment_and_inner_in_roles.t
new file mode 100644
index 0000000..a30a407
--- /dev/null
+++ b/t/049_augment_and_inner_in_roles.t
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 15;
+
+{
+    package Base;
+    use Moose::Role;
+
+    sub method {
+        "outer( " .( eval { inner() } || "" ). ")";
+    };
+
+    package SubRole;
+    use Moose::Role;
+
+    with "Base";
+
+    eval {
+        augment method => sub {
+            "inner from role";
+        };
+    };
+
+    ::ok( !$@, "can call augment in a role that has the parent method" );
+
+    package ClassWithRole;
+    use Moose;
+    with "SubRole";
+
+    package ClassWithoutRole;
+    use Moose;
+    with "Base";
+
+    eval {
+        augment method => sub {
+            "inner from class";
+        };
+    };
+
+    ::ok( !$@, "class can augment a method that comes from a role" );
+
+    package UnrelatedRole;
+    use Moose::Role;
+
+    eval {
+        augment method => sub {
+            "inner from unrelated role";
+        };
+    };
+
+    ::ok( !$@, "can call augment in a role that has does not have the parent method" );
+
+    package ClassWithTwoRoles;
+    use Moose;
+
+    with qw/Base UnrelatedRole/;
+}
+
+foreach my $class (qw/ClassWithoutRole ClassWithRole ClassWithTwoRoles/) {
+    can_ok( $class, "method" );
+
+    ok( $class->does("Base"), "$class does Base" );
+
+    like( $class->method, qr/^outer\( .* \)$/, "outer method invoked" );
+}
+
+is( ClassWithoutRole->method, "outer( inner from class )", "composition of class + base role" );
+is( ClassWithRole->method, "outer( inner from role )", "composition of class + base role + related role" );
+is( ClassWithTwoRoles->method, "outer( inner from unrelated role )", "composition of class + base role + mixin role" );
+