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

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;

use Test::More;
use Test::Exception;


=pod

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

=cut

{
    package Foo;
    use Mouse;

    ::lives_ok {
        has 'bar' => (
            is      => 'ro',
            isa     => 'Int',
            lazy    => 1,
            default => 10,
        );
    } '... this didnt die';
}

done_testing;
Commit	Line	Data
4c98ebb0	1	#!/usr/bin/perl
ee5e6a03	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
4c98ebb0	5
	6	use strict;
	7	use warnings;
	8
ee5e6a03	9	use Test::More;
4c98ebb0	10	use Test::Exception;
	11
	12
4c98ebb0	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 Mouse;
	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
ee5e6a03	34	done_testing;