Source

p5-moox-late / t / 02inflation.t

Full commit
use strict;
use warnings;
use Test::More;

BEGIN {
	eval { require MooX::Types::MooseLike::Base }
		or plan skip_all => 'requires MooX::Types::MooseLike::Base'
};

BEGIN {
	package Local::Class;
	use Moo;
	use MooX::late;
	has foo => (is => 'ro', isa => 'Str', default => 'foo');
};

ok not eval {
	require MooX::Types::MooseLike::Base;
	my $obj = Local::Class->new(foo => [])
};

eval {
	require Moose;
	
	my $foo = Local::Class->meta->get_attribute('foo');
	is(
		$foo->type_constraint->name,
		'Str',
	);
};

done_testing;

=head1 PURPOSE

Check that our type constraints are correctly inflated to Moose type
constraints.

This test is skipped if L<MooX::Types::MooseLike::Base> is unavailable.

=head1 AUTHOR

Toby Inkster E<lt>tobyink@cpan.orgE<gt>.

=head1 COPYRIGHT AND LICENCE

This software is copyright (c) 2012 by Toby Inkster.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.