t/lib/TestAppC3Fail.pm

   1 package TestAppC3Fail;
   2 use strict;
   3 use warnings;
   4 use Class::C3; # This causes the fail, saying use MRO::Compat is fine..
   5
   6 our $VERSION = '0.0001';
   7
   8 use Catalyst::Runtime '5.70';
   9 use Catalyst;
  10
  11 __PACKAGE__->config(
  12     name => 'TestAppC3Fail',
  13 );
  14
  15 my @keys = sort keys( %{ __PACKAGE__->config } );
  16
  17 __PACKAGE__->setup;
  18
  19 my @new_keys = sort
  20     # Ignore key added by horrid hack in Catalyst::Runtime 5.90080
  21     grep { $_ ne '__configured_from_psgi_middleware'}
  22     keys( %{ __PACKAGE__->config } );
  23
  24 use Test::More;
  25
  26 is_deeply(\@new_keys, \@keys, 'Config keys correct')
  27     or diag explain [\@keys, \@new_keys];
  28
  29 1;
  30