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

#!perl
use strict;
use Test::More tests => 3;

require_ok("MooseX::Adopt::Class::Accessor::Fast");

@Foo::ISA = qw(Class::Accessor::Fast);
Foo->mk_accessors(qw( foo ));

my $test = Foo->new({ foo => 49 });

is( $test->get('foo'), 49, "get initial foo");
$test->set('foo', 42);
is($test->get('foo'), 42, "get new foo");
Commit	Line	Data
c5a105b3	1	#!perl
	2	use strict;
	3	use Test::More tests => 3;
	4
	5	require_ok("MooseX::Adopt::Class::Accessor::Fast");
	6
	7	@Foo::ISA = qw(Class::Accessor::Fast);
	8	Foo->mk_accessors(qw( foo ));
	9
	10	my $test = Foo->new({ foo => 49 });
	11
	12	is( $test->get('foo'), 49, "get initial foo");
	13	$test->set('foo', 42);
	14	is($test->get('foo'), 42, "get new foo");