diff options
Diffstat (limited to 'getdefs/test/subblock.test')
-rwxr-xr-x | getdefs/test/subblock.test | 105 |
1 files changed, 105 insertions, 0 deletions
diff --git a/getdefs/test/subblock.test b/getdefs/test/subblock.test new file mode 100755 index 0000000..8b1eb3c --- /dev/null +++ b/getdefs/test/subblock.test @@ -0,0 +1,105 @@ +#! /bin/sh +# -*- Mode: Shell-script -*- +# +# subblock.test --- test the subblock parameter to getdefs +# +# Author: Bruce Korb <bkorb@gnu.org> +# Time-stamp: "2011-02-02 12:04:51 bkorb" +## +## This file is part of AutoGen. +## AutoGen Copyright (c) 1992-2012 by Bruce Korb - all rights reserved +## +## AutoGen 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 3 of the License, or +## (at your option) any later version. +## +## AutoGen 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/>. + +# Common definitions +if test -z "$srcdir"; then + srcdir=`echo "$0" | ${SED} 's,[^/]*$,,'` + test -z "$srcdir" && srcdir=. + test "$srcdir" = "$0" && srcdir=. + test "${VERBOSE+set}" != set && VERBOSE=1 +fi +. $srcdir/defs + + +# Create the files we need in the test environment +cat > $testname.c <<EOF + +/*=* global + * + * test: subblock + * doc: we want to see + * just what happens +=*/ + +/*=gfunc in_p + * + * exparg: test-string , string to look for + + arg-name + arg-desc + arg-opt + arg-list + + * exparg: @ string-list @ list of strings to check,, @@ list + * + * opt: 1 + * doc: Return SCM_BOOL_T if the first argument is duplicated + * in the second (list) argument. +=*/ + SCM +ag_scm_in_p( SCM obj, SCM list ) +{ +} +EOF + +cat > $testname.test <<_EOF_ +/* -*- buffer-read-only: t -*- vi: set ro: + * + * + * DO NOT EDIT THIS FILE (subblock.out) + * + * It has been extracted by getdefs from the following files: + * + * subblock.c + */ +autogen definitions testdir; + +/* GLOBALDEFS */ + +#line 2 "subblock.c" + test = 'subblock'; + doc = 'we want to see +just what happens'; + + +#line 9 "subblock.c" +gfunc = { + name = 'in_p'; + exparg = { + arg_name = 'test-string'; + arg_desc = 'string to look for'; + }; + exparg = { + arg_name = 'string-list'; + arg_desc = 'list of strings to check,,'; + arg_list = 'list'; + }; + opt = '1'; + doc = 'Return SCM_BOOL_T if the first argument is duplicated +in the second (list) argument.'; +}; +_EOF_ + +${GDexe} subblock=exparg=arg_name,arg_desc,arg_optional,arg_list \ + output=$testname.out $testname.c || \ + failure running ${GDexe} +cmp -s $testname.test $testname.out || \ + failure "`diff $testname.test $testname.out`" + +# subblock.test ends here |