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 /lib/cuprate.sld | |
| 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 'lib/cuprate.sld')
| -rw-r--r-- | lib/cuprate.sld | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lib/cuprate.sld b/lib/cuprate.sld index 41847ed..abd1bc1 100644 --- a/lib/cuprate.sld +++ b/lib/cuprate.sld @@ -20,7 +20,8 @@ default-on-exception-in-group ;; SRFI-64 style assertions call-as-test call-as-group - test-application test-body + define-test-application test-predicate test-binary + test-named-application test-application test-body define-test-application test-equal test-eqv test-eq test-approximate test-error expect-to-fail @@ -35,16 +36,16 @@ test-info? (dict unwrap-test-info set-test-info!)) (define assertion-violation error)) + (cond-expand + ((or foment chicken-5) (include "cuprate.simple-define-test-application.scm")) + (else (include "cuprate.define-test-application.scm"))) ;; Pretty printing (cond-expand (chicken (import (only (chicken pretty-print) pretty-print))) - (foment (import (srfi 166)) - (begin (define (pretty-print obj) - (show #t (pretty obj)) - (newline)))) - (chibi (import (srfi 166)) - (begin (define (pretty-print obj) - (show #t (pretty obj))))) + ((or foment chibi) (import (srfi 166)) + (begin (define (pretty-print obj) + (show #t (pretty obj)) + (newline)))) (gauche (import (scheme show)) (begin (define (pretty-print obj) (show #t (pretty obj))))) |