add immutable test

diff --git a/t/300_immutable/101-immutable-default.t b/t/300_immutable/101-immutable-default.t
new file mode 100644 (file)
index 0000000..6fcbf2b
--- /dev/null
+++ b/t/300_immutable/101-immutable-default.t
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+use Test::Exception;
+
+{
+    package Foo;
+    use Mouse;
+
+    #two checks because the inlined methods are different when
+    #there is a TC present.
+    has 'foos' => ( is => 'rw', default => 'DEFAULT' );
+    has 'bars' => ( is => 'rw', default => 300100 );
+    has 'bazs' => ( is => 'rw', default => sub { +{} } );
+
+}
+
+lives_ok { Foo->meta->make_immutable }
+    'Immutable meta with single BUILD';
+
+my $f = Foo->new;
+isa_ok $f, 'Foo';
+is $f->foos, 'DEFAULT', 'str default';
+is $f->bars, 300100, 'int default';
+is ref($f->bazs), 'HASH', 'code default';
+