security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-01-05 12:31:50 +01:00
Code Activity

gpgscm: Fail if too many arguments are given.

Browse Source 
* 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>
This commit is contained in:
Justus Winter 2016-12-22 15:48:07 +01:00
parent b79274a3b7
commit b0e14bd6ff
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/gpgscm/scheme.c
View File

@ -3364,11 +3364,9 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) {
} }
} }
if (x == sc->NIL) { if (x == sc->NIL) {
/*-- if (y != sc->NIL) {
* if (y != sc->NIL) { Error_0(sc, "too many arguments");
* Error_0(sc,"too many arguments"); }
* }
*/
} else if (is_symbol(x)) } else if (is_symbol(x))
new_slot_in_env(sc, x, y); new_slot_in_env(sc, x, y);
else { else {

2
tests/gpgscm/tests.scm
View File

@ -610,7 +610,7 @@
(seek logfd 0 SEEK_SET) (seek logfd 0 SEEK_SET)
(splice logfd STDERR_FILENO) (splice logfd STDERR_FILENO)
(close logfd)) (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 ;; Run the setup target to create an environment, then run all given
;; tests in parallel. ;; tests in parallel.