* sexp.c (sexp_iterator_assoc): Advance the iterator to the

element after a matching tag, before recording it.
* testsuite/sexp-test.c (test_main): Updated test.

Rev: src/nettle/testsuite/sexp-test.c:1.8

diff --git a/testsuite/sexp-test.c b/testsuite/sexp-test.c
index 42f28062a7635e550eba8a98184374c8c705b98c..ab08be5be9ed64c8742844734b51598d7d800d12 100644 (file)
--- a/testsuite/sexp-test.c
+++ b/testsuite/sexp-test.c
@@ -41,7 +41,7 @@ test_main(void)
     ASSERT(sexp_iterator_enter_list(&i)
           && sexp_iterator_assoc(&i, 2, keys, v));
 
-    ASSERT(sexp_iterator_next(&v[0]) && v[0].type == SEXP_ATOM
+    ASSERT(v[0].type == SEXP_ATOM
           && !v[0].display_length && !v[0].display
           && v[0].atom_length == 2 && MEMEQ(2, "xx", v[0].atom)
 
@@ -51,7 +51,7 @@ test_main(void)
 
           && sexp_iterator_next(&v[0]) && v[0].type == SEXP_END);
 
-    ASSERT(sexp_iterator_next(&v[1]) && v[1].type == SEXP_END);
+    ASSERT(v[1].type == SEXP_END);
 
     ASSERT(sexp_iterator_first(&i, LDATA("((1:n))")));
     ASSERT(sexp_iterator_enter_list(&i)