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 <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-01-25 15:39:30 +01:00
parent e175152ef7
commit 7d5a0ed792
1 changed files with 4 additions and 4 deletions

View File

@ -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))))))