security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-01-18 14:17:03 +01:00
Code Activity

gpgscm: Fix test.

Browse Source 
* tests/gpgscm/t-child.scm: Use 'string-length' on the string.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-04-20 17:32:25 +02:00
parent 4aab0e6ac7
commit 9ae63b9cae
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/gpgscm/t-child.scm
View File

@ -107,12 +107,12 @@
(pipe:spawn `(,child stdout4096)) (pipe:spawn `(,child stdout4096))
(pipe:spawn `(,child cat))) (pipe:spawn `(,child cat)))
(tr:call-with-content (lambda (c) (tr:call-with-content (lambda (c)
(assert (= 4096 (length c)))))) (assert (= 4096 (string-length c))))))
(tr:do (tr:do
(tr:pipe-do (tr:pipe-do
(pipe:spawn `(,child stdout8192)) (pipe:spawn `(,child stdout8192))
(pipe:spawn `(,child cat))) (pipe:spawn `(,child cat)))
(tr:call-with-content (lambda (c) (tr:call-with-content (lambda (c)
(assert (= 8192 (length c)))))) (assert (= 8192 (string-length c))))))
(echo "All good.") (echo "All good.")