mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
24 lines
673 B
Scheme
24 lines
673 B
Scheme
|
|
(define-library (srfi 229 test)
|
|
(import (scheme base) (srfi 229) (chibi test))
|
|
(export run-tests)
|
|
(begin
|
|
(define (run-tests . o)
|
|
(test-begin "(srfi 229)")
|
|
(let ()
|
|
(define f
|
|
(lambda/tag 42
|
|
(x)
|
|
(* x x)))
|
|
(define f*
|
|
(lambda/tag 43
|
|
(x)
|
|
(* x x)))
|
|
(test-assert (procedure/tag? f))
|
|
(test-not (procedure/tag? (lambda (x) (* x x))))
|
|
(test-not (procedure/tag? +))
|
|
(test 9 (f 3))
|
|
(test 42 (procedure-tag f))
|
|
(test-not (eqv? f f*))
|
|
(test 43 (procedure-tag f*)))
|
|
(test-end))))
|