1 files changed, 27 insertions, 0 deletions
diff --git a/t/pm/Channels.plt b/t/pm/Channels.plt
new file mode 100644
index 000000000..4014ebf49
--- /dev/null
+++ b/t/pm/Channels.plt
@@ -0,0 +1,27 @@
+# -*- mode:perl -*-
+# Copyright (C) 2018  Matthias Paulmier
+
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+# This test should end in a fatal error because the channel doesn't exist
+
+use Automake::Channels;
+use Automake::Location;
+use Test::Simple tests => 1;
+
+eval { msg ('test-fatal', new Automake::Location ('.'), "Test Message") };
+
+warn $@ if $@;
+
+ok ($@, "Test fatal error");