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/impl.scm | |
| 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 'tests/impl.scm')
| -rw-r--r-- | tests/impl.scm | 6 |
1 files changed, 3 insertions, 3 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)))) |