Add a test for the Channels.pm module

This test is placed in the perl_fake_XFAIL_TESTS meaning it is expected to
FAIL but is the correct behavior of the test.  It should generate a fatal
error with the following message: 'unknown channel test-fatal'.

diff --git a/t/list-of-tests.mk b/t/list-of-tests.mk
index 63ea87701729e7c1f1ba87d46e9102420161c4a7..d972322c0a7f83860daa12322c7ed1d7f6bba0a0 100644 (file)
--- a/t/list-of-tests.mk
+++ b/t/list-of-tests.mk
@@ -21,6 +21,7 @@
 # FIXME: to verify that some incorrect usages of our perl libraries
 # FIXME: raise an error.  We should find a cleaner way to check that.
 perl_fake_XFAIL_TESTS = \
+t/pm/Channels.pl \
 t/pm/Cond2.pl \
 t/pm/Cond3.pl \
 t/pm/DisjCon2.pl \
@@ -46,6 +47,7 @@ t/remake-m4-pr10111.sh \
 $(perl_fake_XFAIL_TESTS)
 
 perl_TESTS = \
+t/pm/Channels.pl \
 t/pm/Cond2.pl \
 t/pm/Cond3.pl \
 t/pm/Condition.pl \

diff --git a/t/pm/Channels.pl b/t/pm/Channels.pl
new file mode 100644 (file)
index 0000000..a929750
--- /dev/null
+++ b/t/pm/Channels.pl
@@ -0,0 +1,21 @@
+# 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;
+
+msg ('test-fatal', new Automake::Location ('.'), "Test Message");