[gitmo/Mouse.git] / t / 040_type_constraints / failing / 002_util_type_constraints_export.t

#!/usr/bin/perl

use strict;
use warnings;

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

{
    package Foo;

    use Mouse::Util::TypeConstraints;

    eval {
        type MyRef => where { ref($_) };
    };
    ::ok( !$@, '... successfully exported &type to Foo package' );

    eval {
        subtype MyArrayRef => as MyRef => where { ref($_) eq 'ARRAY' };
    };
    ::ok( !$@, '... successfully exported &subtype to Foo package' );

    Mouse::Util::TypeConstraints->export_type_constraints_as_functions();

    ::ok( MyRef( {} ), '... Ref worked correctly' );
    ::ok( MyArrayRef( [] ), '... ArrayRef worked correctly' );
}
Commit	Line	Data
b2b106d7	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 4;
	7	use Test::Exception;
	8
	9	{
	10	package Foo;
	11
	12	use Mouse::Util::TypeConstraints;
	13
	14	eval {
	15	type MyRef => where { ref($_) };
	16	};
	17	::ok( !$@, '... successfully exported &type to Foo package' );
	18
	19	eval {
	20	subtype MyArrayRef => as MyRef => where { ref($_) eq 'ARRAY' };
	21	};
	22	::ok( !$@, '... successfully exported &subtype to Foo package' );
	23
	24	Mouse::Util::TypeConstraints->export_type_constraints_as_functions();
	25
	26	::ok( MyRef( {} ), '... Ref worked correctly' );
	27	::ok( MyArrayRef( [] ), '... ArrayRef worked correctly' );
	28	}