t/aggregate/c3_appclass_bug.t

   1 use strict;
   2 use Test::More tests => 1;
   3
   4 {
   5     package TestPlugin;
   6     use strict;
   7
   8     sub setup {
   9         shift->maybe::next::method(@_);
  10     }
  11 }
  12 {
  13     package TestAppC3ErrorUseMoose;
  14     use Moose;
  15
  16     use Catalyst::Runtime 5.80;
  17
  18     use base qw/Catalyst/;
  19     use Catalyst qw/
  20         +TestPlugin
  21     /;
  22 }
  23
  24 use Test::Exception;
  25 lives_ok {
  26     TestAppC3ErrorUseMoose->setup();
  27 } 'No C3 error';
  28
  29 1;
  30