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

adding some tests for the recent integer>fixnum fix.

db4
John Benediktsson 2012-08-02 15:24:31 -07:00
parent 6a183718fa
commit 10642047e6
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/byte-arrays/byte-arrays-tests.factor
View File

@ -14,4 +14,7 @@ IN: byte-arrays.tests
[ B{ 123 } ] [ 123 0 B{ 0 } [ set-nth ] keep ] unit-test [ B{ 123 } ] [ 123 0 B{ 0 } [ set-nth ] keep ] unit-test
[ B{ 123 } ] [ 123 >bignum 0 B{ 0 } [ set-nth ] keep ] unit-test [ B{ 123 } ] [ 123 >bignum 0 B{ 0 } [ set-nth ] keep ] unit-test
[ 1.5 B{ 1 2 3 } nth-unsafe ] must-fail
[ 0 1.5 B{ 1 2 3 } set-nth-unsafe ] must-fail

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

@ -22,3 +22,7 @@ IN: sbufs.tests
[ fixnum ] [ 1 >bignum SBUF" " new-sequence length class-of ] unit-test [ fixnum ] [ 1 >bignum SBUF" " new-sequence length class-of ] unit-test
[ fixnum ] [ 1 >bignum iota [ ] SBUF" " map-as length class-of ] unit-test [ fixnum ] [ 1 >bignum iota [ ] SBUF" " map-as length class-of ] unit-test
[ 1.5 SBUF" " new-sequence ] must-fail
[ CHAR: A 0.5 0.5 SBUF" a" set-nth-unsafe ] must-fail