t/mro-ok.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 2;
   4
   5 use Catalyst::Controller;
   6 my $NEW_CALLED;
   7 BEGIN {
   8     $NEW_CALLED = 0;
   9     { no warnings;
  10       sub Catalyst::Controller::new {
  11           $NEW_CALLED = 1;
  12           return shift->next::method(@_);
  13       }
  14   }
  15 }
  16
  17 BEGIN { is $NEW_CALLED, 0, 'new not called yet' }
  18
  19 use FindBin qw($Bin);
  20 use lib "$Bin/lib";
  21 use Catalyst::Test qw(TestApp);
  22
  23 is $NEW_CALLED, '1', 'Catalyst::Controller::new does get called';
  24
  25 1;
  26