X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F11_library-definition.t;h=59d77b5b2a84d61abe62c488607751c4168f6cb5;hb=249888e76248caa1bc4491d13a3c567910e2b577;hp=c71fede312e260f67b07586d247f87752488fa3c;hpb=b54b55ff82eb36b00c659e3ae0f1ef266eef1d9e;p=gitmo%2FMooseX-Types.git diff --git a/t/11_library-definition.t b/t/11_library-definition.t index c71fede..59d77b5 100644 --- a/t/11_library-definition.t +++ b/t/11_library-definition.t @@ -12,7 +12,7 @@ my @tests = ( [ 'IntArrayRef', 12, [12], {}, [17, 23], {} ], ); -plan tests => (@tests * 8) + 1; +plan tests => (@tests * 8) + 3; # new array ref so we can safely shift from it for my $data (map { [@$_] } @tests) { @@ -43,3 +43,7 @@ for my $data (map { [@$_] } @tests) { # coercion not available ok ! __PACKAGE__->can('to_TwentyThree'), "type without coercion doesn't have to_* helper"; + +eval { require TestNamespaceSep }; +ok $@, q(trying to declare a type with '::' in it croaks); +like $@, qr/Foo::Bar/, q(error message contains type name);