library/io/buffer/test/buffer.factor

   1 IN: temporary
   2 USING: alien io-internals kernel kernel-internals libc
   3 sequences test ;
   4
   5 : buffer-set ( string buffer -- )
   6     2dup buffer-ptr string>memory
   7     >r length r> buffer-reset ;
   8
   9 : string>buffer ( string -- buffer )
  10     dup length <buffer> tuck buffer-set ;
  11
  12 [ "" 65536 ] [
  13     65536 <buffer>
  14     dup buffer-contents
  15     over buffer-capacity
  16     rot buffer-free
  17 ] unit-test
  18
  19 [ "hello world" "" ] [
  20     "hello world" string>buffer
  21     dup buffer-contents
  22     0 pick buffer-reset
  23     over buffer-contents
  24     rot buffer-free
  25 ] unit-test
  26
  27 [ "hello" ] [
  28     "hello world" string>buffer
  29     5 over buffer-first-n swap buffer-free
  30 ] unit-test
  31
  32 [ 11 ] [
  33     "hello world" string>buffer
  34     [ buffer-length ] keep buffer-free
  35 ] unit-test
  36
  37 [ "hello world" ] [
  38     "hello" 1024 <buffer> [ buffer-set ] keep
  39     " world" over >buffer
  40     dup buffer-contents swap buffer-free
  41 ] unit-test
  42
  43 [ CHAR: e ] [
  44     "hello" string>buffer
  45     1 over buffer-consume [ buffer-pop ] keep buffer-free
  46 ] unit-test