X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_type_constraints%2F015_enum.t;h=4eaa8184ded5161a169ada4e73b07ed8b2e835ef;hb=a28e50e44945358d15eb19e4688573741a319fe0;hp=931e15d89af3e9a0a255d3b128309c5ee28b5e01;hpb=1b806c9945d6c57dca3805ae7924571df08aec03;p=gitmo%2FMoose.git

diff --git a/t/040_type_constraints/015_enum.t b/t/040_type_constraints/015_enum.t
index 931e15d..4eaa818 100644
--- a/t/040_type_constraints/015_enum.t
+++ b/t/040_type_constraints/015_enum.t
@@ -28,11 +28,6 @@ my @invalid_metacharacters = qw/< > & % $ @ ! ~ `/;
 push @invalid_metacharacters, qw/.* fish(sticks)? atreides/;
 push @invalid_metacharacters, '^1?$|^(11+?)\1+$';
 
-plan tests => @valid_letters        + @invalid_letters
-            + @valid_languages      + @invalid_languages
-            + @valid_metacharacters + @invalid_metacharacters
-            + @valid_languages      + 10;
-
 Moose::Util::TypeConstraints->export_type_constraints_as_functions();
 
 ok(Letter($_), "'$_' is a letter") for @valid_letters;
@@ -66,3 +61,4 @@ ok( !$anon_enum->is_a_type_of('Object'), 'enum not type of Object');
 ok( !$anon_enum->is_subtype_of('ThisTypeDoesNotExist'), 'enum not a subtype of nonexistant type');
 ok( !$anon_enum->is_a_type_of('ThisTypeDoesNotExist'), 'enum not type of nonexistant type');
 
+done_testing;