4 use Test::More tests => 5;
9 my %log_messages; # TODO - Test log messages as expected.
10 my $mock_log = Test::MockObject->new;
11 foreach my $level (qw/debug info warn error fatal/) {
12 $mock_log->mock($level, sub {
13 $log_messages{$level} ||= [];
14 push(@{ $log_messages{$level} }, $_[1]);
20 %log_messages = (); # Flatten log messages.
21 print "Setting up mock application: $name\n";
22 my $meta = Moose->init_meta( for_class => $name );
23 $meta->superclasses('Catalyst');
24 $meta->add_method('log', sub { $mock_log });
28 local %ENV; # Ensure blank or someone, somewhere will fail..
31 my $app = mock_app('TestNoStats');
33 ok !$app->use_stats, 'stats off by default';
36 my $app = mock_app('TestStats');
38 ok $app->use_stats, 'stats on if you say >setup_stats(1)';
41 my $app = mock_app('TestStatsDebugTurnsStatsOn');
42 $app->meta->add_method('debug' => sub { 1 });
44 ok $app->use_stats, 'debug on turns stats on';
47 local %ENV = ( CATALYST_STATS => 1 );
48 my $app = mock_app('TestStatsAppStatsEnvSet');
50 ok $app->use_stats, 'ENV turns stats on';
53 local %ENV = ( CATALYST_STATS => 0 );
54 my $app = mock_app('TestStatsAppStatsEnvUnset');
55 $app->meta->add_method('debug' => sub { 1 });
57 ok !$app->use_stats, 'ENV turns stats off, even when debug on and ->setup_stats(1)';