Add a failing unit test

2006-11-01 05:25:01 +00:00 · 2006-11-01 05:25:01 +00:00 · 5071934795
parent 82e57c69cc
commit 5071934795
1 changed files with 3 additions and 0 deletions
--- a/library/test/kernel.factor
+++ b/library/test/kernel.factor
@ -14,6 +14,9 @@ test errors ;
 [ ] [ 10000000 [ drop 1/3 >bignum 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 ] [ bootstrap-cell integer? ] unit-test