tests/gpgscm: Add a TinySCHEME-based test driver.

* configure.ac: Add new component.
* tests/Makefile.am: Likewise.
* tests/gpgscm/Makefile.am: New file.
* tests/gpgscm/ffi-private.h: Likewise.
* tests/gpgscm/ffi.c: Likewise.
* tests/gpgscm/ffi.h: Likewise.
* tests/gpgscm/ffi.scm: Likewise.
* tests/gpgscm/lib.scm: Likewise.
* tests/gpgscm/main.c: Likewise.
* tests/gpgscm/private.h: Likewise.
* tests/gpgscm/repl.scm: Likewise.
* tests/gpgscm/scheme-config.h: Likewise.
* tests/gpgscm/t-child.c: Likewise.
* tests/gpgscm/t-child.scm: Likewise.
* tests/gpgscm/tests.scm: Likewise.

Signed-off-by: Justus Winter <[email protected]>

1 files changed, 66 insertions, 0 deletions

diff --git a/tests/gpgscm/t-child.c b/tests/gpgscm/t-child.c
new file mode 100644
index 000000000..fe2e7b407
--- /dev/null
+++ b/tests/gpgscm/t-child.c
@@ -0,0 +1,66 @@
+/* Sanity check for the process and IPC primitives.
+ *
+ * Copyright (C) 2016 g10 code GmbH
+ *
+ * This file is part of GnuPG.
+ *
+ * GnuPG 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.
+ *
+ * GnuPG 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/>.
+ */
+
+#include <errno.h>
+#include <stdio.h>
+#include <string.h>
+
+#ifdef _WIN32
+# include <fcntl.h>
+# include <io.h>
+#endif
+
+int
+main (int argc, char **argv)
+{
+#if _WIN32
+  if (! setmode (stdin, O_BINARY))
+    return 23;
+  if (! setmode (stdout, O_BINARY))
+    return 23;
+#endif
+
+  if (argc == 1)
+    return 2;
+  else if (strcmp (argv[1], "return0") == 0)
+    return 0;
+  else if (strcmp (argv[1], "return1") == 0)
+    return 1;
+  else if (strcmp (argv[1], "return77") == 0)
+    return 77;
+  else if (strcmp (argv[1], "hello_stdout") == 0)
+    fprintf (stdout, "hello");
+  else if (strcmp (argv[1], "hello_stderr") == 0)
+    fprintf (stderr, "hello");
+  else if (strcmp (argv[1], "cat") == 0)
+    while (! feof (stdin))
+      {
+        char buffer[4096];
+        size_t bytes_read;
+        bytes_read = fread (buffer, 1, sizeof buffer, stdin);
+        fwrite (buffer, 1, bytes_read, stdout);
+      }
+  else
+    {
+      fprintf (stderr, "unknown command %s\n", argv[1]);
+      return 2;
+    }
+  return 0;
+}