#! /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