t/caf_backcompat_plugin_accessor_override.t

   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 }