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

Add a failing unit test

slava 2006-11-01 05:25:01 +00:00
parent 82e57c69cc
commit 5071934795
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/test/kernel.factor
View File

@ -14,6 +14,9 @@ test errors ;
[ ] [ 10000000 [ drop 1/3 >bignum drop ] each ] unit-test [ ] [ 10000000 [ drop 1/3 >bignum drop ] each ] unit-test
[ ] [ 10000000 [ drop 1/3 >float drop ] each ] unit-test [ ] [ 10000000 [ drop 1/3 >float drop ] each ] unit-test
! Don't leak extra roots if error is thrown
[ ] [ 10000 [ [ -1 f <array> ] catch drop ] times ] unit-test
[ t ] [ cell integer? ] unit-test [ t ] [ cell integer? ] unit-test
[ t ] [ bootstrap-cell integer? ] unit-test [ t ] [ bootstrap-cell integer? ] unit-test