mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
4e5cdedc03
By convention, a library meant for testing exports "run-tests". Also by convention, assume the test for (foo bar) is (foo bar-test), keeping the test in the same directory and avoiding confusion since (chibi test) is not a test for (chibi). - Avoids the hack of "load"ing test, with resulting namespace complications. - Allows keeping tests together with the libraries. - Allows setting up test hooks before running. - Allows implicit inference of test locations when using above conventions.
45 lines
2 KiB
Scheme
45 lines
2 KiB
Scheme
(define-library (srfi 2 test)
|
|
(export run-tests)
|
|
(import (chibi) (srfi 2) (chibi test))
|
|
(begin
|
|
(define (run-tests)
|
|
(test-begin "srfi-2: and-let*")
|
|
(test 1 (and-let* () 1))
|
|
(test 2 (and-let* () 1 2))
|
|
(test #t (and-let* () ))
|
|
(test #f (let ((x #f)) (and-let* (x))))
|
|
(test 1 (let ((x 1)) (and-let* (x))))
|
|
(test #f (and-let* ((x #f)) ))
|
|
(test 1 (and-let* ((x 1)) ))
|
|
;; (test-syntax-error (and-let* ( #f (x 1))))
|
|
(test #f (and-let* ( (#f) (x 1)) ))
|
|
;; (test-syntax-error (and-let* (2 (x 1))))
|
|
(test 1 (and-let* ( (2) (x 1)) ))
|
|
(test 2 (and-let* ( (x 1) (2)) ))
|
|
(test #f (let ((x #f)) (and-let* (x) x)))
|
|
(test "" (let ((x "")) (and-let* (x) x)))
|
|
(test "" (let ((x "")) (and-let* (x) )))
|
|
(test 2 (let ((x 1)) (and-let* (x) (+ x 1))))
|
|
(test #f (let ((x #f)) (and-let* (x) (+ x 1))))
|
|
(test 2 (let ((x 1)) (and-let* (((positive? x))) (+ x 1))))
|
|
(test #t (let ((x 1)) (and-let* (((positive? x))) )))
|
|
(test #f (let ((x 0)) (and-let* (((positive? x))) (+ x 1))))
|
|
(test 3 (let ((x 1)) (and-let* (((positive? x)) (x (+ x 1))) (+ x 1))))
|
|
(test 4
|
|
(let ((x 1))
|
|
(and-let* (((positive? x)) (x (+ x 1)) (x (+ x 1))) (+ x 1))))
|
|
(test 2 (let ((x 1)) (and-let* (x ((positive? x))) (+ x 1))))
|
|
(test 2 (let ((x 1)) (and-let* ( ((begin x)) ((positive? x))) (+ x 1))))
|
|
(test #f (let ((x 0)) (and-let* (x ((positive? x))) (+ x 1))))
|
|
(test #f (let ((x #f)) (and-let* (x ((positive? x))) (+ x 1))))
|
|
(test #f (let ((x #f)) (and-let* ( ((begin x)) ((positive? x))) (+ x 1))))
|
|
|
|
(test #f
|
|
(let ((x 1)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))))
|
|
(test #f
|
|
(let ((x 0)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))))
|
|
(test #f
|
|
(let ((x #f)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))))
|
|
(test 3/2
|
|
(let ((x 3)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))))
|
|
(test-end))))
|