[catagits/Catalyst-Runtime.git] / t / cdi_backcompat_plugin_accessor_override.t

use strict;
use warnings;
use lib 't/lib';

use Test::More tests => 2;
use Test::Exception;

# Force a stack trace.
use Carp;
$SIG{__DIE__} = \&Carp::confess;

{
    package CDICompatTestApp;
    use Catalyst qw/
	    +CDICompatTestPlugin
    /;
    # Calling ->config here (before we call setup). With CDI/Cat 5.70 this
    # causes *CDICompatTestApp::_config to have a class data accessor created.
    
    # If this doesn't happen, then later when we've added CDICompatTestPlugin
    # to @ISA, we fail in the overridden ->setup method when we call ->config
    # again, as we get the CAF accessor from CDICompatTestPlugin, not the one
    # created in this package as a side-effect of this call. :-(
    __PACKAGE__->config;
}

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.
TODO: {
    local $TODO = "Copying the class data accessor down into MyApp other than at runtime\n" .
    " when assigned (as pre exact CDI behavior) causes methods to not get run';
    no warnings 'once';
    is $CDICompatTestPlugin::Data::HAS_RUN_SETUP_FINISHED, 1, 'Plugin setup_finish run';
}
Commit	Line	Data
85781ad7	1	use strict;
	2	use warnings;
	3	use lib 't/lib';
	4
df3ea11b	5	use Test::More tests => 2;
85781ad7	6	use Test::Exception;
	7
	8	# Force a stack trace.
	9	use Carp;
	10	$SIG{__DIE__} = \&Carp::confess;
	11
	12	{
	13	package CDICompatTestApp;
	14	use Catalyst qw/
	15	+CDICompatTestPlugin
	16	/;
	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.
	19
	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. :-(
	24	__PACKAGE__->config;
	25	}
	26
8a440eba	27	lives_ok {
	28	CDICompatTestApp->setup;
	29	} 'Setup app with plugins which says use base qw/Class::Accessor::Fast/';
	30
df3ea11b	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.
	33	TODO: {
	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';
	36	no warnings 'once';
	37	is $CDICompatTestPlugin::Data::HAS_RUN_SETUP_FINISHED, 1, 'Plugin setup_finish run';
	38	}