From 439979b10a52663d1c32b40524c7b2987fb5b2e5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Niels=20M=C3=B6ller?= <nisse@lysator.liu.se>
Date: Fri, 15 Nov 2002 09:14:00 +0100
Subject: [PATCH] * testsuite/sexp-test.c (test_main): Test
 sexp_iterator_get_uint32.

Rev: src/nettle/testsuite/sexp-test.c:1.10
---
 testsuite/sexp-test.c | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/testsuite/sexp-test.c b/testsuite/sexp-test.c
index cd18ed48..4e68f569 100644
--- 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
-- 
GitLab