12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 |
- (use-modules (srfi srfi-64)
- (test utils))
- (test-begin "test-write")
- (define-syntax test-write
- (syntax-rules ()
- ((_ datum) (test-write (object->string datum) datum))
- ((_ expected-output datum)
- (test-write expected-output expected-output datum)
- )
- ((_ scheme-repr reflect-repr datum)
- (let ((output (string-append scheme-repr reflect-repr)))
- (test-call output
- (lambda ()
- (write datum (current-output-port))
- (flush-output-port (current-output-port))
- datum))))))
- (test-write #f)
- (test-write #t)
- (test-write #nil)
- (test-write '())
- (test-write (if #f #f))
- (let ((eof-object (lambda () the-eof-object)))
- (test-write (eof-object)))
- (test-write 42)
- (test-write -42)
- (test-write 42.0)
- (test-write -42.0)
- (test-write #\a)
- (test-write '(1 . 2))
- (test-write '(1 2))
- (test-write "foo")
- (test-write 'foo)
- (test-write #vu8())
- (test-write #vu8(1 2 3))
- (test-write #())
- (test-write #(1 2 3))
- (test-write #*)
- (test-write #*110110)
- (test-write "#<procedure>" (lambda () 42))
- (test-write #:foo)
- (test-end* "test-write")
|