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

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

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

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

{
    package CAFCompatTestApp;
    use Catalyst qw/
	    +CAFCompatTestPlugin
    /;
}

TODO: {
    local $TODO = 'The overridden setup in CAFCompatTestApp + the overridden accessor causes destruction';
    lives_ok {
        CAFCompatTestApp->setup;
    } 'Setup app with plugins which says use base qw/Class::Accessor::Fast/';
}
Commit	Line	Data
8716efe7	1	use strict;
	2	use warnings;
	3	use lib 't/lib';
	4
	5	use Test::More tests => 1;
	6	use Test::Exception;
	7
	8	# Force a stack trace.
	9	use Carp;
	10	$SIG{__DIE__} = \&Carp::confess;
	11
	12	{
	13	package CAFCompatTestApp;
	14	use Catalyst qw/
	15	+CAFCompatTestPlugin
	16	/;
	17	}
	18
	19	TODO: {
	20	local $TODO = 'The overridden setup in CAFCompatTestApp + the overridden accessor causes destruction';
	21	lives_ok {
	22	CAFCompatTestApp->setup;
	23	} 'Setup app with plugins which says use base qw/Class::Accessor::Fast/';
	24	}