From 0a66781eee68efe71437ac0116172c873351eede Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 21 Dec 2013 00:09:51 +0100 Subject: build: Adjust pk-crypto tests to Libgcrypt 1.5.3. Reported by Andreas Enge . * tests/pk-crypto.scm ("string->gcry-sexp->string"): Remove "#C0FFEE#" from SEXPS. ("gcry-sexp-nth"): Start at index 1. --- tests/pk-crypto.scm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'tests/pk-crypto.scm') diff --git a/tests/pk-crypto.scm b/tests/pk-crypto.scm index 7c54e729ad..eddd5c4945 100644 --- a/tests/pk-crypto.scm +++ b/tests/pk-crypto.scm @@ -50,7 +50,12 @@ (test-begin "pk-crypto") -(let ((sexps '("(foo bar)" "#C0FFEE#" +(let ((sexps '("(foo bar)" + + ;; In Libgcrypt 1.5.3 the following integer is rendered as + ;; binary, whereas in 1.6.0 it's rendered as is (hexadecimal.) + ;;"#C0FFEE#" + "(genkey \n (rsa \n (nbits \"1024\")\n )\n )"))) (test-equal "string->gcry-sexp->string" sexps @@ -88,14 +93,17 @@ (gc) (test-equal "gcry-sexp-nth" - '(#f "(b pqr)" "(c \"456\")" "(d xyz)" #f #f) + '("(b pqr)" "(c \"456\")" "(d xyz)" #f #f) + (let ((lst (string->gcry-sexp "(a (b 3:pqr) (c 3:456) (d 3:xyz))"))) + ;; XXX: In Libgcrypt 1.5.3, (gcry-sexp-nth lst 0) returns LST, whereas in + ;; 1.6.0 it returns #f. (map (lambda (sexp) (and sexp (string-trim-both (gcry-sexp->string sexp)))) (unfold (cut > <> 5) (cut gcry-sexp-nth lst <>) 1+ - 0)))) + 1)))) (gc) -- cgit v1.2.3