uploadin
Stevan Little [Sun, 19 Mar 2006 19:53:06 +0000 (19:53 +0000)]
t/050_util_type_constraints.t

index bf2cd57..5f41558 100644 (file)
@@ -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