types are no string, you can export if you want

[gitmo/Moose.git] / t / 054_util_type_coercion.t

#!/usr/bin/perl

use strict;
use warnings;

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

BEGIN {
	use_ok('Moose::Util::TypeConstraints');
}

{
    package HTTPHeader;
    use strict;
    use warnings;
    use Moose;
    
    has 'array' => (is => 'ro');
    has 'hash'  => (is => 'ro');    
}

subtype Header => 
    => as Object 
    => where { $_->isa('HTTPHeader') };
    
coerce Header 
    => as ArrayRef 
        => to { HTTPHeader->new(array => $_[0]) }
    => as HashRef 
        => to { HTTPHeader->new(hash => $_[0]) };
        
Moose::Util::TypeConstraints::export_type_contstraints_as_functions();        
        
my $header = HTTPHeader->new();
isa_ok($header, 'HTTPHeader');

ok(Header($header), '... this passed the type test');
ok(!Header([]), '... this did not pass the type test');
ok(!Header({}), '... this did not pass the type test');

my $coercion = Moose::Util::TypeConstraints::find_type_coercion('Header');
is(ref($coercion), 'CODE', '... got the right type of coercion');

#{
#    my $coerced = $coercion->([ 1, 2, 3 ]);
#    isa_ok($coerced, 'HTTPHeader');
#
#    is_deeply(
#        $coerced->array(),
#        [ 1, 2, 3 ],
#        '... got the right array');
#    is($coerced->hash(), undef, '... nothing assigned to the hash');        
#}
#
#{
#    my $coerced = $coercion->({ one => 1, two => 2, three => 3 });
#    isa_ok($coerced, 'HTTPHeader');
#    
#    is_deeply(
#        $coerced->hash(),
#        { one => 1, two => 2, three => 3 },
#        '... got the right hash');
#    is($coerced->array(), undef, '... nothing assigned to the array');        
#}