5 use Test::More tests => 2;
10 $SIG{__DIE__} = \&Carp::confess;
13 package CDICompatTestApp;
17 # Calling ->config here (before we call setup). With CDI/Cat 5.70 this
18 # causes *CDICompatTestApp::_config to have a class data accessor created.
20 # If this doesn't happen, then later when we've added CDICompatTestPlugin
21 # to @ISA, we fail in the overridden ->setup method when we call ->config
22 # again, as we get the CAF accessor from CDICompatTestPlugin, not the one
23 # created in this package as a side-effect of this call. :-(
28 CDICompatTestApp->setup;
29 } 'Setup app with plugins which says use base qw/Class::Accessor::Fast/';
31 # And the plugin's setup_finished method should have been run, as accessors
32 # are not created in MyApp until the data is written to.
34 local $TODO = "Copying the class data accessor down into MyApp other than at runtime\n" .
35 " when assigned (as pre exact CDI behavior) causes methods to not get run';
37 is $CDICompatTestPlugin::Data::HAS_RUN_SETUP_FINISHED, 1, 'Plugin setup_finish run';