Resolve RT #56837 (reported by Sanko Robinson), based on his patch

[gitmo/Mouse.git] / t / 900_bug / 008_RT56837.t

diff --git a/t/900_bug/008_RT56837.t b/t/900_bug/008_RT56837.t
new file mode 100644 (file)
index 0000000..ece5fb1
--- /dev/null
+++ b/t/900_bug/008_RT56837.t
@@ -0,0 +1,28 @@
+#!perl
+# This test is contributed by Sanko Robinson.
+# https://rt.cpan.org/Public/Bug/Display.html?id=56837
+# "Role application to instance with init_arg'd attributes"
+use strict;
+use Test::More tests => 2;
+
+{
+    package Admin;
+    use Mouse::Role;
+    sub shutdown {1}
+}
+{
+    package User;
+    use Mouse;
+    has 'name' =>
+        (isa => 'Str', is => 'ro', init_arg => 'Name', required => 1);
+}
+
+package main;
+my $tim = User->new(Name => 'Tim');
+
+Admin->meta->apply($tim);
+
+ok($tim->can('shutdown'),
+    'The role was successfully composed at the object level');
+is($tim->name, 'Tim',
+    '... attribute with init_arg was re-initialized correctly');