diff options
Diffstat (limited to 'tests/gpgscm/tests.scm')
| -rw-r--r-- | tests/gpgscm/tests.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index eb278e301..cebe419f8 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -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*) |