ref: 476b3ea3a5d3791c51daa633b800ec0c76435a33
dir: /tests/symbol.zuo/
#lang zuo (require "harness.zuo") (alert "symbols") (check (symbol? 'apple)) (check (symbol? (string->uninterned-symbol "apple"))) (check (not (symbol? "apple"))) (check (not (symbol? 10))) (check (symbol->string 'apple) "apple") (check-arg-fail (symbol->string "apple") "not a symbol") (check (eq? 'apple (string->symbol "apple"))) (check (not (eq? 'apple (string->uninterned-symbol "apple")))) (check (not (eq? (string->uninterned-symbol "apple") (string->uninterned-symbol "apple")))) (check (not (equal? 'apple (string->uninterned-symbol "apple")))) (check-arg-fail (string->symbol 'apple) not-string) (check-arg-fail (string->uninterned-symbol 'apple) not-string)