libtool/tests/getopt-m4sh.at
Gary V. Vaughan d576fa9da1 maint: run update-copyright for missing 2011 and 2012 years.
See maintain.texi (Copyright Notices) for rules for maintaining
the years in copyright notices.
* All Files (Copyright): Updated with missing 2011 and 2012.

Signed-off-by: Gary V. Vaughan <gary@gnu.org>
2012-10-02 21:05:50 +07:00

221 lines
4.5 KiB
Plaintext

# getopts-m4sh.at -- test getopts.m4sh option parsers -*- Autotest -*-
#
# Copyright (C) 2010-2012 Free Software Foundation, Inc.
# Written by Gary V. Vaughan, 2010
#
# This file is part of GNU Libtool.
#
# GNU Libtool 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.
#
# GNU Libtool 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 GNU Libtool; see the file COPYING. If not, a copy
# can be downloaded from http://www.gnu.org/licenses/gpl.html,
# or obtained by writing to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
####
AT_BANNER([Shell option parser generator.])
# _LT_AT_GETOPT_M4SH_SETUP
# ------------------------
m4_define([_LT_AT_GETOPT_M4SH_SETUP],
[m4_pattern_allow([AS_INIT])
m4_pattern_allow([m4_include])
AT_DATA([options.m4sh],
[[AS_INIT[]m4_include([getopt.m4sh])
nl='
'
list=
opts=
M4SH_GETOPTS(
[a!], [--append], [], [func_append list "$optarg$nl"],
[f], [--force], [], [opts="$opts force"],
[i], [--install], [], [opts="$opts install"],
[l;], [--length], [], [],
[p!], [--path], [], [func_dirname_and_basename "$optarg"],
[v], [--verbose], [], [opts="$opts verbose"],
[!], [--ltdl], [false],[opts="$opts ltdl=$optarg"],
[test -z "$opt_length" || {
for s in $opt_length; do
func_len "$s"
func_arith ${len-0} + $func_len_result; len=$func_arith_result
done
echo len=$len
}
test -z "$opt_path" || {
func_stripname b_ .d "$func_basename_result"
echo "$func_dirname_result:$func_stripname_result"
}
test -z "$list$opts" || echo "$list" $opts])
]])
m4_pattern_forbid([m4_include])
m4_pattern_forbid([AS_INIT])
AT_CHECK([$M4SH --version || exit 77], [], [ignore], [ignore])
AT_CHECK([$M4SH -B $abs_top_srcdir/build-aux options.m4sh > t-options],
[], [], [], [AT_CHECK([test 63 -eq "$at_status" && exit 77])])
$SED "s|@LN_S\@|$LN_S|g;s|@SED\@|$SED|g" t-options > options
])# _LT_AT_GETOPT_M4SH_SETUP
## ----------------------- ##
## Short option splitting. ##
## ----------------------- ##
AT_SETUP([fallback short option splitting])
AT_DATA(expout,
[[ force verbose install
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([lt_HAVE_XSI_OPS=no $SHELL ./options -fvi], 0, [expout])
AT_CLEANUP
AT_SETUP([enhanced short option splitting])
AT_DATA(expout,
[[ force verbose install
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([$SHELL ./options -fvi], 0, [expout])
AT_CLEANUP
## ---------------------- ##
## Long option splitting. ##
## ---------------------- ##
AT_SETUP([fallback long option splitting])
AT_DATA(expout,
[[ ltdl=long
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([lt_HAVE_XSI_OPS=no $SHELL ./options --ltdl=long], 0, [expout])
AT_CLEANUP
AT_SETUP([enhanced long option splitting])
AT_DATA(expout,
[[ ltdl=long
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([$SHELL ./options --ltdl=long], 0, [expout])
AT_CLEANUP
## ----------------- ##
## Option appending. ##
## ----------------- ##
AT_SETUP([fallback option appending])
AT_DATA(expout,
[[first --append second
third
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([lt_HAVE_PLUSEQ_OP=no $SHELL ./options -a "first --append second" -athird], 0, [expout])
AT_CLEANUP
AT_SETUP([enhanced option appending])
AT_DATA(expout,
[[first --append second
third
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([$SHELL ./options -a "first --append second" -athird], 0, [expout])
AT_CLEANUP
## ----------------- ##
## Shell arithmetic. ##
## ----------------- ##
AT_SETUP([fallback arithmetic])
AT_DATA(expout,
[[len=9
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([lt_HAVE_ARITH_OP=no $SHELL ./options -l short --length long], 0, [expout])
AT_CLEANUP
AT_SETUP([enhanced arithmetic])
AT_DATA(expout,
[[len=9
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([$SHELL ./options -l short --length long], 0, [expout])
AT_CLEANUP
## ------------- ##
## Path slicing. ##
## ------------- ##
AT_SETUP([fallback path slicing])
AT_DATA(expout,
[[a:c
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([lt_HAVE_XSI_OPS=no $SHELL ./options -p a/b_c.d], 0, [expout])
AT_CLEANUP
AT_SETUP([enhanced path slicing])
AT_DATA(expout,
[[a:c
]])
_LT_AT_GETOPT_M4SH_SETUP
AT_CHECK([$SHELL ./options -p a/b_c.d], 0, [expout])
AT_CLEANUP