t/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::HTTP::Restarter::Watcher
  16     Catalyst::Engine
  17     Catalyst::Log
  18     Catalyst::Request::Upload
  19     Catalyst::Request
  20     Catalyst::Response
  21 /;
  22
  23 plan tests => scalar @modules;
  24
  25 foreach my $module (@modules) {
  26     Class::MOP::load_class($module);
  27     ok Moose::Util::does_role($module => 'MooseX::Emulate::Class::Accessor::Fast'),
  28         "$module has Class::Accessor::Fast back-compat";
  29 }