diff options
| author |  Peter McGoron
| 2025-11-02 13:06:51 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-11-02 13:06:51 -0500 |
| commit | 4359571add4124b304b74e10f27dd567d0a82774 (patch) | |
| tree | 84744c1d67d820e63718d0d938716d116ecd6cb5 /tests | |
| parent | make macro generators, test on chibi. Currently broken in CHICKEN-5 due to a ... (diff) | |
add hack to support foment and CHICKEN 5.3.0
Diffstat (limited to '')
| -rw-r--r-- | tests/impl.scm | 6 | ||||
| -rw-r--r-- | tests/run.scm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/tests/impl.scm b/tests/impl.scm index 840d590..6e15c11 100644 --- a/tests/impl.scm +++ b/tests/impl.scm @@ -307,17 +307,17 @@ (test-equal "inner name stack" '("gr2" "gr1") (dict-ref (test-dto) inner-dict 'name-stack)))) -(test-group "test application" +(test-group "test named application" (test-body "true" (define dict (parameterize ((test-info silent-dict)) - (test-application "not" (not not) (arg #f)) + (test-named-application "not" (not not) (arg #f)) (test-info-dict))) (eqv? 1 (dict-ref (test-dto) dict 'passed))) (test-body "false" (define dict (parameterize ((test-info silent-dict)) - (test-application "not" (not not) (arg #t)) + (test-named-application "not" (not not) (arg #t)) (test-info-dict))) (eqv? 1 (dict-ref (test-dto) dict 'failed)))) diff --git a/tests/run.scm b/tests/run.scm index 2c0d342..7f28673 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -3,5 +3,5 @@ (else)) (import (cuprate) (srfi 225) (cuprate rewriters)) -(parameterize ((test-info (test-set 'verbose? #t))) - (include "impl.scm")) + (include "impl.scm") + |