Add failing unit test

2008-11-19 13:02:33 -06:00 · 2008-11-19 13:02:33 -06:00 · 12601b7eb0
parent 5df0a0073f
commit 12601b7eb0
1 changed files with 2 additions and 0 deletions
--- a/basis/locals/locals-tests.factor
+++ b/basis/locals/locals-tests.factor
@ -388,6 +388,8 @@ M:: integer lambda-method-forget-test ( a -- b ) ;

 [ ] [ [ { integer lambda-method-forget-test } forget ] with-compilation-unit ] unit-test

+[ { [ 10 ] } ] [ 10 [| A | { [ A ] } ] call ] unit-test
+
 ! :: wlet-&&-test ( a -- ? )
 !     [wlet | is-integer? [ a integer? ]
 !             is-even? [ a even? ]