30 lines
621 B
Factor
30 lines
621 B
Factor
|
IN: scratchpad
|
||
|
|
USE: combinators
|
||
|
|
USE: errors
|
||
|
|
USE: kernel
|
||
|
|
USE: logic
|
||
|
|
USE: math
|
||
|
|
USE: namespaces
|
||
|
|
USE: stack
|
||
|
|
USE: strings
|
||
|
|
USE: test
|
||
|
|
|
||
|
|
native? [
|
||
|
|
[ t ] [ "Foo" str>sbuf "Foo" str>sbuf = ] unit-test
|
||
|
|
[ f ] [ "Foo" str>sbuf "Foob" str>sbuf = ] unit-test
|
||
|
|
[ f ] [ 34 "Foo" str>sbuf = ] unit-test
|
||
|
|
|
||
|
|
[ "Hello" ] [
|
||
|
|
100 <sbuf> "buf" set
|
||
|
|
"Hello" "buf" get sbuf-append
|
||
|
|
"buf" get clone "buf-clone" set
|
||
|
|
"World" "buf-clone" get sbuf-append
|
||
|
|
"buf" get sbuf>str
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ t ] [
|
||
|
|
"Hello world" str>sbuf hashcode
|
||
|
|
"Hello world" hashcode =
|
||
|
|
] unit-test
|
||
|
|
] when
|