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

fix inlined (chibi test) lite

Browse source
This commit is contained in:
Alex Shinn 2020-09-01 10:59:25 +09:00
parent 217baeeb57
commit f6bd8b6266
2 changed files with 42 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5,9 +5,25 @@
(cond-expand (cond-expand
(chibi (import (chibi test))) (chibi (import (chibi test)))
(else (else
;; avoid cyclic test deps in snow ;; inline (chibi test) to avoid circular dependencies in snow
(import (srfi 64)) ;; installations
(begin (define test test-equal)))) (define-syntax test
(syntax-rules ()
((test expect expr)
(test 'expr expect expr))
((test name expect expr)
(guard (exn (else (display "!\nERROR: ") (write name) (newline)
(write exn) (newline)))
(let* ((res expr)
(pass? (equal? expect expr)))
(display (if pass? "." "x"))
(cond
((not pass?)
(display "\nFAIL: ") (write name) (newline))))))))
(define (test-begin name)
(display name))
(define (test-end)
(newline))))
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "diff") (test-begin "diff")

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

@ -4,9 +4,29 @@
(cond-expand (cond-expand
(chibi (import (chibi test))) (chibi (import (chibi test)))
(else (else
;; avoid cyclic test deps in snow ;; inline (chibi test) to avoid circular dependencies in snow
(import (srfi 64)) ;; installations
(begin (define test test-equal)))) (define-syntax test
(syntax-rules ()
((test expect expr)
(test 'expr expect expr))
((test name expect expr)
(guard (exn (else (display "!\nERROR: ") (write name) (newline)
(write exn) (newline)))
(let* ((res expr)
(pass? (equal? expect expr)))
(display (if pass? "." "x"))
(cond
((not pass?)
(display "\nFAIL: ") (write name) (newline))))))))
(define-syntax test-error
(syntax-rules ()
((test-error expr)
(test-assert (guard (exn (else #t)) expr #f)))))
(define (test-begin name)
(display name))
(define (test-end)
(newline))))
(export run-tests) (export run-tests)
(begin (begin
(define (run-tests) (define (run-tests)