diff options
Diffstat (limited to 'tests/gpgscm/main.c')
| -rw-r--r-- | tests/gpgscm/main.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/gpgscm/main.c b/tests/gpgscm/main.c index 34ebb9f83..9aef1f3fd 100644 --- a/tests/gpgscm/main.c +++ b/tests/gpgscm/main.c @@ -32,6 +32,7 @@ #include "private.h" #include "scheme.h" +#include "scheme-private.h" #include "ffi.h" #include "i18n.h" #include "../../common/argparse.h" @@ -176,6 +177,13 @@ load (scheme *sc, char *file_name, scheme_load_named_file (sc, h, qualified_name); fclose (h); + if (sc->retcode) + { + if (sc->nesting) + fprintf (stderr, "%s: Unbalanced parenthesis\n", qualified_name); + return gpg_error (GPG_ERR_GENERAL); + } + if (file_name != qualified_name) free (qualified_name); return 0; |