t/aggregate/caf_backcompat.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Class::Load 'load_class';
   5 use Moose::Util ();
   6
   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
  14     Catalyst::Engine
  15     Catalyst::Log
  16     Catalyst::Request::Upload
  17     Catalyst::Request
  18     Catalyst::Response
  19 /;
  20
  21 plan tests => scalar @modules;
  22
  23 foreach my $module (@modules) {
  24     load_class($module);
  25     ok Moose::Util::does_role($module => 'MooseX::Emulate::Class::Accessor::Fast'),
  26         "$module has Class::Accessor::Fast back-compat";
  27 }