Commit | Line | Data |
241edc9b |
1 | use strict; |
2 | use warnings; |
531f1ab6 |
3 | use Test::More; |
531f1ab6 |
4 | use Class::MOP (); |
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) { |
24 | Class::MOP::load_class($module); |
25 | ok Moose::Util::does_role($module => 'MooseX::Emulate::Class::Accessor::Fast'), |
26 | "$module has Class::Accessor::Fast back-compat"; |
27 | } |