diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-06-12 23:37:45 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-06-12 23:37:45 +0400 |
| commit | 3b6f419ce7fb72706600234832f451690f353de7 (patch) | |
| tree | 064af88aa0e03ceb0c98f923d96b3d0320f6b887 /tests | |
| parent | tests/common.scm (test-error-with-log): New macro (diff) | |
| download | guile-ssh-3b6f419ce7fb72706600234832f451690f353de7.tar.gz | |
tests/common.scm (test-error-with-log): Bugfix
* tests/common.scm (test-error-with-log): Bugfix: Handle 2nd syntax rule
properly.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/common.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/common.scm b/tests/common.scm index 9a476aa..b6322d0 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -91,15 +91,15 @@ (define-syntax test-error-with-log (syntax-rules () - ((_ name error body ...) + ((_ name error expr) (test-assert-with-log name (catch error - (lambda () body ... #f) + (lambda () expr #f) (const #t)))) - ((_ name body ...) + ((_ name expr) (test-assert-with-log name (catch #t - (lambda () body ... #f) + (lambda () expr #f) (const #t)))))) (define (start-session-loop session body) |