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]