12 lines
424 B
Plaintext
12 lines
424 B
Plaintext
(assert (= (->string 1234) "1234"))
|
|
(assert (= (->string '(1 2)) "(1 2)"))
|
|
(assert (= (->string #t) "#T"))
|
|
|
|
(assert (= 1234 (string->number "1234")))
|
|
(assert (= -1234 (string->number "-1234")))
|
|
(assert (= 0x1234 (string->number "1234" 16)))
|
|
(assert (= 0o1234 (string->number "1234" 8)))
|
|
(assert (= (/ 1 2) (string->number "0.5")))
|
|
(assert (= (/ -1 2) (string->number "-0.5")))
|
|
(assert (= (/ -1 2) (string->number "-5e-1")))
|