[gitmo/Moo.git] / t / class-tiny-accessors.t

use strictures 1;
use Test::More;

{
  package Foo;

  use Class::Tiny;

  has one => (is => 'ro');
  has two => (is => 'rw', init_arg => undef);
  has three => (is => 'ro', init_arg => 'THREE', required => 1);
}

my $foo = Foo->new(
  one => 1,
  THREE => 3
);

is_deeply(
  { %$foo }, { one => 1, three => 3 }, 'internals ok'
);

done_testing;
Commit	Line	Data
14f32032	1	use strictures 1;
	2	use Test::More;
	3
	4	{
	5	package Foo;
	6
	7	use Class::Tiny;
	8
	9	has one => (is => 'ro');
	10	has two => (is => 'rw', init_arg => undef);
	11	has three => (is => 'ro', init_arg => 'THREE', required => 1);
	12	}
	13
	14	my $foo = Foo->new(
	15	one => 1,
	16	THREE => 3
	17	);
	18
	19	is_deeply(
	20	{ %$foo }, { one => 1, three => 3 }, 'internals ok'
	21	);
	22
	23	done_testing;