1 files changed, 32 insertions, 0 deletions
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");