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

Add unit test for regression

db4
Slava Pestov 2008-01-13 18:52:14 -05:00
parent b870bce81d
commit 472cde4f75
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/kernel/kernel-tests.factor
View File

@ -108,3 +108,13 @@ IN: temporary
[ drop foo ] unit-test-fails [ drop foo ] unit-test-fails
[ ] [ :c ] unit-test [ ] [ :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