Remove troublesome unit test
parent
12d596d1e6
commit
e790b1a48d
|
@ -2,11 +2,6 @@ IN: temporary
|
|||
USING: alien io-internals kernel kernel-internals libc
|
||||
sequences test ;
|
||||
|
||||
: buffer-append ( buffer buffer -- )
|
||||
#! Append first buffer to second buffer.
|
||||
2dup buffer-end <alien> over buffer-ptr <alien>
|
||||
rot buffer-fill memcpy >r buffer-fill r> n>buffer ;
|
||||
|
||||
: buffer-set ( string buffer -- )
|
||||
2dup buffer-ptr string>memory
|
||||
>r length r> buffer-reset ;
|
||||
|
@ -49,10 +44,3 @@ sequences test ;
|
|||
"hello" string>buffer
|
||||
1 over buffer-consume [ buffer-pop ] keep buffer-free
|
||||
] unit-test
|
||||
|
||||
[ "Hello world" ] [
|
||||
" world" string>buffer
|
||||
"Hello" string>buffer
|
||||
2dup buffer-append
|
||||
[ buffer-contents ] keep buffer-free swap buffer-free
|
||||
] unit-test
|
||||
|
|
Loading…
Reference in New Issue