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

Add unit test

release
Slava Pestov 2007-10-07 18:15:48 -04:00
parent 8b2bb93d1e
commit 806e5d19d9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/sbufs/sbufs-tests.factor
View File

@ -1,5 +1,5 @@
USING: kernel math namespaces sequences sbufs strings
tools.test ;
tools.test classes ;
IN: temporary
[ 5 ] [ "Hello" >sbuf length ] unit-test
@ -18,3 +18,7 @@ IN: temporary
] unit-test
[ SBUF" x" ] [ 1 <sbuf> CHAR: x >bignum over push ] unit-test
[ fixnum ] [ 1 >bignum SBUF" " new length class ] unit-test
[ fixnum ] [ 1 >bignum [ ] SBUF" " map-as length class ] unit-test