Test output for netstring [ok]

Testing time: 1s

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

-- testing  ------------------------------------------------------------------
(string->netstring "hello, world") ................................... [ PASS]
(string->netstring "") ............................................... [ PASS]
(netstring->string "12:hello, world,") ............................... [ PASS]
(netstring->string "0:,") ............................................ [ PASS]
(with-output-to-string (lambda () (netstring-write "foo"))) .......... [ PASS]
(with-input-from-string "3:foo," netstring-read) ..................... [ PASS]
(call-with-output-string (lambda (p) (netstring-write "x" p #\#))) ... [ PASS]
(with-input-from-string "" netstring-read) ........................... [ PASS]
(netstring->string "foo") ............................................ [ PASS]
(netstring->string "3 foo,") ......................................... [ PASS]
(netstring->string "10:foo,") ........................................ [ PASS]
(netstring->string "4:foo,") ......................................... [ PASS]
(netstring->string "3:foo") .......................................... [ PASS]
(netstring-read p) ................................................... [ PASS]
(read-char p) ........................................................ [ PASS]
(netstring-read p #f) ................................................ [ PASS]
(read-char p) ........................................................ [ PASS]
17 tests completed in 0.006 seconds.
17 out of 17 (100%) tests passed.
-- done testing  -------------------------------------------------------------