[gitmo/MooseX-Emulate-Class-Accessor-Fast.git] / t / adopt.t

#!perl
use strict;
use lib 't/lib';
use Test::More tests => 12;

#1,2
require_ok("MooseX::Adopt::Class::Accessor::Fast");
use_ok('TestAdoptCAF');

#3-6
ok(TestAdoptCAF->can('meta'), 'Adopt seems to work');
ok(TestAdoptCAF->meta->find_attribute_by_name($_), "attribute $_ created")
  for qw(foo bar baz);

#7-9
my $t = TestAdoptCAF->new(foo => 100, bar => 200, groditi => 300);
is($t->{foo},     100, '$self->{foo} set');
is($t->{bar},     200, '$self->{bar} set');
is($t->{groditi}, 300, '$self->{groditi} set');

#10-12
my $u = TestAdoptCAF->new({foo => 100, bar => 200, groditi => 300});
is($t->{foo},     100, '$self->{foo} set');
is($t->{bar},     200, '$self->{bar} set');
is($t->{groditi}, 300, '$self->{groditi} set');
Commit	Line	Data
c5a105b3	1	#!perl
	2	use strict;
	3	use lib 't/lib';
6b8ba79f	4	use Test::More tests => 12;
c5a105b3	5
	6	#1,2
	7	require_ok("MooseX::Adopt::Class::Accessor::Fast");
	8	use_ok('TestAdoptCAF');
	9
	10	#3-6
	11	ok(TestAdoptCAF->can('meta'), 'Adopt seems to work');
	12	ok(TestAdoptCAF->meta->find_attribute_by_name($_), "attribute $_ created")
	13	for qw(foo bar baz);
6b8ba79f	14
	15	#7-9
	16	my $t = TestAdoptCAF->new(foo => 100, bar => 200, groditi => 300);
	17	is($t->{foo}, 100, '$self->{foo} set');
	18	is($t->{bar}, 200, '$self->{bar} set');
	19	is($t->{groditi}, 300, '$self->{groditi} set');
	20
	21	#10-12
	22	my $u = TestAdoptCAF->new({foo => 100, bar => 200, groditi => 300});
	23	is($t->{foo}, 100, '$self->{foo} set');
	24	is($t->{bar}, 200, '$self->{bar} set');
	25	is($t->{groditi}, 300, '$self->{groditi} set');