Make default work properly.

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

diff --git a/t/defaults.t b/t/defaults.t
new file mode 100644 (file)
index 0000000..aa8680a
--- /dev/null
+++ b/t/defaults.t
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use Test::More;
+
+package Foo;
+
+use Moose;
+use MooseX::UndefTolerant::Attribute;
+
+has bar => (
+   is => 'rw',
+   traits => ['MooseX::UndefTolerant::Attribute'],
+   default => 'baz'
+);
+
+1;
+
+package main;
+
+my $foo = Foo->new( bar => undef );
+is ( $foo->bar, 'baz', 'does the default value get set when passing undef in the constructor' );
+
+done_testing;