From de1939e565da64f70c0b2e3f558493fd5df8701c Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 1 Dec 2008 23:24:07 -0500 Subject: finish up tests --- t/004-exceptions.t | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 t/004-exceptions.t (limited to 't/004-exceptions.t') diff --git a/t/004-exceptions.t b/t/004-exceptions.t new file mode 100644 index 0000000..d852fea --- /dev/null +++ b/t/004-exceptions.t @@ -0,0 +1,32 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/lib'; +use Test::More tests => 4; +use Test::Exception; +use Log::Dispatch::Channels; +use Log::Dispatch::ToString; + +my $logger = Log::Dispatch::Channels->new; +for my $channel (1..3) { + $logger->add_channel($channel); + $logger->add(Log::Dispatch::ToString->new(name => $channel, + min_level => 'debug'), + channels => $channel); +} + +throws_ok { $logger->log_and_die(channels => 1, + level => 'debug', + message => 'log_and_die') } + qr/^log_and_die/, + "log_and_die dies with the proper message"; +is($logger->output(1)->get_string, "log_and_die", + "log_and_die logs the proper message"); + +throws_ok { $logger->log_and_croak(channels => 2, + level => 'debug', + message => 'log_and_croak') } + qr/^log_and_croak/, + "log_and_croak dies with the proper message"; +is($logger->output(2)->get_string, "log_and_croak", + "log_and_croak logs the proper message"); -- cgit v1.2.3-54-g00ecf