t/040_type_constraints/015_enum.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'no_plan';
   7
   8 use Scalar::Util ();
   9
  10 use lib 't/lib';
  11 use Mouse::Util::TypeConstraints;
  12 use MooseCompat;
  13
  14 enum Letter => 'a'..'z', 'A'..'Z';
  15 enum Language => 'Perl 5', 'Perl 6', 'PASM', 'PIR'; # any others? ;)
  16 enum Metacharacter => '*', '+', '?', '.', '|', '(', ')', '[', ']', '\\';
  17
  18 my @valid_letters = ('a'..'z', 'A'..'Z');
  19
  20 my @invalid_letters = qw/ab abc abcd/;
  21 push @invalid_letters, qw/0 4 9 ~ @ $ %/;
  22 push @invalid_letters, qw/l33t st3v4n 3num/;
  23
  24 my @valid_languages = ('Perl 5', 'Perl 6', 'PASM', 'PIR');
  25 my @invalid_languages = ('perl 5', 'Python', 'Ruby', 'Perl 666', 'PASM++');
  26 # note that "perl 5" is invalid because case now matters
  27
  28 my @valid_metacharacters = (qw/* + ? . | ( ) [ ] /, '\\');
  29 my @invalid_metacharacters = qw/< > & % $ @ ! ~ `/;
  30 push @invalid_metacharacters, qw/.* fish(sticks)? atreides/;
  31 push @invalid_metacharacters, '^1?$|^(11+?)\1+$';
  32
  33 Mouse::Util::TypeConstraints->export_type_constraints_as_functions();
  34
  35 ok(Letter($_), "'$_' is a letter") for @valid_letters;
  36 ok(!Letter($_), "'$_' is not a letter") for @invalid_letters;
  37
  38 ok(Language($_), "'$_' is a language") for @valid_languages;
  39 ok(!Language($_), "'$_' is not a language") for @invalid_languages;
  40
  41 ok(Metacharacter($_), "'$_' is a metacharacter") for @valid_metacharacters;
  42 ok(!Metacharacter($_), "'$_' is not a metacharacter")
  43     for @invalid_metacharacters;
  44
  45 # check anon enums
  46
  47 my $anon_enum = enum \@valid_languages;
  48 isa_ok($anon_enum, 'Mouse::Meta::TypeConstraint');
  49
  50 #is($anon_enum->name, '__ANON__', '... got the right name');
  51 #is($anon_enum->parent->name, 'Str', '... got the right parent name');
  52
  53 ok($anon_enum->check($_), "'$_' is a language") for @valid_languages;
  54
  55
  56 #ok( !$anon_enum->equals( enum [qw(foo bar)] ), "doesn't equal a diff enum" );
  57 #ok( $anon_enum->equals( $anon_enum ), "equals itself" );
  58 #ok( $anon_enum->equals( enum \@valid_languages ), "equals duplicate" );
  59
  60 #ok( !$anon_enum->is_subtype_of('Object'), 'enum not a subtype of Object');
  61 ok( !$anon_enum->is_a_type_of('Object'), 'enum not type of Object');
  62
  63 #ok( !$anon_enum->is_subtype_of('ThisTypeDoesNotExist'), 'enum not a subtype of nonexistant type');
  64 ok( !$anon_enum->is_a_type_of('ThisTypeDoesNotExist'), 'enum not type of nonexistant type');
  65