From 4b8b617ea4fadff78a1cf4b282de90fb87d1b7b3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 4 Aug 2015 14:51:48 +0200 Subject: [PATCH] kernel.tests: address of fault is now in the 3rd element, so these tests need to be updated --- core/kernel/kernel-tests.factor | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/core/kernel/kernel-tests.factor b/core/kernel/kernel-tests.factor index cb9c6a9ac7..1898b63dcc 100644 --- a/core/kernel/kernel-tests.factor +++ b/core/kernel/kernel-tests.factor @@ -30,14 +30,14 @@ IN: kernel.tests ! Make sure we report the correct error on stack underflow [ clear drop ] [ - ${ "kernel-error" ERROR-DATASTACK-UNDERFLOW f f } = + 2 head ${ "kernel-error" ERROR-DATASTACK-UNDERFLOW } = ] must-fail-with { } [ :c ] unit-test [ 3 [ { } set-retainstack ] dip ] - [ ${ "kernel-error" ERROR-RETAINSTACK-UNDERFLOW f f } = + [ 2 head ${ "kernel-error" ERROR-RETAINSTACK-UNDERFLOW } = ] must-fail-with { } [ :c ] unit-test @@ -56,19 +56,19 @@ IN: kernel.tests >> [ overflow-d ] [ - ${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } = + 2 head ${ "kernel-error" ERROR-DATASTACK-OVERFLOW } = ] must-fail-with { } [ :c ] unit-test [ overflow-d-alt ] [ - ${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } = + 2 head ${ "kernel-error" ERROR-DATASTACK-OVERFLOW } = ] must-fail-with { } [ [ :c ] with-string-writer drop ] unit-test [ overflow-r ] [ - ${ "kernel-error" ERROR-RETAINSTACK-OVERFLOW f f } = + 2 head ${ "kernel-error" ERROR-RETAINSTACK-OVERFLOW } = ] must-fail-with { } [ :c ] unit-test @@ -80,7 +80,7 @@ IN: kernel.tests ! fault handlers on an alternate callstack. os windows? [ [ overflow-c ] [ - ${ "kernel-error" ERROR-CALLSTACK-OVERFLOW f f } = + 2 head ${ "kernel-error" ERROR-CALLSTACK-OVERFLOW } = ] must-fail-with ] unless