Failing test showing that UndefTolerant fails with immutable classes.

diff --git a/t/immutable.t b/t/immutable.t
new file mode 100644 (file)
index 0000000..6a15655
--- /dev/null
+++ b/t/immutable.t
@@ -0,0 +1,33 @@
+use Test::More;
+
+package Foo;
+use Moose;
+use MooseX::UndefTolerant;
+
+has 'bar' => (
+    is => 'ro',
+    isa => 'Num',
+    predicate => 'has_bar'
+);
+
+__PACKAGE__->meta->make_immutable;
+
+package main;
+
+{
+    my $foo = Foo->new;
+    ok(!$foo->has_bar);
+}
+
+{
+    my $foo = Foo->new(bar => undef);
+    ok(!$foo->has_bar);
+}
+
+{
+    my $foo = Foo->new(bar => 1234);
+    cmp_ok($foo->bar, 'eq', 1234);
+    ok($foo->has_bar);
+}
+
+done_testing;