From de1939e565da64f70c0b2e3f558493fd5df8701c Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 1 Dec 2008 23:24:07 -0500
Subject: finish up tests

---
 t/002-logging.t | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 't/002-logging.t')

diff --git a/t/002-logging.t b/t/002-logging.t
index 816f69f..4032537 100644
--- a/t/002-logging.t
+++ b/t/002-logging.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More tests => 6;
+use Test::More tests => 9;
 use Log::Dispatch::Channels;
 use Log::Dispatch::ToString;
 
@@ -28,10 +28,11 @@ my @messages = (
     "debugging 3\n",
     "channels 1 and 3\n",
     "everywhere\n",
+    "2 specific\n",
 );
 my %should_get = (
     1           => [qw/0 3 4/],
-    2           => [qw/1 4/],
+    2           => [qw/1 4 5/],
     3           => [qw/2 3 4/],
     all         => [qw/0 1 2 3 3 4 4 4/],
     error       => [qw/1 2/],
@@ -43,9 +44,20 @@ $logger->log(channels => 2,         message => $messages[1], level => 'error');
 $logger->log(channels => 3,         message => $messages[2], level => 'error');
 $logger->log(channels => [qw/1 3/], message => $messages[3], level => 'info');
 $logger->log(                       message => $messages[4], level => 'debug');
+$logger->log_to(name => 2,          message => $messages[5], level => 'debug');
 
 for my $output (keys %should_get) {
     my $log = join '', map { $messages[$_] } @{ $should_get{$output} };
     is($logger->output($output)->get_string, $log,
        "output $output received the correct logging calls");
 }
+
+ok($logger->would_log('error'),
+   "a logger would log messages at 'error'");
+$logger->remove('all');
+$logger->remove(2);
+$logger->remove(3);
+ok(!$logger->would_log('debug', channels => [qw/2 3/]),
+   "there is no logger left in channel 2 or 3 for debug level messages");
+ok(!$logger->would_log('debug', channels => 2),
+   "no logger is left on channel 2 to log debug level messages");
-- 
cgit v1.2.3-54-g00ecf