120 lines
3.2 KiB
Scheme
120 lines
3.2 KiB
Scheme
(library (tests reader)
|
|
(export run-tests)
|
|
(import (ikarus) (tests framework))
|
|
|
|
(define t
|
|
(lambda (str)
|
|
(lambda (n?)
|
|
(and (number? n?)
|
|
(= (read (open-string-input-port str)) n?)))))
|
|
|
|
(define-syntax reader-tests
|
|
(syntax-rules ()
|
|
[(_ name str* ...)
|
|
(define-tests name
|
|
[(t str*) (string->number str*)] ...)]))
|
|
|
|
(reader-tests test-reader
|
|
"12"
|
|
"+12"
|
|
"3427384783264876238746784234"
|
|
"0"
|
|
"+0"
|
|
"-12"
|
|
"-3498738947983748939478347834"
|
|
"-0"
|
|
"#x-238973897AAAAAFFFFbb00bbdddcc"
|
|
"#x238973897AAAAA000FFFFbbbbdddcc"
|
|
"#x+07edf387"
|
|
"#x+0"
|
|
"#x-0"
|
|
"#x0"
|
|
"#b01010101010000000111111111110000"
|
|
"#b-01010101010000000111111111110000"
|
|
"#b+01010101010000000111111111110000"
|
|
"#b+0"
|
|
"#b-0"
|
|
"#b0"
|
|
"#d2398128321308912830912830912839"
|
|
"#d-2398128321308912830912830912839"
|
|
"#d+2398128321308912830912830912839"
|
|
"#d+0"
|
|
"#d-0"
|
|
"#d0"
|
|
"#o237612036721631263126371263712"
|
|
"#o-2376120036721631263126371263712"
|
|
"#o+23761236721631263126371263712"
|
|
"#o+0"
|
|
"#o-0"
|
|
"#o0"
|
|
|
|
"#X-238973897AAAAAFFFFbb00bbdddcc"
|
|
"#X238973897AAAAA000FFFFbbbbdddcc"
|
|
"#X+07edf387"
|
|
"#X+0"
|
|
"#X-0"
|
|
"#X0"
|
|
"#B01010101010000000111111111110000"
|
|
"#B-01010101010000000111111111110000"
|
|
"#B+01010101010000000111111111110000"
|
|
"#B+0"
|
|
"#B-0"
|
|
"#B0"
|
|
"#D2398128321308912830912830912839"
|
|
"#D-2398128321308912830912830912839"
|
|
"#D+2398128321308912830912830912839"
|
|
"#D+0"
|
|
"#D-0"
|
|
"#D0"
|
|
"#O237612036721631263126371263712"
|
|
"#O-2376120036721631263126371263712"
|
|
"#O+23761236721631263126371263712"
|
|
"#O+0"
|
|
"#O-0"
|
|
"#O0")
|
|
|
|
(define-tests test-char-syntax
|
|
[(lambda (x) (= (char->integer x) #x0))
|
|
(read (open-string-input-port "#\\nul"))]
|
|
[(lambda (x) (= (char->integer x) #x7))
|
|
(read (open-string-input-port "#\\alarm"))]
|
|
[(lambda (x) (= (char->integer x) #x8))
|
|
(read (open-string-input-port "#\\backspace"))]
|
|
[(lambda (x) (= (char->integer x) #x9))
|
|
(read (open-string-input-port "#\\tab"))]
|
|
[(lambda (x) (= (char->integer x) #xA))
|
|
(read (open-string-input-port "#\\linefeed"))]
|
|
[(lambda (x) (= (char->integer x) #xA))
|
|
(read (open-string-input-port "#\\newline"))]
|
|
[(lambda (x) (= (char->integer x) #xB))
|
|
(read (open-string-input-port "#\\vtab"))]
|
|
[(lambda (x) (= (char->integer x) #xC))
|
|
(read (open-string-input-port "#\\page"))]
|
|
[(lambda (x) (= (char->integer x) #xD))
|
|
(read (open-string-input-port "#\\return"))]
|
|
[(lambda (x) (= (char->integer x) #x1B))
|
|
(read (open-string-input-port "#\\esc"))]
|
|
[(lambda (x) (= (char->integer x) #x20))
|
|
(read (open-string-input-port "#\\space"))]
|
|
[(lambda (x) (= (char->integer x) #x7F))
|
|
(read (open-string-input-port "#\\delete"))])
|
|
|
|
|
|
(define (run-tests)
|
|
(define (rw? x1)
|
|
(let ([str (let-values ([(p e) (open-string-output-port)])
|
|
(write x1 p)
|
|
(e))])
|
|
(let ([x2 (read (open-string-input-port str))])
|
|
(equal? x1 x2))))
|
|
(assert (rw? " \x85; "))
|
|
(assert (rw? " \x2028; "))
|
|
|
|
(test-char-syntax)
|
|
(test-reader))
|
|
|
|
|
|
)
|
|
|
|
|