diff options
| author |  Peter McGoron
| 2025-09-21 23:57:14 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-09-21 23:57:14 -0400 |
| commit | 65156de526ff7b1e9dd93bba43084a2654f63b0f (patch) | |
| tree | d3d5b550560aac6923739a6967dccc3538a25d49 /lib/conspire.scm | |
| parent | replace with-test-assert with test-assert for better compat with SRFI-64 (diff) | |
test-application: add forms as they are evaluated, and only store the whole evaluated expression quoted
Diffstat (limited to 'lib/conspire.scm')
| -rw-r--r-- | lib/conspire.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/conspire.scm b/lib/conspire.scm index b02c9ce..7d8bfcd 100644 --- a/lib/conspire.scm +++ b/lib/conspire.scm @@ -327,9 +327,11 @@ (syntax-rules () ((test-application test-name (name expr) ...) (call-as-test test-name (lambda () - (test-set! (quote name) (quote expr)) ... - (let ((name expr) ...) - (test-set! 'application (list name ...)) + (test-set! 'form (quote (expr ...))) + (let ((name (let ((tmp expr)) + (test-set! (quote name) tmp) + tmp)) + ...) (test-set! 'success? (name ...)))))))) (define-syntax test-assert |