4 use Test::More tests => 5;
9 local our %log_messages; # TODO - Test log messages as expected.
10 my $mock_log = Class::MOP::Class->create_anon_class(
14 $log_messages{$level} ||= [];
15 push(@{ $log_messages{$level} }, $_[1]);
18 qw/debug info warn error fatal/,
25 %log_messages = (); # Flatten log messages.
26 my $meta = Moose->init_meta( for_class => $name );
27 $meta->superclasses('Catalyst');
28 $meta->add_method('log', sub { $mock_log });
34 # Remove all relevant env variables to avoid accidental fail
35 foreach my $name (grep { /^(CATALYST|TESTAPP)/ } keys %ENV) {
40 my $app = mock_app('TestAppNoStats', $mock_log);
42 ok !$app->use_stats, 'stats off by default';
45 my $app = mock_app('TestAppStats', $mock_log);
47 ok $app->use_stats, 'stats on if you say >setup_stats(1)';
50 my $app = mock_app('TestAppStatsDebugTurnsStatsOn', $mock_log);
51 $app->meta->add_method('debug' => sub { 1 });
53 ok $app->use_stats, 'debug on turns stats on';
57 $ENV{CATALYST_STATS} = 1;
58 my $app = mock_app('TestAppStatsEnvSet', $mock_log);
60 ok $app->use_stats, 'ENV turns stats on';
64 $ENV{CATALYST_STATS} = 0;
65 my $app = mock_app('TestAppStatsEnvUnset', $mock_log);
66 $app->meta->add_method('debug' => sub { 1 });
68 ok !$app->use_stats, 'ENV turns stats off, even when debug on and ->setup_stats(1)';