steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
library/io/buffer/test/buffer.factor
View File

@ -2,11 +2,6 @@ IN: temporary
USING: alien io-internals kernel kernel-internals libc USING: alien io-internals kernel kernel-internals libc
sequences test ; 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 -- ) : buffer-set ( string buffer -- )
2dup buffer-ptr string>memory 2dup buffer-ptr string>memory
>r length r> buffer-reset ; >r length r> buffer-reset ;
@ -49,10 +44,3 @@ sequences test ;
"hello" string>buffer "hello" string>buffer
1 over buffer-consume [ buffer-pop ] keep buffer-free 1 over buffer-consume [ buffer-pop ] keep buffer-free
] unit-test ] unit-test
[ "Hello world" ] [
" world" string>buffer
"Hello" string>buffer
2dup buffer-append
[ buffer-contents ] keep buffer-free swap buffer-free
] unit-test