From ba31abb301feaddf2ecdc78c601f7b407c72bab9 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 6 Nov 2009 02:35:43 -0600 Subject: [PATCH] Fix some test failures --- basis/stack-checker/stack-checker-tests.factor | 2 +- core/kernel/kernel-tests.factor | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/basis/stack-checker/stack-checker-tests.factor b/basis/stack-checker/stack-checker-tests.factor index 414bcaaffe..274566c868 100644 --- a/basis/stack-checker/stack-checker-tests.factor +++ b/basis/stack-checker/stack-checker-tests.factor @@ -319,7 +319,7 @@ FORGET: erg's-inference-bug [ [ bad-recursion-3 ] infer ] must-fail FORGET: bad-recursion-3 -: bad-recursion-4 ( -- ) 4 [ dup call roll ] times ; inline recursive +: bad-recursion-4 ( -- ) 4 [ dup call [ rot ] dip swap ] times ; inline recursive [ [ [ ] [ 1 2 3 ] over dup bad-recursion-4 ] infer ] must-fail : bad-recursion-5 ( obj quot: ( -- ) -- ) dup call swap bad-recursion-5 ; inline recursive diff --git a/core/kernel/kernel-tests.factor b/core/kernel/kernel-tests.factor index d9babb5fd7..726fa1f5bb 100644 --- a/core/kernel/kernel-tests.factor +++ b/core/kernel/kernel-tests.factor @@ -13,11 +13,11 @@ IN: kernel.tests [ ] [ 10000 [ [ -1 f ] ignore-errors ] times ] unit-test ! Make sure we report the correct error on stack underflow -[ clear drop ] [ { "kernel-error" 11 f f } = ] must-fail-with +[ clear drop ] [ { "kernel-error" 10 f f } = ] must-fail-with [ ] [ :c ] unit-test -[ 3 [ { } set-retainstack ] dip ] [ { "kernel-error" 13 f f } = ] must-fail-with +[ 3 [ { } set-retainstack ] dip ] [ { "kernel-error" 12 f f } = ] must-fail-with [ ] [ :c ] unit-test @@ -34,15 +34,15 @@ IN: kernel.tests [ t "no-compile" set-word-prop ] each >> -[ overflow-d ] [ { "kernel-error" 12 f f } = ] must-fail-with +[ overflow-d ] [ { "kernel-error" 11 f f } = ] must-fail-with [ ] [ :c ] unit-test -[ overflow-d-alt ] [ { "kernel-error" 12 f f } = ] must-fail-with +[ overflow-d-alt ] [ { "kernel-error" 11 f f } = ] must-fail-with [ ] [ [ :c ] with-string-writer drop ] unit-test -[ overflow-r ] [ { "kernel-error" 14 f f } = ] must-fail-with +[ overflow-r ] [ { "kernel-error" 13 f f } = ] must-fail-with [ ] [ :c ] unit-test