#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 7;
+use Test::More tests => 11;
use Test::Exception;
use Mouse::Util::TypeConstraints;
=> where { length $_ }
=> message { "The string is empty!" };
+ subtype 'MyClass'
+ => as 'Object'
+ => where { $_->isa(__PACKAGE__) };
+
has name => (
is => 'ro',
isa => 'NonemptyStr',
);
+
+
};
ok(My::Class->new(name => 'foo'));
ok!$st->check(undef);
ok!$st->check('');
+lives_and{
+ my $tc = find_type_constraint('MyClass');
+ ok $tc->check(My::Class->new());
+ ok!$tc->check('My::Class');
+ ok!$tc->check([]);
+ ok!$tc->check(undef);
+};