blob: 51b3127635be299d351920187a2074aad66302d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#! /bin/sh
# Copyright (C) 2011-2018 Free Software Foundation, Inc.
#
# 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, 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 <https://www.gnu.org/licenses/>.
# Sanity check for the automake testsuite.
# Make sure that $me gets automatically defined by 'test-init.sh'.
am_create_testdir=no
. test-init.sh
plan_ 12
# This test becomes cumbersome if we keep the 'errexit' shell flag set.
# And removing it is no big deal, as this test is a TAP-based one, so
# that false positives remain very unlikely.
set +e
do_check ()
{
$AM_TEST_RUNNER_SHELL -c '
am_create_testdir=no # Do not pollute the top-level directory.
. test-init.sh
echo me=$me
' "$1" | grep "^me=$2$"
command_ok_ "me=$1" test $? -eq 0
}
for e in sh tap; do
do_check foo-bar-.$e 'foo-bar-'
do_check _foo__bar.$e '_foo__bar'
do_check 012.$e '012'
do_check a.b.c.$e 'a\.b\.c'
done
do_check foo.bar 'foo\.bar'
do_check abc. 'abc\.'
# A definition of $me in the environment should be ignored.
s=$(me=bad $AM_TEST_RUNNER_SHELL -c '
# Do not pollute the top-level directory.
am_create_testdir=no
. test-init.sh
echo me=$me
' foo.sh)
command_ok_ "override of \$me before test-init.sh causes no error" \
test $? -eq 0
r='ok'
printf '%s\n' "$s" | grep '^me=foo$' || r='not ok'
printf '%s\n' "$s" | grep 'me=bad' && r='not ok'
result_ "$r" "\$me from the environment is ignored"
unset r
:
|
