[gitmo/Mouse.git] / t / 020_attributes / 018_no_init_arg.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;


{
    package Foo;
    use Mouse;

    eval {
        has 'foo' => (
            is => "rw",
            init_arg => undef,
        );
    };
    ::ok(!$@, '... created the attr okay');
}

{
    my $foo = Foo->new( foo => "bar" );
    isa_ok($foo, 'Foo');

    is( $foo->foo, undef, "field is not set via init arg" );

    $foo->foo("blah");

    is( $foo->foo, "blah", "field is set via setter" );
}

done_testing;
Commit	Line	Data
4060c871	1	#!/usr/bin/perl
fde8e43f	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;
4060c871	5
	6	use strict;
	7	use warnings;
	8
fde8e43f	9	use Test::More;
4060c871	10	use Test::Exception;
	11
	12
	13
	14	{
	15	package Foo;
	16	use Mouse;
	17
	18	eval {
	19	has 'foo' => (
	20	is => "rw",
	21	init_arg => undef,
	22	);
	23	};
	24	::ok(!$@, '... created the attr okay');
	25	}
	26
	27	{
	28	my $foo = Foo->new( foo => "bar" );
	29	isa_ok($foo, 'Foo');
	30
	31	is( $foo->foo, undef, "field is not set via init arg" );
	32
	33	$foo->foo("blah");
	34
	35	is( $foo->foo, "blah", "field is set via setter" );
	36	}
fde8e43f	37
fde8e43f	38	done_testing;