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

use strict;
use warnings;
use Test::More;
use Test::Exception;
use Class::MOP ();
use Moose::Util ();

# List of everything which used Class::Accessor::Fast in 5.70.
my @modules = qw/
    Catalyst::Action
    Catalyst::ActionContainer
    Catalyst::Component
    Catalyst::Dispatcher
    Catalyst::DispatchType
    Catalyst::Engine
    Catalyst::Log
    Catalyst::Request::Upload
    Catalyst::Request
    Catalyst::Response
/;

plan tests => scalar @modules;

foreach my $module (@modules) {
    Class::MOP::load_class($module);
    ok Moose::Util::does_role($module => 'MooseX::Emulate::Class::Accessor::Fast'),
        "$module has Class::Accessor::Fast back-compat";
}
Commit	Line	Data
e28a6876	1	use strict;
	2	use warnings;
	3	use Test::More;
	4	use Test::Exception;
	5	use Class::MOP ();
	6	use Moose::Util ();
	7
	8	# List of everything which used Class::Accessor::Fast in 5.70.
	9	my @modules = qw/
	10	Catalyst::Action
	11	Catalyst::ActionContainer
	12	Catalyst::Component
	13	Catalyst::Dispatcher
	14	Catalyst::DispatchType
	15	Catalyst::Engine
	16	Catalyst::Log
	17	Catalyst::Request::Upload
	18	Catalyst::Request
	19	Catalyst::Response
	20	/;
	21
	22	plan tests => scalar @modules;
	23
	24	foreach my $module (@modules) {
	25	Class::MOP::load_class($module);
	26	ok Moose::Util::does_role($module => 'MooseX::Emulate::Class::Accessor::Fast'),
	27	"$module has Class::Accessor::Fast back-compat";
	28	}