[gitmo/Moose.git] / t / 100_bugs / 005_inline_reader_bug.t

#!/usr/bin/perl

use strict;
use warnings;

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

BEGIN {
    use_ok('Moose');
}

=pod

This was a bug, but it is fixed now. This 
test makes sure it does not creep back in.

=cut

{
    package Foo;
    use Moose;
    
    ::lives_ok {
        has 'bar' => (
            is      => 'ro', 
            isa     => 'Int',
            lazy    => 1,
            default => 10,
        );
    } '... this didnt die';
}
Commit	Line	Data
cecd110f	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Moose');
	11	}
	12
	13	=pod
	14
	15	This was a bug, but it is fixed now. This
	16	test makes sure it does not creep back in.
	17
	18	=cut
	19
	20	{
	21	package Foo;
	22	use Moose;
	23
	24	::lives_ok {
	25	has 'bar' => (
	26	is => 'ro',
	27	isa => 'Int',
	28	lazy => 1,
	29	default => 10,
	30	);
	31	} '... this didnt die';
	32	}
	33