From e790b1a48d02d17b671c5fc67fc1ebb8bdf27bc9 Mon Sep 17 00:00:00 2001 From: slava Date: Sun, 15 Oct 2006 05:29:54 +0000 Subject: [PATCH] Remove troublesome unit test --- library/io/buffer/test/buffer.factor | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/library/io/buffer/test/buffer.factor b/library/io/buffer/test/buffer.factor index a54f2f048e..ec38c2dc20 100644 --- a/library/io/buffer/test/buffer.factor +++ b/library/io/buffer/test/buffer.factor @@ -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 over buffer-ptr - 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 -- 2.34.1