diff options
| author | Justus Winter <[email protected]> | 2016-06-21 10:21:10 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-06-21 14:22:03 +0000 |
| commit | 65081c31e7536d8fb5effcc2c9aeeffc120c9a69 (patch) | |
| tree | 33e7708e1879a66a67754f25e6cc129684648e25 /tests/gpgscm/lib.scm | |
| parent | gpgscm: Use native string searching functions. (diff) | |
| download | gnupg-65081c31e7536d8fb5effcc2c9aeeffc120c9a69.tar.gz gnupg-65081c31e7536d8fb5effcc2c9aeeffc120c9a69.zip | |
gpgscm: Improve test framework.
* tests/gpgscm/lib.scm (echo): Move...
* tests/gpgscm/tests.scm (echo): ... here.
(info, error, skip): And use echo here.
(file-exists?): New function.
(tr:spawn): Check that source exists and if the sink has been created.
(tr:call-with-content): Hand in optional arguments.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/gpgscm/lib.scm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm index 48f53ea2f..e23977a5e 100644 --- a/tests/gpgscm/lib.scm +++ b/tests/gpgscm/lib.scm @@ -120,10 +120,6 @@ (assert (string-contains? "Hallo" "llo")) (assert (not (string-contains? "Hallo" "olla"))) -(define (echo . msg) - (for-each (lambda (x) (display x) (display " ")) msg) - (newline)) - ;; Read a word from port P. (define (read-word . p) (list->string |