use strict;
use warnings;
-use Test::More tests => 36;
+use Test::More tests => 38;
use Test::Exception;
use Scalar::Util ();
ok(Number(5), '... this is a Num');
ok(!defined(Number('Foo')), '... this is not a Num');
+{
+ my $number_tc = Moose::Util::TypeConstraints::find_type_constraint('Number');
+ is("$number_tc", 'Number', '... type constraint stringifies to name');
+}
ok(String('Foo'), '... this is a Str');
ok(!defined(String(5)), '... this is not a Str');
is($string->validate(5),
"This is not a string (5)",
'... validated unsuccessfully (got error)');
+
+lives_ok { Moose::Meta::Attribute->new('bob', isa => 'Spong') }
+ 'meta-attr construction ok even when type constraint utils loaded first';