diff options
author | Matthias Paulmier <matthias.paulmier@etu.u-bordeaux.fr> | 2018-06-25 21:04:56 +0200 |
---|---|---|
committer | Matthias Paulmier <matthias.paulmier@etu.u-bordeaux.fr> | 2018-06-25 21:35:35 +0200 |
commit | 6e4030d97ce00ac8aaf130f6cc2ce8bd23b141c7 (patch) | |
tree | 59fd430da595db2891104629dee2f166e39b14ef | |
parent | 0e457a7739be363646336086dbf7b78382e8b6dd (diff) | |
download | automake-6e4030d97ce00ac8aaf130f6cc2ce8bd23b141c7.tar.gz |
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'.
-rw-r--r-- | t/list-of-tests.mk | 2 | ||||
-rw-r--r-- | t/pm/Channels.pl | 21 |
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"); |