From: Stevan Little Date: Sun, 19 Mar 2006 19:53:06 +0000 (+0000) Subject: uploadin X-Git-Tag: 0_05~85 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f658cac8bbedaea99567f9d9690f2bfc79b04571;p=gitmo%2FMoose.git uploadin --- diff --git a/t/050_util_type_constraints.t b/t/050_util_type_constraints.t index bf2cd57..5f41558 100644 --- a/t/050_util_type_constraints.t +++ b/t/050_util_type_constraints.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 22; +use Test::More tests => 17; use Test::Exception; use Scalar::Util (); @@ -28,27 +28,17 @@ Moose::Util::TypeConstraints::export_type_contstraints_as_functions(); is(Num(5), 5, '... this is a Num'); ok(!defined(Num('Foo')), '... this is not a Num'); -is(&Num, &Num, '... the type w/out arguments just returns itself'); -is(Num(), Num(), '... the type w/out arguments just returns itself'); - is(String('Foo'), 'Foo', '... this is a Str'); ok(!defined(String(5)), '... this is not a Str'); -is(&String, &String, '... the type w/out arguments just returns itself'); - is(Natural(5), 5, '... this is a Natural'); is(Natural(-5), undef, '... this is not a Natural'); is(Natural('Foo'), undef, '... this is not a Natural'); -is(&Natural, &Natural, '... the type w/out arguments just returns itself'); - is(NaturalLessThanTen(5), 5, '... this is a NaturalLessThanTen'); is(NaturalLessThanTen(12), undef, '... this is not a NaturalLessThanTen'); is(NaturalLessThanTen(-5), undef, '... this is not a NaturalLessThanTen'); is(NaturalLessThanTen('Foo'), undef, '... this is not a NaturalLessThanTen'); - -is(&NaturalLessThanTen, &NaturalLessThanTen, - '... the type w/out arguments just returns itself'); # anon sub-typing