Test output for tagged-netstring [ok]
Testing time: 0s
/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null reading strings ...................................................... [ PASS] wrting strings ....................................................... [ PASS] -- testing integers ---------------------------------------------------------- 42 ................................................................... [ PASS] 2:42# ................................................................ [ PASS] (with-input-from-string "3:xxx#" tagged-netstring-read) .............. [ PASS] 3 tests completed in 0.001 seconds. 3 out of 3 (100%) tests passed. -- done testing integers ----------------------------------------------------- -- testing booleans ---------------------------------------------------------- #t ................................................................... [ PASS] 4:true! .............................................................. [ PASS] #f ................................................................... [ PASS] 5:false! ............................................................. [ PASS] (with-input-from-string "2:no!" tagged-netstring-read) ............... [ PASS] 5 tests completed in 0.0 seconds. 5 out of 5 (100%) tests passed. -- done testing booleans ----------------------------------------------------- -- testing lists ------------------------------------------------------------- #() .................................................................. [ PASS] 0:] .................................................................. [ PASS] #(x) ................................................................. [ PASS] 4:1:x,] .............................................................. [ PASS] #(foo #(bar baz) qux) ................................................ [ PASS] 28:3:foo,12:3:bar,3:baz,]3:qux,] ..................................... [ PASS] (with-input-from-string "10:foo]" tagged-netstring-read) ............. [ PASS] 7 tests completed in 0.001 seconds. 7 out of 7 (100%) tests passed. -- done testing lists -------------------------------------------------------- -- testing dicts ------------------------------------------------------------- () ................................................................... [ PASS] 0:} .................................................................. [ PASS] ((foo (bar . 123))) .................................................. [ PASS] 22:3:foo,12:3:bar,3:123#}} ........................................... [ PASS] (with-input-from-string "12:3:123#3:foo,}" tagged-netstring-read) .... [ PASS] 5 tests completed in 0.001 seconds. 5 out of 5 (100%) tests passed. -- done testing dicts --------------------------------------------------------