Remove troublesome unit test

slava 2006-10-15 05:29:54 +00:00
parent 12d596d1e6
commit e790b1a48d
1 changed files with 0 additions and 12 deletions

View File

@ -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