mirror of
git://git.sv.gnu.org/autoconf
synced 2024-12-15 02:20:10 +08:00
25a7a663ed
of lack of $LINENO support, then the test will compare the $LINENO in testsuite vs. the lineno in the test file. This is wrong, of course. Be sure to protect it. Reported by Patrick Welche.
275 lines
7.4 KiB
Plaintext
275 lines
7.4 KiB
Plaintext
# -*- Autotest -*-
|
|
|
|
AT_BANNER([M4sh.])
|
|
|
|
# Copyright (C) 2000, 2001, 2002 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, write to the Free Software
|
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
# 02111-1307, USA.
|
|
|
|
# Used in many tests.
|
|
m4_pattern_allow([^AS_EXIT$])
|
|
|
|
## ---------------- ##
|
|
## LINENO support. ##
|
|
## ---------------- ##
|
|
|
|
AT_SETUP([LINENO])
|
|
|
|
# We cannot unset LINENO with Zsh, yet this test case relies on
|
|
# unsetting LINENO to compare its result when (i) LINENO is supported
|
|
# and when (ii) it is not.
|
|
# So just skip if the shell is ZSH.
|
|
AT_CHECK([test -n "${ZSH_VERSION+set}" && exit 77], ignore)
|
|
|
|
# AT_DATA_LINENO(FILENAME,
|
|
# UNSET-LINENO = true | false, COUNTER, COUNTER-RE)
|
|
# ----------------------------------------------------------------
|
|
# Produce the FILENAME M4sh script which uses the COUNTER LINENO or
|
|
# _oline_, which we can recognized via COUNTER-RE. Unset LINENO is
|
|
# UNSET-LINENO.
|
|
#
|
|
# Use COUNTER, COUNTER-RE = [__LINENO__], [LINENO]
|
|
# or = [__OLINE__], [_oline__]
|
|
#
|
|
# instead of the obvious $LINENO and __oline__, because they would
|
|
# be replaced in the test suite itself, even before creating these
|
|
# scripts. For the same reason, grep for LINENO and _oline__ (sic).
|
|
#
|
|
# UNSET-LINENO is a shell condition to make sure the scripts have the
|
|
# same number of lines in the output, so that their outputs be identical.
|
|
m4_define([AT_DATA_LINENO],
|
|
[AT_DATA([$1.tas],
|
|
[[AS@&t@_INIT
|
|
if $2; then
|
|
AS@&t@_UNSET([LINENO])
|
|
fi
|
|
_AS@&t@_PREPARE
|
|
echo "Line: $3"
|
|
grep 'Line: .*$4' $[0] >/dev/null ||
|
|
AS@&t@_ERROR([cannot find original script])
|
|
exit 0
|
|
]])
|
|
# If occurrences of $LINENO or __oline__ were wanted, create them.
|
|
sed 's/__LINENO__/$''LINENO/g;s/__OLINE__/__''oline__/g' $1.tas >$1.as
|
|
AT_CHECK([autom4te -l m4sh $1.as -o $1])
|
|
])# AT_DATA_LINENO
|
|
|
|
# `_oline_', once processed and ran, produces our reference.
|
|
# We check that we find ourselves by looking at a string which is
|
|
# available only in the original script: `_oline_'.
|
|
AT_DATA_LINENO([reference], [false], [__OLINE__], [_oline__])
|
|
AT_CHECK([./reference], 0, [stdout])
|
|
|
|
# The reference:
|
|
mv stdout expout
|
|
|
|
# Now using a maybe-functioning LINENO, with different call conventions.
|
|
# Be sure to be out of the PATH.
|
|
AT_CHECK([mkdir test || exit 77])
|
|
|
|
AT_DATA_LINENO([test/test-1], [false], [__LINENO__], [LINENO])
|
|
AT_CHECK([./test/test-1], 0, [expout])
|
|
AT_CHECK([(PATH=test$PATH_SEPARATOR$PATH; export PATH; exec test-1)],
|
|
0, [expout])
|
|
AT_CHECK([sh ./test/test-1], 0, [expout])
|
|
|
|
# Now using a disabled LINENO, with different call conventions.
|
|
AT_DATA_LINENO([test/test-2], [true], [__LINENO__], [LINENO])
|
|
AT_CHECK([./test/test-2], 0, [expout])
|
|
AT_CHECK([(PATH=test$PATH_SEPARATOR$PATH; export PATH; exec test-2)],
|
|
0, [expout])
|
|
AT_CHECK([sh ./test/test-2], 0, [expout])
|
|
|
|
AT_CLEANUP
|
|
|
|
|
|
|
|
## ------------ ##
|
|
## AS_DIRNAME. ##
|
|
## ------------ ##
|
|
|
|
# Build nested dirs.
|
|
AT_SETUP([[AS@&t@_DIRNAME]])
|
|
|
|
AT_DATA_M4SH([script.as],
|
|
[[AS_INIT
|
|
|
|
# The EXPR variant is allowed to fail if `expr' was considered as too
|
|
# weak for us, in which case `as_expr=false'.
|
|
m4_define([DIRNAME_TEST],
|
|
[dir=`AS_DIRNAME([$1])`
|
|
test "$dir" = "$2" || (test -n "$3" && test "$dir" = "$3") ||
|
|
echo "dirname($1) = $dir instead of $2" >&2
|
|
|
|
if test "$as_expr" != false; then
|
|
dir=`AS_DIRNAME_EXPR([$1])`
|
|
test "$dir" = "$2" || (test -n "$3" && test "$dir" = "$3") ||
|
|
echo "dirname_expr($1) = $dir instead of $2" >&2
|
|
fi
|
|
|
|
dir=`AS_DIRNAME_SED([$1])`
|
|
test "$dir" = "$2" ||
|
|
test "$dir" = "$2" || (test -n "$3" && test "$dir" = "$3") ||
|
|
echo "dirname_sed($1) = $dir instead of $2" >&2])
|
|
|
|
DIRNAME_TEST([/], [/])
|
|
DIRNAME_TEST([//], [//], [/])
|
|
DIRNAME_TEST([///], [/])
|
|
DIRNAME_TEST([//1], [//], [/])
|
|
DIRNAME_TEST([/1], [/])
|
|
DIRNAME_TEST([./1], [.])
|
|
DIRNAME_TEST([../../2], [../..])
|
|
DIRNAME_TEST([//1/], [//], [/])
|
|
DIRNAME_TEST([/1/], [/])
|
|
DIRNAME_TEST([./1/], [.])
|
|
DIRNAME_TEST([../../2], [../..])
|
|
DIRNAME_TEST([//1/3], [//1])
|
|
DIRNAME_TEST([/1/3], [/1])
|
|
DIRNAME_TEST([./1/3], [./1])
|
|
DIRNAME_TEST([../../2/3], [../../2])
|
|
DIRNAME_TEST([//1/3///], [//1])
|
|
DIRNAME_TEST([/1/3///], [/1])
|
|
DIRNAME_TEST([./1/3///], [./1])
|
|
DIRNAME_TEST([../../2/3///], [../../2])
|
|
DIRNAME_TEST([//1//3/], [//1])
|
|
DIRNAME_TEST([/1//3/], [/1])
|
|
DIRNAME_TEST([./1//3/], [./1])
|
|
DIRNAME_TEST([../../2//3/], [../../2])
|
|
AS_EXIT(0)
|
|
]])
|
|
|
|
AT_CHECK_M4SH
|
|
AT_CHECK([./script])
|
|
|
|
AT_CLEANUP
|
|
|
|
|
|
|
|
## ------------- ##
|
|
## AS_BASENAME. ##
|
|
## ------------- ##
|
|
|
|
# Build nested dirs.
|
|
AT_SETUP([[AS@&t@_BASENAME]])
|
|
|
|
AT_DATA_M4SH([script.as],
|
|
[[AS_INIT
|
|
|
|
m4_define([BASENAME_TEST],
|
|
[base=`AS_BASENAME([$1])`
|
|
test "$base" = "$2" ||
|
|
echo "basename($1) = $base instead of $2" >&2
|
|
|
|
base=`AS_BASENAME_SED([$1])`
|
|
test "$base" = "$2" ||
|
|
echo "basename_sed($1) = $base instead of $2" >&2])
|
|
|
|
BASENAME_TEST([//1], [1])
|
|
BASENAME_TEST([/1], [1])
|
|
BASENAME_TEST([./1], [1])
|
|
BASENAME_TEST([../../2], [2])
|
|
BASENAME_TEST([//1/], [1])
|
|
BASENAME_TEST([/1/], [1])
|
|
BASENAME_TEST([./1/], [1])
|
|
BASENAME_TEST([../../2], [2])
|
|
BASENAME_TEST([//1/3], [3])
|
|
BASENAME_TEST([/1/3], [3])
|
|
BASENAME_TEST([./1/3], [3])
|
|
BASENAME_TEST([../../2/3], [3])
|
|
BASENAME_TEST([//1/3///], [3])
|
|
BASENAME_TEST([/1/3///], [3])
|
|
BASENAME_TEST([./1/3///], [3])
|
|
BASENAME_TEST([../../2/3///], [3])
|
|
BASENAME_TEST([//1//3/], [3])
|
|
BASENAME_TEST([/1//3/], [3])
|
|
BASENAME_TEST([./1//3/], [3])
|
|
BASENAME_TEST([a.c], [a.c])
|
|
BASENAME_TEST([a.c/], [a.c])
|
|
BASENAME_TEST([/a.c/], [a.c])
|
|
BASENAME_TEST([/1/a.c], [a.c])
|
|
BASENAME_TEST([/1/a.c/], [a.c])
|
|
BASENAME_TEST([/1/../a.c], [a.c])
|
|
BASENAME_TEST([/1/../a.c/], [a.c])
|
|
BASENAME_TEST([./1/a.c], [a.c])
|
|
BASENAME_TEST([./1/a.c/], [a.c])
|
|
AS_EXIT(0)
|
|
]])
|
|
|
|
AT_CHECK_M4SH
|
|
AT_CHECK([./script])
|
|
|
|
AT_CLEANUP
|
|
|
|
|
|
|
|
## ------------ ##
|
|
## AS_MKDIR_P. ##
|
|
## ------------ ##
|
|
|
|
# Build nested dirs.
|
|
AT_SETUP([[AS@&t@_MKDIR_P]])
|
|
|
|
AT_DATA_M4SH([script.as],
|
|
[[AS_INIT
|
|
|
|
pwd=`pwd`
|
|
set -e
|
|
# Absolute
|
|
AS_MKDIR_P(["$pwd/1/2/3/4/5/6"])
|
|
test -d "$pwd/1/2/3/4/5/6" ||
|
|
AS_ERROR([$pwd/1/2/3/4/5/6 has not been properly created])
|
|
# Relative
|
|
AS_MKDIR_P(["a/b/c/d/e/f"])
|
|
test -d a/b/c/d/e/f ||
|
|
AS_ERROR([a/b/c/d/e/f has not been properly created])
|
|
AS_EXIT(0)
|
|
]])
|
|
|
|
AT_CHECK_M4SH
|
|
AT_CHECK([./script])
|
|
|
|
AT_CLEANUP
|
|
|
|
|
|
|
|
|
|
## ----------------------------- ##
|
|
## Negated classes in globbing. ##
|
|
## ----------------------------- ##
|
|
|
|
# It is known that `[^...]' is not universally supported, but it is
|
|
# unknown for `[!...]'.
|
|
|
|
AT_SETUP([Negated classes in globbing])
|
|
|
|
AT_DATA_M4SH([script.as],
|
|
[[AS_INIT
|
|
|
|
case 'with!two!bangs' in
|
|
*[[!a-z]]*) ;;
|
|
*) AS_ERROR([[`*[!a-z]*' didn't match `with!two!bangs']]);;
|
|
esac
|
|
|
|
case without in
|
|
*[[!a-z]]*) AS_ERROR([[`*[!a-z]*' matched `without']]);;
|
|
esac
|
|
]])
|
|
|
|
AT_CHECK_M4SH
|
|
AT_CHECK([./script])
|
|
|
|
AT_CLEANUP
|