X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F001_mouse%2F066-magic.t;h=d268ba392bbe15e9cc0e96c6896d93dc6798b341;hp=b4460d007365d29be25777568a19116cdc40d397;hb=feb3c29755237ea9a9f12b9053b9664fd436dfc4;hpb=85a74fcf70600193f68dca0ca705bcf01e937d69

diff --git a/t/001_mouse/066-magic.t b/t/001_mouse/066-magic.t
index b4460d0..d268ba3 100644
--- a/t/001_mouse/066-magic.t
+++ b/t/001_mouse/066-magic.t
@@ -1,7 +1,7 @@
 #!perl
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 6;
 
 use Tie::Scalar;
 
@@ -40,3 +40,11 @@ ts_init $x, 42;
 is(eval{ $o->bar($x) }, 42)
     or diag("Error: $@");
 
+$o = eval{
+    ts_init(my $a, 10);
+    ts_init(my $b, 42);
+    MyClass->new(foo => $a, bar => $b);
+};
+ok $o;
+is eval{ $o->foo }, 10;
+is eval{ $o->bar }, 42;