From 7d5a0ed792133d875fcedb6e23a9a3682f1a23f9 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Wed, 25 Jan 2017 15:39:30 +0100 Subject: tests,w32: Fix gpgsm signature verification test. * tests/gpgsm/verify.scm: Use 'call-with-binary-output-file' to avoid automatic line-ending conversion. -- Previously, Windows' automatic line-ending conversion turned '\n' into '\r\n' when writing the sample to a file, making the signature invalid. Signed-off-by: Justus Winter --- tests/gpgsm/verify.scm | 8 ++++---- 1 file 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)))))) -- cgit v1.2.3