use meta v2 format for prereqs

[gitmo/Moo.git] / xt / moox-types.t

diff --git a/xt/moox-types.t b/xt/moox-types.t
index 3f3eef5..162ed5d 100644 (file)
--- a/xt/moox-types.t
+++ b/xt/moox-types.t
@@ -39,4 +39,20 @@ is(
   'External (MooseX::Types type) ok'
 );
 
+local $@;
+eval q {
+  package Fooble;
+  use Moo;
+  my $isa = sub { 1 };
+  $Moo::HandleMoose::TYPE_MAP{$isa} = sub { $isa };
+  has barble => (is => "ro", isa => $isa);
+  __PACKAGE__->meta->get_attribute("barble");
+};
+
+like(
+  $@,
+  qr/^error inflating attribute 'barble' for package 'Fooble': \$TYPE_MAP\{CODE\(\w+?\)\} did not return a valid type constraint/,
+  'error message for incorrect type constraint inflation',
+);
+
 done_testing;