use strict;
use warnings;
-use Test::More tests => 22;
+use Test::More tests => 24;
use Catalyst::Log;
ok my $log = $LOG->new, '... and creating a new log object should succeed';
isa_ok $log, $LOG, '... and the object it returns';
+can_ok $log, "autoflush";
+$log->autoflush(0);
+
can_ok $log, 'is_info';
ok $log->is_info, '... and the default behavior is to allow info messages';
my $SUBCLASS = 'Catalyst::Log::Subclass';
can_ok $SUBCLASS, 'new';
ok $log = Catalyst::Log::Subclass->new,
- '... and the log subclass constructor shoudl return a new object';
+ '... and the log subclass constructor should return a new object';
isa_ok $log, $SUBCLASS, '... and the object it returns';
isa_ok $log, $LOG, '... and it also';
+can_ok $log, "autoflush";
+$log->autoflush(0);
+
can_ok $log, 'info';
ok $log->info('hi there!'),
'... passing it an info message should succeed';