15 lines
531 B
Scheme
15 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))
|
||
|
|
)
|