Add unit test for regression

2008-01-13 18:52:14 -05:00 · 2008-01-13 18:52:14 -05:00 · 472cde4f75
parent b870bce81d
commit 472cde4f75
1 changed files with 10 additions and 0 deletions
--- a/core/kernel/kernel-tests.factor
+++ b/core/kernel/kernel-tests.factor
@ -108,3 +108,13 @@ IN: temporary

 [ drop foo ] unit-test-fails
 [ ] [ :c ] unit-test
+
+! Regression
+: (loop) ( a b c d -- )
+    >r pick r> swap >r pick r> swap
+    < [ >r >r >r 1+ r> r> r> (loop) ] [ 2drop 2drop ] if ; inline
+
+: loop ( obj obj -- )
+    H{ } values swap >r dup length swap r> 0 -roll (loop) ;
+
+[ loop ] unit-test-fails