2007-09-20 18:09:08 -04:00
|
|
|
USING: kernel math namespaces sequences sbufs strings
|
2007-10-07 18:15:48 -04:00
|
|
|
tools.test classes ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: sbufs.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ 5 ] [ "Hello" >sbuf length ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "Hello" ] [
|
|
|
|
|
100 <sbuf> "buf" set
|
|
|
|
|
"Hello" "buf" get push-all
|
|
|
|
|
"buf" get clone "buf-clone" set
|
|
|
|
|
"World" "buf-clone" get push-all
|
|
|
|
|
"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
|
2007-10-07 18:15:48 -04:00
|
|
|
|
2008-04-13 23:58:07 -04:00
|
|
|
[ fixnum ] [ 1 >bignum SBUF" " new-sequence length class ] unit-test
|
2007-10-07 18:15:48 -04:00
|
|
|
|
2010-01-14 10:10:13 -05:00
|
|
|
[ fixnum ] [ 1 >bignum iota [ ] SBUF" " map-as length class ] unit-test
|
