output warnings about unknown type constraints

1 files changed, 28 insertions, 0 deletions

diff --git a/t/03invalid_tc.t b/t/03invalid_tc.t
new file mode 100644
index 0000000..d6dff14
--- /dev/null
+++ b/t/03invalid_tc.t
@@ -0,0 +1,28 @@
+use if !eval { require Test::Warn },
+	'Test::More', skip_all => 'requires Test::Warn';
+use Test::Warn;
+use Test::More;
+
+{
+	package Foo;
+	use Moo;
+	use MooX::late;
+	has foo => (is => 'ro', isa => 'X Y Z', required => 0);
+}
+
+# type constraint should not be checked, so no warning expected
+warnings_are {
+	my $foo = Foo->new();
+} [];
+
+# But this should warn
+warnings_like {
+	my $foo = Foo->new(foo => 1);
+} qr{Type constraint 'X Y Z' not fully enforced \(defined at .+/03invalid_tc\.t:10, package Foo\)};
+
+# But we shouldn't get the same warning again. Too much noise!
+warnings_are {
+	my $foo = Foo->new(foo => 1);
+} [];
+
+done_testing;