X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F900_mouse_bugs%2F007_RT56523.t;fp=t%2F900_mouse_bugs%2F007_RT56523.t;h=cda8ed4d82b0546610f95063f84005de0ef31109;hb=a59572ace1bae78d6595316082ec9e6d1d80f8ac;hp=0000000000000000000000000000000000000000;hpb=6c7491f2df2cc362ae9d58ff3660f2286a22f878;p=gitmo%2FMouse.git

diff --git a/t/900_mouse_bugs/007_RT56523.t b/t/900_mouse_bugs/007_RT56523.t
new file mode 100644
index 0000000..cda8ed4
--- /dev/null
+++ b/t/900_mouse_bugs/007_RT56523.t
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+use strict;
+use Test::More;
+#warn $Mouse::VERSION;
+{
+    package Foo;
+
+    use Mouse;
+
+    has thing => (
+        reader        => 'thing',
+        writer        => 'set_thing',
+        builder       => '_build_thing',
+        lazy          => 1,
+    );
+
+    sub _build_thing {
+        42;
+    }
+}
+
+# Get them set
+{
+    my $obj = Foo->new;
+    is $obj->thing, 42;
+    $obj->set_thing( 23 );
+    is $obj->thing, 23;
+}
+
+# Set then get
+{
+    my $obj = Foo->new;
+    $obj->set_thing(23);
+    is $obj->thing, 23;
+}
+
+done_testing();