34 lines
740 B
Factor
34 lines
740 B
Factor
|
IN: temporary
|
||
|
|
USING: kernel kernel-internals test ;
|
||
|
|
|
||
|
|
[ "" 65536 ] [
|
||
|
|
65536 <buffer>
|
||
|
|
dup buffer-contents
|
||
|
|
over buffer-capacity
|
||
|
|
rot buffer-free
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ "hello world" "" ] [
|
||
|
|
"hello world" 65536 <buffer> [ buffer-set ] keep
|
||
|
|
dup buffer-contents
|
||
|
|
0 pick buffer-reset
|
||
|
|
over buffer-contents
|
||
|
|
rot buffer-free
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ "hello" ] [
|
||
|
|
"hello world" 65536 <buffer> [ buffer-set ] keep
|
||
|
|
5 over buffer-first-n swap buffer-free
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ 11 ] [
|
||
|
|
"hello world" 65536 <buffer> [ buffer-set ] keep
|
||
|
|
[ buffer-length ] keep buffer-free
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ "hello world" ] [
|
||
|
|
"hello" 65536 <buffer> [ buffer-set ] keep
|
||
|
|
" world" over buffer-append
|
||
|
|
dup buffer-contents swap buffer-free
|
||
|
|
] unit-test
|