summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtyom V. Poptsov <poptsov.artyom@gmail.com>2016-07-03 22:44:33 +0400
committerArtyom V. Poptsov <poptsov.artyom@gmail.com>2016-07-03 22:44:33 +0400
commitd8b084a291279c444f7076964e778abc9fceca8e (patch)
tree9d0945cc20078eac0b4f4858836fccda36fff81b
parentmodules/srfi: Compile SRFI-64 module (diff)
downloadguile-ssh-d8b084a291279c444f7076964e778abc9fceca8e.tar.gz
tests/common.scm (test-error-with-log): Bugfix
* tests/common.scm (test-error-with-log): Bugfix: Call 'test-error-with-log/handler' properly, with the test name as the 1st parameter.
-rw-r--r--tests/common.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/common.scm b/tests/common.scm
index a778b65..b8d5514 100644
--- a/tests/common.scm
+++ b/tests/common.scm
@@ -116,7 +116,7 @@
(define-syntax test-error-with-log
(syntax-rules ()
((_ name error expr)
- (test-error-with-log/handler error expr (const #t)))
+ (test-error-with-log/handler name error expr (const #t)))
((_ name expr)
(test-error-with-log/handler name expr (const #t)))))