Test output for netstring [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null -- 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.004 seconds. 17 out of 17 (100%) tests passed. -- done testing -------------------------------------------------------------