diff options
| -rw-r--r-- | tests/gpgsm/verify.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/gpgsm/verify.scm b/tests/gpgsm/verify.scm index 894c8278a..28210a9a3 100644 --- a/tests/gpgsm/verify.scm +++ b/tests/gpgsm/verify.scm @@ -54,12 +54,12 @@ MYdRclgjObCcoilA8fZ13VR4DiMJVFCxJL4qVWI= ;; (info "Checking that a valid signature is verified as such.") (lettmp (sig body) - (with-output-to-file sig (lambda () (display test-sig1))) - (with-output-to-file body (lambda () (display test-text1))) + (call-with-binary-output-file sig (lambda (port) (display test-sig1 port))) + (call-with-binary-output-file body (lambda (port) (display test-text1 port))) (call-check `(,@gpgsm --verify ,sig ,body))) (info "Checking that an invalid signature is verified as such.") (lettmp (sig body) - (with-output-to-file sig (lambda () (display test-sig1))) - (with-output-to-file body (lambda () (display test-text1f))) + (call-with-binary-output-file sig (lambda (port) (display test-sig1 port))) + (call-with-binary-output-file body (lambda (port) (display test-text1f port))) (assert (not (zero? (call `(,@gpgsm --verify ,sig ,body)))))) |