[catagits/Catalyst-Runtime.git] / t / caf_backcompat.t

use strict;
use warnings;
use Test::More tests => 1;
use Test::Exception;
use Catalyst::Action;

my $action=Catalyst::Action->new({foo=>'bar'});

is $action->{foo}, 'bar', 'custom Action attribute';
Commit	Line	Data
241edc9b	1	use strict;
	2	use warnings;
	3	use Test::More tests => 1;
	4	use Test::Exception;
	5	use Catalyst::Action;
	6
	7	my $action=Catalyst::Action->new({foo=>'bar'});
	8
	9	is $action->{foo}, 'bar', 'custom Action attribute';