Cosmetic changes (mostly from perltidy).

[gitmo/Moose.git] / t / 040_type_constraints / 015_enum.t

diff --git a/t/040_type_constraints/015_enum.t b/t/040_type_constraints/015_enum.t
index d2cb922..2aebf75 100644 (file)
--- a/t/040_type_constraints/015_enum.t
+++ b/t/040_type_constraints/015_enum.t
@@ -30,7 +30,8 @@ push @invalid_metacharacters, '^1?$|^(11+?)\1+$';
 
 plan tests => @valid_letters        + @invalid_letters
             + @valid_languages      + @invalid_languages
-            + @valid_metacharacters + @invalid_metacharacters;
+            + @valid_metacharacters + @invalid_metacharacters
+            + @valid_languages      + 6;
 
 Moose::Util::TypeConstraints->export_type_constraints_as_functions();
 
@@ -44,3 +45,17 @@ ok(Metacharacter($_), "'$_' is a metacharacter") for @valid_metacharacters;
 ok(!Metacharacter($_), "'$_' is not a metacharacter")
     for @invalid_metacharacters;
 
+# check anon enums
+
+my $anon_enum = enum \@valid_languages;
+isa_ok($anon_enum, 'Moose::Meta::TypeConstraint');
+
+is($anon_enum->name, '__ANON__', '... got the right name');
+is($anon_enum->parent->name, 'Str', '... got the right parent name');
+
+ok($anon_enum->check($_), "'$_' is a language") for @valid_languages;
+
+
+ok( !$anon_enum->equals( enum [qw(foo bar)] ), "doesn't equal a diff enum" );
+ok( $anon_enum->equals( $anon_enum ), "equals itself" );
+ok( $anon_enum->equals( enum \@valid_languages ), "equals duplicate" );