Add failing inference test

2008-05-20 18:52:22 -05:00 · 2008-05-20 18:52:22 -05:00 · 7a8da37733
parent c077a38649
commit 7a8da37733
1 changed files with 9 additions and 0 deletions
--- a/core/inference/inference-tests.factor
+++ b/core/inference/inference-tests.factor
@ -547,3 +547,12 @@ ERROR: custom-error ;
 [ [ missing->r-check ] infer ] must-fail

 { 1 0 } [ [ ] map-children ] must-infer-as
+
+! Corner case
+[ [ [ f dup ] [ dup ] [ ] unfold ] infer ] must-fail
+
+[ [ [ f dup ] [ ] [ ] while ] infer ] must-fail
+
+: erg's-inference-bug ( -- ) f dup [ erg's-inference-bug ] when ; inline
+
+[ [ erg's-inference-bug ] infer ] must-fail