summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--t/list-of-tests.mk2
-rw-r--r--t/pm/Channels.pl21
2 files changed, 23 insertions, 0 deletions
diff --git a/t/list-of-tests.mk b/t/list-of-tests.mk
index 63ea87701..d972322c0 100644
--- 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
index 000000000..a929750ff
--- /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");