Test output for symbol-utils [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/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]