mirror of git://git.gnupg.org/gnupg.git
gpgscm: Fix test.
* tests/gpgscm/t-child.scm: Use 'string-length' on the string. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
4aab0e6ac7
commit
9ae63b9cae
|
@ -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.")
|
||||
|
|
Loading…
Reference in New Issue