2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2004-09-26 21:34:25 -04:00
|
|
|
USE: errors
|
|
|
|
|
USE: kernel
|
|
|
|
|
USE: math
|
|
|
|
|
USE: namespaces
|
|
|
|
|
USE: strings
|
|
|
|
|
USE: test
|
|
|
|
|
|
2004-10-17 19:01:16 -04:00
|
|
|
[ "Hello" ] [
|
|
|
|
|
100 <sbuf> "buf" set
|
|
|
|
|
"Hello" "buf" get sbuf-append
|
|
|
|
|
"buf" get sbuf-clone "buf-clone" set
|
|
|
|
|
"World" "buf-clone" get sbuf-append
|
2005-03-05 16:33:40 -05:00
|
|
|
"buf" get sbuf>string
|
2004-10-17 19:01:16 -04:00
|
|
|
] unit-test
|
2005-04-02 02:39:33 -05:00
|
|
|
|
|
|
|
|
[ CHAR: h ] [ 0 s" hello world" sbuf-nth ] unit-test
|
