105 lines
2.7 KiB
Scheme
105 lines
2.7 KiB
Scheme
#!r6rs
|
|
|
|
(library (tests r6rs reader)
|
|
(export run-reader-tests)
|
|
(import (rnrs)
|
|
(tests r6rs test))
|
|
|
|
(define-syntax number-test
|
|
(syntax-rules ()
|
|
[(_ str ...)
|
|
(begin
|
|
(test (read (open-string-input-port str))
|
|
(string->number str))
|
|
...)]))
|
|
|
|
(define (run-reader-tests)
|
|
(number-test
|
|
"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"
|
|
"#i#xf/e"
|
|
"#x#if/e")
|
|
|
|
(test (read (open-string-input-port "#\\nul"))
|
|
(integer->char #x0))
|
|
(test (read (open-string-input-port "#\\alarm"))
|
|
(integer->char #x7))
|
|
(test (read (open-string-input-port "#\\backspace"))
|
|
(integer->char #x8))
|
|
(test (read (open-string-input-port "#\\tab"))
|
|
(integer->char #x9))
|
|
(test (read (open-string-input-port "#\\linefeed"))
|
|
(integer->char #xA))
|
|
(test (read (open-string-input-port "#\\newline"))
|
|
(integer->char #xA))
|
|
(test (read (open-string-input-port "#\\vtab"))
|
|
(integer->char #xB))
|
|
(test (read (open-string-input-port "#\\page"))
|
|
(integer->char #xC))
|
|
(test (read (open-string-input-port "#\\return"))
|
|
(integer->char #xD))
|
|
(test (read (open-string-input-port "#\\esc"))
|
|
(integer->char #x1B))
|
|
(test (read (open-string-input-port "#\\space"))
|
|
(integer->char #x20))
|
|
(test (read (open-string-input-port "#\\delete"))
|
|
(integer->char #x7F))
|
|
|
|
;;
|
|
))
|