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