2012-08-02 20:41:13 -04:00
|
|
|
USING: classes kernel math namespaces sbufs sequences
|
|
|
|
|
sequences.private strings tools.test ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ 5 } [ "Hello" >sbuf length ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ "Hello" } [
|
2007-09-20 18:09:08 -04:00
|
|
|
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
|
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ CHAR: h } [ 0 SBUF" hello world" nth ] unit-test
|
|
|
|
|
{ CHAR: H } [
|
2007-09-20 18:09:08 -04:00
|
|
|
CHAR: H 0 SBUF" hello world" [ set-nth ] keep first
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2016-07-12 00:01:03 -04:00
|
|
|
{ SBUF" x" } [ 1 <sbuf> CHAR: x >bignum suffix! ] unit-test
|
2007-10-07 18:15:48 -04:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ fixnum } [ 1 >bignum SBUF" " new-sequence length class-of ] unit-test
|
2007-10-07 18:15:48 -04:00
|
|
|
|
2017-06-01 17:59:35 -04:00
|
|
|
{ fixnum } [ 1 >bignum <iota> [ ] SBUF" " map-as length class-of ] unit-test
|
2012-08-02 18:24:31 -04:00
|
|
|
|
|
|
|
|
[ 1.5 SBUF" " new-sequence ] must-fail
|
|
|
|
|
|
|
|
|
|
[ CHAR: A 0.5 0.5 SBUF" a" set-nth-unsafe ] must-fail
|
