Test output for netstring

Testing time: 8.0s

CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm
(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]