Add assert_valid() to Meta::TypeConstraint

[gitmo/Mouse.git] / t / 040_type_constraints / failing / 033_type_names.t

use strict;
use warnings;

use Test::More tests => 6;
use Test::Exception;

use Mouse::Meta::TypeConstraint;
use Mouse::Util::TypeConstraints;


TODO:
{
    local $TODO = 'type names are not validated in the TC metaclass';

    throws_ok { Mouse::Meta::TypeConstraint->new( name => 'Foo-Bar' ) }
    qr/contains invalid characters/,
        'Type names cannot contain a dash';
}

lives_ok { Mouse::Meta::TypeConstraint->new( name => 'Foo.Bar::Baz' ) }
'Type names can contain periods and colons';

throws_ok { subtype 'Foo-Baz' => as 'Item' }
qr/contains invalid characters/,
    'Type names cannot contain a dash (via subtype sugar)';

lives_ok { subtype 'Foo.Bar::Baz' => as 'Item' }
'Type names can contain periods and colons (via subtype sugar)';

is( Mouse::Util::TypeConstraints::find_or_parse_type_constraint('ArrayRef[In-valid]'),
    undef,
    'find_or_parse_type_constraint returns undef on an invalid name' );

is( Mouse::Util::TypeConstraints::find_or_parse_type_constraint('ArrayRef[Va.lid]'),
    'ArrayRef[Va.lid]',
    'find_or_parse_type_constraint returns name for valid name' );