1 USING: classes kernel math namespaces sbufs sequences
2 sequences.private strings tools.test ;
5 { 5 } [ "Hello" >sbuf length ] unit-test
9 "Hello" "buf" get push-all
10 "buf" get clone "buf-clone" set
11 "World" "buf-clone" get push-all
15 { CHAR: h } [ 0 SBUF" hello world" nth ] unit-test
17 CHAR: H 0 SBUF" hello world" [ set-nth ] keep first
20 { SBUF" x" } [ 1 <sbuf> CHAR: x >bignum over push ] unit-test
22 { fixnum } [ 1 >bignum SBUF" " new-sequence length class-of ] unit-test
24 { fixnum } [ 1 >bignum iota [ ] SBUF" " map-as length class-of ] unit-test
26 [ 1.5 SBUF" " new-sequence ] must-fail
28 [ CHAR: A 0.5 0.5 SBUF" a" set-nth-unsafe ] must-fail