core/sbufs/sbufs-tests.factor

   1 USING: kernel math namespaces sequences sbufs strings
   2 tools.test classes ;
   3 IN: sbufs.tests
   4
   5 [ 5 ] [ "Hello" >sbuf length ] unit-test
   6
   7 [ "Hello" ] [
   8     100 <sbuf> "buf" set
   9     "Hello" "buf" get push-all
  10     "buf" get clone "buf-clone" set
  11     "World" "buf-clone" get push-all
  12     "buf" get >string
  13 ] unit-test
  14
  15 [ CHAR: h ] [ 0 SBUF" hello world" nth ] unit-test
  16 [ CHAR: H ] [
  17     CHAR: H 0 SBUF" hello world" [ set-nth ] keep first
  18 ] unit-test
  19
  20 [ SBUF" x" ] [ 1 <sbuf> CHAR: x >bignum over push ] unit-test
  21
  22 [ fixnum ] [ 1 >bignum SBUF" " new-sequence length class ] unit-test
  23
  24 [ fixnum ] [ 1 >bignum [ ] SBUF" " map-as length class ] unit-test