Fix magic handling in type constraints (reported by sunnavy)

[gitmo/Mouse.git] / t / 001_mouse / 066-magic.t

diff --git a/t/001_mouse/066-magic.t b/t/001_mouse/066-magic.t
new file mode 100644 (file)
index 0000000..b4460d0
--- /dev/null
+++ b/t/001_mouse/066-magic.t
@@ -0,0 +1,42 @@
+#!perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+use Tie::Scalar;
+
+{
+    package MyClass;
+    use Mouse;
+
+    has foo => (
+        is  => 'rw',
+        isa => 'Int',
+    );
+    has bar => (
+        is  => 'rw',
+        isa => 'Maybe[Int]',
+    );
+}
+
+sub ts_init {
+    tie $_[0], 'Tie::StdScalar', $_[1];
+}
+
+ts_init(my $x, 10);
+
+my $o = MyClass->new();
+is(eval{ $o->foo($x) }, 10)
+    or diag("Error: $@");
+
+ts_init($x, 'foo');
+
+eval{
+    $o->bar($x);
+};
+isnt $@, '';
+
+ts_init $x, 42;
+is(eval{ $o->bar($x) }, 42)
+    or diag("Error: $@");
+