X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsimplelogger.t;h=f9fd708f52c274816a0a849c5914b2a0e5c1b9bf;hb=13955c5370339ff2c026e338496049b455ffedb5;hp=968ff83483325db9c43734544cc963514feca5fe;hpb=b144ba01913732526954180c295cd8865bf84f3f;p=p5sagit%2FLog-Contextual.git

diff --git a/t/simplelogger.t b/t/simplelogger.t
index 968ff83..f9fd708 100644
--- a/t/simplelogger.t
+++ b/t/simplelogger.t
@@ -35,8 +35,8 @@ my $l2 = Log::Contextual::SimpleLogger->new({
    coderef => sub { $response = $_[0] },
 });
 {
-	local $SIG{__WARN__} = sub {}; # do this just to hide warning for tests
-	set_logger($l2);
+   local $SIG{__WARN__} = sub {}; # do this just to hide warning for tests
+   set_logger($l2);
 }
 log_trace { 'trace' };
 is($response, "[trace] trace\n", 'trace renders correctly');
@@ -54,3 +54,12 @@ is($response, "[fatal] fatal\n", 'fatal renders correctly');
 log_debug { 'line 1', 'line 2' };
 is($response, "[debug] line 1\nline 2\n", 'multiline log renders correctly');
 
+my $u = Log::Contextual::SimpleLogger->new({levels_upto => 'debug'});
+
+ok(!$u->is_trace, 'is_trace is false on SimpleLogger');
+ok($u->is_debug, 'is_debug is true on SimpleLogger');
+ok($u->is_info, 'is_info is true on SimpleLogger');
+ok($u->is_warn, 'is_warn is true on SimpleLogger');
+ok($u->is_error, 'is_error is true on SimpleLogger');
+ok($u->is_fatal, 'is_fatal is true on SimpleLogger');
+