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

Adding srfi-38 read/write tests.

Browse source
This commit is contained in:
Alex Shinn 2011-12-04 16:26:56 +09:00
parent f61204d5e1
commit 86fe354c43
1 changed files with 74 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

74
tests/srfi-38-tests.scm Normal file
View file

@ -0,0 +1,74 @@
(cond-expand
(chibi (import (scheme) (chibi test) (srfi 38)))
(chicken (use chicken test srfi-38)))
(test-begin "read/write")
(define (read-from-string str)
(call-with-input-string str
(lambda (in) (read/ss in))))
(define (write-to-string x)
(call-with-output-string
(lambda (out) (write/ss x out))))
(define-syntax test-io
(syntax-rules ()
((test-io str-expr expr)
(let ((str str-expr)
(value expr))
(test str (write-to-string value))
(test str (write-to-string (read-from-string str)))))))
(define (circular-list . args)
(let ((res (map (lambda (x) x) args)))
(set-cdr! (list-tail res (- (length res) 1)) res)
res))
(test-io "(1)" (list 1))
(test-io "(1 2)" (list 1 2))
(test-io "(1 . 2)" (cons 1 2))
(test-io "#0=(1 . #0#)" (circular-list 1))
(test-io "#0=(1 2 . #0#)" (circular-list 1 2))
(test-io "(1 . #0=(2 . #0#))" (cons 1 (circular-list 2)))
(test-io "#0=(1 #0# 3)"
(let ((x (list 1 2 3))) (set-car! (cdr x) x) x))
(test-io "(#0=(1 #0# 3))"
(let ((x (list 1 2 3))) (set-car! (cdr x) x) (list x)))
(test-io "(#0=(1 #0# 3) #0#)"
(let ((x (list 1 2 3))) (set-car! (cdr x) x) (list x x)))
(test-io "(#0=(1 . #0#) #1=(1 . #1#))"
(list (circular-list 1) (circular-list 1)))
(test-io "(#0=(1 . 2) #1=(1 . 2) #2=(3 . 4) #0# #1# #2#)"
(let ((a (cons 1 2)) (b (cons 1 2)) (c (cons 3 4)))
(list a b c a b c)))
(test-io "#0=#(#0#)"
(let ((x (vector 1))) (vector-set! x 0 x) x))
(test-io "#0=#(1 #0#)"
(let ((x (vector 1 2))) (vector-set! x 1 x) x))
(test-io "#0=#(1 #0# 3)"
(let ((x (vector 1 2 3))) (vector-set! x 1 x) x))
(test-io "(#0=#(1 #0# 3))"
(let ((x (vector 1 2 3))) (vector-set! x 1 x) (list x)))
(test-io "#0=#(#0# 2 #0#)"
(let ((x (vector 1 2 3)))
(vector-set! x 0 x)
(vector-set! x 2 x)
x))
(cond-expand
(chicken
(test-io "(#0=\"abc\" #0# #0#)"
(let ((str (string #\a #\b #\c))) (list str str str)))
(test "(\"abc\" \"abc\" \"abc\")"
(let ((str (string #\a #\b #\c)))
(call-with-output-string
(lambda (out)
(write/ss (list str str str) out ignore-strings: #t))))))
(else
))
(test-end)