* testsuite/sexp-test.c (test_main): Test sexp_iterator_get_uint32.

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

diff --git a/testsuite/sexp-test.c b/testsuite/sexp-test.c
index cd18ed48942d16bfd0ed4de80728e1fd7ed2557b..4e68f56908498f508889d9e686f806bea0b2a8da 100644 (file)
--- a/testsuite/sexp-test.c
+++ b/testsuite/sexp-test.c
@@ -5,7 +5,8 @@ int
 test_main(void)
 {
   struct sexp_iterator i;
-
+  uint32_t x;
+  
   ASSERT(sexp_iterator_first(&i, LDATA("")));
   ASSERT(i.type == SEXP_END);
 
@@ -20,6 +21,18 @@ test_main(void)
   ASSERT(i.type == SEXP_LIST
         && !sexp_iterator_enter_list(&i));
 
+  /* Check integers. */
+  ASSERT(sexp_iterator_first(&i, LDATA("1:\0"
+                                      "1:\x11"
+                                      "2:\x00\x11"
+                                      "2:\x00\x80"
+                                      "5:\x00\xaa\xbb\xcc\xdd")));
+  ASSERT(sexp_iterator_get_uint32(&i, &x) && x == 0);
+  ASSERT(sexp_iterator_get_uint32(&i, &x) && x == 0x11);
+  ASSERT(sexp_iterator_get_uint32(&i, &x) && x == 0x11);
+  ASSERT(sexp_iterator_get_uint32(&i, &x) && x == 0x80);
+  ASSERT(sexp_iterator_get_uint32(&i, &x) && x == 0xaabbccdd);
+  
   ASSERT(sexp_iterator_first(&i, LDATA("3:foo0:[3:bar]12:xxxxxxxxxxxx")));
   ASSERT(i.type == SEXP_ATOM
         && !i.display_length && !i.display