core/sbufs/sbufs-tests.factor

   1 USING: classes kernel math namespaces sbufs sequences
   2 sequences.private strings tools.test ;
   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-of ] unit-test
  23
  24 { fixnum } [ 1 >bignum iota [ ] SBUF" " map-as length class-of ] unit-test
  25
  26 [ 1.5 SBUF" " new-sequence ] must-fail
  27
  28 [ CHAR: A 0.5 0.5 SBUF" a" set-nth-unsafe ] must-fail