14 lines
531 B
Scheme
14 lines
531 B
Scheme
(begin
|
|
(displayln "--- TEST: number->string ---------------------------------------")
|
|
(displayln (number->string 123))
|
|
;(displayln (number->string -123))
|
|
(displayln (number->string 123456 16))
|
|
(newline)
|
|
(displayln "--- TEST: string->symbol ---------------------------------------")
|
|
(displayln (string->symbol ""))
|
|
(displayln (string->symbol " "))
|
|
(displayln (string->symbol "foo"))
|
|
(newline)
|
|
(displayln "--- TEST: symbol->string ---------------------------------------")
|
|
(displayln (symbol->string 'foo))
|
|
)
|