gpgscm: Fail if too many arguments are given.
authorJustus Winter <justus@g10code.com>
Thu, 22 Dec 2016 14:48:07 +0000 (15:48 +0100)
committerJustus Winter <justus@g10code.com>
Mon, 2 Jan 2017 10:02:34 +0000 (11:02 +0100)
* tests/gpgscm/scheme.c (opexe_0): Enable check.
* tests/gpgscm/tests.scm (test::report): Remove superfluous argument.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/scheme.c
tests/gpgscm/tests.scm

index 7cd5217..c4725db 100644 (file)
@@ -3364,11 +3364,9 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) {
                     }
                }
                if (x == sc->NIL) {
-                    /*--
-                     * if (y != sc->NIL) {
-                     *   Error_0(sc,"too many arguments");
-                     * }
-                     */
+                    if (y != sc->NIL) {
+                      Error_0(sc, "too many arguments");
+                    }
                } else if (is_symbol(x))
                     new_slot_in_env(sc, x, y);
                else {
index 5954704..e5858d9 100644 (file)
                (seek logfd 0 SEEK_SET)
                (splice logfd STDERR_FILENO)
                (close logfd))
-       (echo (string-append (status retcode) ":") name))))))
+       (echo (string-append (status) ":") name))))))
 
 ;; Run the setup target to create an environment, then run all given
 ;; tests in parallel.