X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fcdi_backcompat_plugin_accessor_override.t;h=d3efa18ce259f3663876603965cf8e650501fb55;hp=e60ccd640d0254e7fb4d0ed2e8d18d865b4d0ab6;hb=4ac0b9cb8e9043db8a95f44af685c782bf9426e7;hpb=8a440eba91ace539964b76901ad0e9274ece4ec6 diff --git a/t/cdi_backcompat_plugin_accessor_override.t b/t/cdi_backcompat_plugin_accessor_override.t index e60ccd6..d3efa18 100644 --- a/t/cdi_backcompat_plugin_accessor_override.t +++ b/t/cdi_backcompat_plugin_accessor_override.t @@ -2,7 +2,7 @@ use strict; use warnings; use lib 't/lib'; -use Test::More tests => 1; +use Test::More tests => 2; use Test::Exception; # Force a stack trace. @@ -24,7 +24,16 @@ $SIG{__DIE__} = \&Carp::confess; __PACKAGE__->config; } -lives_ok { - CDICompatTestApp->setup; -} 'Setup app with plugins which says use base qw/Class::Accessor::Fast/'; +SKIP: { + skip 'Not trying to replicate the nasty CDI hackness', 2; + lives_ok { + CDICompatTestApp->setup; + } 'Setup app with plugins which says use base qw/Class::Accessor::Fast/'; + # And the plugin's setup_finished method should have been run, as accessors + # are not created in MyApp until the data is written to. + { + no warnings 'once'; + is $CDICompatTestPlugin::Data::HAS_RUN_SETUP_FINISHED, 1, 'Plugin setup_finish run'; + } +} \ No newline at end of file