get type constraints to inflate properly

1 files changed, 26 insertions, 0 deletions

diff --git a/t/02inflation.t b/t/02inflation.t
new file mode 100644
index 0000000..7dcee9e
--- /dev/null
+++ b/t/02inflation.t
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+	package Local::Class;
+	use Moo;
+	use MooX::late;
+	has foo => (is => 'ro', isa => 'Str', default => 'foo');
+};
+
+ok not eval {
+	my $obj = Local::Class->new(foo => [])
+};
+
+eval {
+	require Moose;
+	
+	my $foo = Local::Class->meta->get_attribute('foo');
+	is(
+		$foo->type_constraint->name,
+		'Str',
+	);
+};
+
+done_testing;