Fix.

[gitmo/MooseX-UndefTolerant.git] / t / attribute.t

diff --git a/t/attribute.t b/t/attribute.t
index db0215f..7458ff6 100644 (file)
--- a/t/attribute.t
+++ b/t/attribute.t
@@ -37,5 +37,10 @@ package main;
     ok(!$foo->has_bar);
 }
 
+{
+    my $foo = Foo2->new(bar => 1234);
+    cmp_ok($foo->bar, 'eq', 1234);
+    ok($foo->has_bar);
+}
 
-done_testing;
\ No newline at end of file
+done_testing;