lesson-lisp/tests/type_conv.scm

(begin
  ;;; number->string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (assert-equal "123"   (number->string 123))
  ;(assert-equal "-123"  (number->string -123))
  (assert-equal "1e240" (number->string 123456 16))

  ;;; string->symbol ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;(assert-equal '||  (string->symbol ""))
  ;(assert-equal '| | (string->symbol " "))
  (assert-equal 'foo (string->symbol "foo"))

  ;;; symbol->string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (assert-equal "foo" (symbol->string 'foo))
)