security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +02:00
Code Activity

tests: Add tr:assert-same function.

Browse source 
* tests/gpgscm/tests.scm (tr:assert-same-string): New.
* tests/openpgp/shell.scm: Option to drop into a REPL.
This commit is contained in:
Werner Koch 2022-11-02 17:03:05 +01:00
parent bd612f2360
commit 9b24d8ab50
No known key found for this signature in database
GPG key ID: E3FDFF218E45B72B
3 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tests/gpgscm/tests.scm
View file

@ -493,6 +493,12 @@
(fail "mismatch"))
(list tmpfiles source #f)))
(define (tr:assert-same reference)
(lambda (tmpfiles source)
(if (not (string=? (call-with-input-file source read-all) reference))
(fail "mismatch"))
(list tmpfiles source #f)))
(define (tr:call-with-content function . args)
(lambda (tmpfiles source)
(catch (list tmpfiles source *error*)