16 lines
388 B
Factor
16 lines
388 B
Factor
IN: temporary
|
|
USING: kernel namespaces sequences strings test ;
|
|
|
|
[ "Hello" ] [
|
|
100 <sbuf> "buf" set
|
|
"Hello" "buf" get nappend
|
|
"buf" get sbuf-clone "buf-clone" set
|
|
"World" "buf-clone" get nappend
|
|
"buf" get sbuf>string
|
|
] unit-test
|
|
|
|
[ CHAR: h ] [ 0 SBUF" hello world" nth ] unit-test
|
|
[ CHAR: H ] [
|
|
CHAR: H 0 SBUF" hello world" [ set-nth ] keep 0 swap nth
|
|
] unit-test
|