[Pkg-gnupg-commit] [gnupg2] 90/132: gpgscm: Fix test.

[Daniel Kahn Gillmor]

This is an automated email from the git hooks/post-receive script.

dkg pushed a commit to branch experimental
in repository gnupg2.

commit 9ae63b9caefdf3e925c5928667fcd9227132d27f
Author: Justus Winter <justus at g10code.com>
Date:   Thu Apr 20 17:32:25 2017 +0200

    gpgscm: Fix test.
    
    * tests/gpgscm/t-child.scm: Use 'string-length' on the string.
    
    Signed-off-by: Justus Winter <justus at g10code.com>
---
 tests/gpgscm/t-child.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/gpgscm/t-child.scm b/tests/gpgscm/t-child.scm
index 93208f4..fd1dcc3 100644
--- a/tests/gpgscm/t-child.scm
+++ b/tests/gpgscm/t-child.scm
@@ -107,12 +107,12 @@
   (pipe:spawn `(,child stdout4096))
   (pipe:spawn `(,child cat)))
  (tr:call-with-content (lambda (c)
-			 (assert (= 4096 (length c))))))
+			 (assert (= 4096 (string-length c))))))
 (tr:do
  (tr:pipe-do
   (pipe:spawn `(,child stdout8192))
   (pipe:spawn `(,child cat)))
  (tr:call-with-content (lambda (c)
-			 (assert (= 8192 (length c))))))
+			 (assert (= 8192 (string-length c))))))
 
 (echo "All good.")

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-gnupg/gnupg2.git