Test output for edn [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

Warning: Documentation not generated: unbound variable

This may be because hahn-utils is not installed. Hahn-utils is an
optional egg for generating documentation and installation will
succeed without it.

Writing EDN

(parse-entry keyword:) => ":keyword" ; correct

(parse-entry #t) => "true" ; correct

(parse-entry #f) => "false" ; correct

(parse-entry (quote ())) => "nil" ; correct

(parse-entry #\a) => "\\a" ; correct

(parse-entry "String") => "\"String\"" ; correct

(parse-entry (cons edn/reader-tag: neat:)) => "#neat" ; correct

(list->edn parse-entry (quote (1 2 3 4))) => "(1 2 3 4)" ; correct

(vector->edn parse-entry #(a: b: c: d:)) => "[:a :b :c :d]" ; correct

(parse-entry (quote ((a: . "Hi") (b: . i-am:) (c: a list)))) => "{:a \"Hi\" :b :i-am :c (a list)}" ; correct

Reading EDN

(wifs "(:keyword)" read-edn) => (keyword:) ; correct

(wifs "(123)" read-edn) => (123) ; correct

(wifs "(\"Hello World!\")" read-edn) => ("Hello World!") ; correct

(wifs "(false)" read-edn) => (#f) ; correct

(wifs "(true)" read-edn) => (#t) ; correct

(wifs "(:Hello \"World\" 1)" read-edn) => (Hello: "World" 1) ; correct

(wifs "[:a :b :c :d]" read-edn) => #(a: b: c: d:) ; correct

(wifs "{:a \"Hi\" :b :i-am :c (a list)}" read-edn) => #<hash-table (3)> ; correct

Tag handling

(wifs "(1 2 #_ 3 4)" read-edn) => (1 2 4) ; correct

(wifs "(asdf #keywordify qwertz)" read-edn) => Being called with qwertz
(asdf qwertz:) ; correct