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

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