Test output for symbol-utils [ok]

Testing time: 0s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null
(symbol->keyword 'foo) ............................................... [ PASS]
(unbound-value? (unbound-value)) ..................................... [ PASS]
(symbol-value symbol->keyword #f) .................................... [ PASS]
(unspecified? (unspecified-value)) ................................... [ PASS]
(symbol-printname=? 'foo 'foo) ....................................... [ PASS]
(not (symbol-printname=? 'foo 'bar)) ................................. [ PASS]
(symbol-printname=? '##sys#list->string '##sys#list->string) ......... [ PASS]
(not (symbol-printname=? '##sys#list->string 'list->string)) ......... [ PASS]
(not (symbol-printname<? 'foo 'foo)) ................................. [ PASS]
(symbol-printname<? 'bar 'foo) ....................................... [ PASS]
(not (symbol-printname<? '##sys#list->string '##sys#list->string)) ... [ PASS]
(symbol-printname<? 'list->string '##sys#list->string) ............... [ PASS]
(symbol-printname-length 'foo) ....................................... [ PASS]
(max-symbol-printname-length '(a abc ab)) ............................ [ PASS]
(make-qualified-symbol "foo" 'bar) ................................... [ PASS]
(qualified-symbol? '##sys#list->string) .............................. [ PASS]
(not (qualified-symbol? 'sym)) ....................................... [ PASS]
(symbol->qualified-string '##sys#list->string) ....................... [ PASS]
(symbol->qualified-string 'list->string) ............................. [ PASS]
(interned-symbol? 'foo) .............................................. [ PASS]
(not (interned-symbol? (gensym))) .................................... [ PASS]
(not (interned-symbol? (make-qualified-uninterned-symbol "bar" ... ... [ PASS]