Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

make optional-test and diff-test run without (chibi test)

Browse source 
Tested with gauche. It's mostly about not importing (chibi test)
unconditionally, and importing (scheme write). And in one case I need to
exclude some tests because gauche catches invalid call forms at compile
time. I'm not sure if that can be caught...
This commit is contained in:
Nguyễn Thái Ngọc Duy 2020-09-01 20:50:01 +07:00
parent e5cf364360
commit 65a1eba878
2 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/diff-test.sld
View file

@ -1,10 +1,11 @@
(define-library (chibi diff-test) (define-library (chibi diff-test)
(import (scheme base) (chibi diff) (chibi test)) (import (scheme base) (chibi diff))
(export run-tests) (export run-tests)
(cond-expand (cond-expand
(chibi (import (chibi test))) (chibi (import (chibi test)))
(else (else
(import (scheme write))
;; inline (chibi test) to avoid circular dependencies in snow ;; inline (chibi test) to avoid circular dependencies in snow
;; installations ;; installations
(begin (begin

14
lib/chibi/optional-test.sld
View file

@ -1,9 +1,10 @@
(define-library (chibi optional-test) (define-library (chibi optional-test)
(import (scheme base) (chibi optional) (chibi test)) (import (scheme base) (chibi optional))
(cond-expand (cond-expand
(chibi (import (chibi test))) (chibi (import (chibi test)))
(else (else
(import (scheme write))
;; inline (chibi test) to avoid circular dependencies in snow ;; inline (chibi test) to avoid circular dependencies in snow
;; installations ;; installations
(begin (begin
@ -52,13 +53,18 @@
(test '(0 1 (2 3 4)) (test '(0 1 (2 3 4))
(let-optionals '(0 1 2 3 4) ((a 10) (b 11) . c) (let-optionals '(0 1 2 3 4) ((a 10) (b 11) . c)
(list a b c))) (list a b c)))
(test-error '(0 11 12) (cond-expand
(gauche) ; gauche detects this at compile-time, can't catch
(else (test-error '(0 11 12)
((opt-lambda (a (b 11) (c 12)) ((opt-lambda (a (b 11) (c 12))
(list a b c)))) (list a b c))))))
(let () (let ()
(define-opt (f a (b 11) (c 12)) (define-opt (f a (b 11) (c 12))
(list a b c)) (list a b c))
(test-error (f)) (cond-expand
(gauche)
(else
(test-error (f))))
(test '(0 11 12) (f 0)) (test '(0 11 12) (f 0))
(test '(0 1 12) (f 0 1)) (test '(0 1 12) (f 0 1))
(test '(0 1 2) (f 0 1 2)) (test '(0 1 2) (f 0 1 2))