From 6e4030d97ce00ac8aaf130f6cc2ce8bd23b141c7 Mon Sep 17 00:00:00 2001 From: Matthias Paulmier Date: Mon, 25 Jun 2018 21:04:56 +0200 Subject: 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'. --- t/list-of-tests.mk | 2 ++ t/pm/Channels.pl | 21 +++++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100644 t/pm/Channels.pl 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 . + +# 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"); -- cgit v1.2.1