t/unit_core_setup.t

   1 use strict;
   2 use warnings;
   3 use Class::MOP::Class;
   4 use Catalyst::Runtime;
   5
   6 use Test::More tests => 29;
   7
   8 {
   9     # Silence the log.
  10     my $meta = Catalyst::Log->meta;
  11     $meta->make_mutable;
  12     $meta->remove_method('_send_to_log');
  13     $meta->add_method('_send_to_log', sub {});
  14 }
  15
  16 sub build_test_app_with_setup {
  17     my ($name, @flags) = @_;
  18     my $flags = '(' . join(', ', map { "'".$_."'" } @flags) . ')';
  19     $flags = '' if $flags eq '()';
  20     eval qq{
  21         package $name;
  22         use Catalyst $flags;
  23         $name->setup;
  24     };
  25     die $@ if $@;
  26     return $name;
  27 }
  28
  29 local %ENV; # Don't allow env variables to mess us up.
  30
  31 {
  32     my $app = build_test_app_with_setup('MyTestDebug', '-Debug');
  33
  34     ok my $c = MyTestDebug->new, 'Get debug app object';
  35     ok my $log = $c->log, 'Get log object';
  36     isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
  37     ok $log->is_warn, 'Warnings should be enabled';
  38     ok $log->is_error, 'Errors should be enabled';
  39     ok $log->is_fatal, 'Fatal errors should be enabled';
  40     ok $log->is_info, 'Info should be enabled';
  41     ok $log->is_debug, 'Debugging should be enabled';
  42     ok $app->debug, 'debug method should return true';
  43 }
  44
  45 {
  46     my $app = build_test_app_with_setup('MyTestLogParam', '-Log=warn,error,fatal');
  47
  48     ok my $c = $app->new, 'Get log app object';
  49     ok my $log = $c->log, 'Get log object';
  50     isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
  51     ok $log->is_warn, 'Warnings should be enabled';
  52     ok $log->is_error, 'Errors should be enabled';
  53     ok $log->is_fatal, 'Fatal errors should be enabled';
  54     ok !$log->is_info, 'Info should be disabled';
  55     ok !$log->is_debug, 'Debugging should be disabled';
  56     ok !$c->debug, 'Catalyst debugging is off';
  57 }
  58 {
  59     my $app = build_test_app_with_setup('MyTestNoParams');
  60
  61     ok my $c = $app->new, 'Get log app object';
  62     ok my $log = $c->log, 'Get log object';
  63     isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
  64     ok $log->is_warn, 'Warnings should be enabled';
  65     ok $log->is_error, 'Errors should be enabled';
  66     ok $log->is_fatal, 'Fatal errors should be enabled';
  67     ok $log->is_info, 'Info should be enabled';
  68     ok $log->is_debug, 'Debugging should be enabled';
  69     ok !$c->debug, 'Catalyst debugging turned off';
  70 }
  71 my $log_meta = Class::MOP::Class->create_anon_class(
  72     methods => { map { $_ => sub { 0 } } qw/debug error fatal info warn/ },
  73 );
  74 {
  75     package MyTestAppWithOwnLogger;
  76     use base qw/Catalyst/;
  77     __PACKAGE__->log($log_meta->new_object);
  78     __PACKAGE__->setup('-Debug');
  79 }
  80
  81 ok my $c = MyTestAppWithOwnLogger->new, 'Get with own logger app object';
  82 ok $c->debug, '$c->debug is true';
  83