t/aggregate/caf_backcompat.t

   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 }