Commit | Line | Data |
241edc9b |
1 | use strict; |
2 | use warnings; |
531f1ab6 |
3 | use Test::More; |
241edc9b |
4 | use Test::Exception; |
531f1ab6 |
5 | use Class::MOP (); |
6 | use Moose::Util (); |
241edc9b |
7 | |
531f1ab6 |
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 | /; |
241edc9b |
22 | |
531f1ab6 |
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 | } |