t/meta_method_unneeded.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use lib "$Bin/lib";
   5 use Test::More tests => 2;
   6 use Test::Exception;
   7 use Carp ();
   8
   9 # Doing various silly things, like for example
  10 # use CGI qw/:standard/ in your conrtoller / app
  11 # will overwrite your meta method, therefore Catalyst
  12 # can't depend on it being there correctly.
  13
  14 # This is/was demonstrated by Catalyst::Controller::WrapCGI
  15 # and Catalyst::Plugin::Cache::Curried
  16
  17 {
  18     package TestAppWithMeta;
  19     use Catalyst;
  20     no warnings 'redefine';
  21     sub meta {}
  22 }
  23 BEGIN {
  24     lives_ok { TestAppWithMeta->setup } 'Can setup an app which defines its own meta method';
  25 }
  26
  27 use Catalyst::Test 'TestAppWithMeta';
  28
  29 ok( request('/')->is_success );
  30