factor/library/test/sbuf.factor

IN: temporary
USING: kernel math namespaces sequences strings test ;

[ 5 ] [ "Hello" >sbuf length ] unit-test

[ "Hello" ] [
    100 <sbuf> "buf" set
    "Hello" "buf" get swap nappend
    "buf" get clone "buf-clone" set
    "World" "buf-clone" get swap nappend
    "buf" get >string
] unit-test

[ CHAR: h ] [ 0 SBUF" hello world" nth ] unit-test
[ CHAR: H ] [
    CHAR: H 0 SBUF" hello world" [ set-nth ] keep first
] unit-test

[ SBUF" x" ] [ 1 <sbuf> CHAR: x >bignum over push ] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
string sub-primitives 2005-05-05 22:30:58 -04:00			`USING: kernel math namespaces sequences strings test ;`

			`[ 5 ] [ "Hello" >sbuf length ] unit-test`
str/vector-hashcode 2004-09-26 21:34:25 -04:00
various cleanups, better memory signal handler 2004-10-17 19:01:16 -04:00			`[ "Hello" ] [`
			`100 <sbuf> "buf" set`
debugging I/O code, getenv/setenv are unsafe but a bit faster, each-object tweak, miscellaneous fixes 2005-04-25 03:33:33 -04:00			`"Hello" "buf" get swap nappend`
			`"buf" get clone "buf-clone" set`
			`"World" "buf-clone" get swap nappend`
back out skip word 2005-05-05 16:51:38 -04:00			`"buf" get >string`
various cleanups, better memory signal handler 2004-10-17 19:01:16 -04:00			`] unit-test`
sequence protocol 2005-04-02 02:39:33 -05:00
all tests now pass; more unix ffi i/o work 2005-04-03 19:02:50 -04:00			`[ CHAR: h ] [ 0 SBUF" hello world" nth ] unit-test`
sbuf-nth fix, other misc changes 2005-04-07 18:54:02 -04:00			`[ CHAR: H ] [`
various minor additions and PowerPC backend enhancements 2005-05-28 20:52:23 -04:00			`CHAR: H 0 SBUF" hello world" [ set-nth ] keep first`
sbuf-nth fix, other misc changes 2005-04-07 18:54:02 -04:00			`] unit-test`
string sub-primitives 2005-05-05 22:30:58 -04:00
unit tests mostly pass with new compiler 2005-05-09 23:27:46 -04:00			`[ SBUF" x" ] [ 1 <sbuf> CHAR: x >bignum over push ] unit-test`