tests,w32: Cope with Windows line endings.
authorJustus Winter <justus@g10code.com>
Thu, 20 Oct 2016 14:41:18 +0000 (16:41 +0200)
committerJustus Winter <justus@g10code.com>
Thu, 20 Oct 2016 15:01:23 +0000 (17:01 +0200)
* tests/openpgp/issue2015.scm: Rstrip line before comparison.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/openpgp/issue2015.scm

index 536cb8f..e51ece4 100755 (executable)
@@ -25,5 +25,6 @@
 
 (let ((response (call-popen `(,(tool 'gpg-connect-agent))
                            "GET_PASSPHRASE --no-ask some_id X X X")))
-  (unless (string=? response "OK 736F6D655F70617373706872617365\n")
+  (unless (string=? (string-rtrim char-whitespace? response)
+                   "OK 736F6D655F70617373706872617365")
          (error "Could not retrieve passphrase from cache:" response)))