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

kernel.tests: address of fault is now in the 3rd element, so these tests 

need to be updated
db4
Björn Lindqvist 2015-08-04 14:51:48 +02:00
parent 6fedb79c73
commit 4b8b617ea4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,14 +30,14 @@ IN: kernel.tests
! Make sure we report the correct error on stack underflow ! Make sure we report the correct error on stack underflow
[ clear drop ] [ [ clear drop ] [
${ "kernel-error" ERROR-DATASTACK-UNDERFLOW f f } = 2 head ${ "kernel-error" ERROR-DATASTACK-UNDERFLOW } =
] must-fail-with ] must-fail-with
{ } [ :c ] unit-test { } [ :c ] unit-test
[ [
3 [ { } set-retainstack ] dip ] 3 [ { } set-retainstack ] dip ]
[ ${ "kernel-error" ERROR-RETAINSTACK-UNDERFLOW f f } = [ 2 head ${ "kernel-error" ERROR-RETAINSTACK-UNDERFLOW } =
] must-fail-with ] must-fail-with
{ } [ :c ] unit-test { } [ :c ] unit-test
@ -56,19 +56,19 @@ IN: kernel.tests
>> >>
[ overflow-d ] [ [ overflow-d ] [
${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } = 2 head ${ "kernel-error" ERROR-DATASTACK-OVERFLOW } =
] must-fail-with ] must-fail-with
{ } [ :c ] unit-test { } [ :c ] unit-test
[ overflow-d-alt ] [ [ overflow-d-alt ] [
${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } = 2 head ${ "kernel-error" ERROR-DATASTACK-OVERFLOW } =
] must-fail-with ] must-fail-with
{ } [ [ :c ] with-string-writer drop ] unit-test { } [ [ :c ] with-string-writer drop ] unit-test
[ overflow-r ] [ [ overflow-r ] [
${ "kernel-error" ERROR-RETAINSTACK-OVERFLOW f f } = 2 head ${ "kernel-error" ERROR-RETAINSTACK-OVERFLOW } =
] must-fail-with ] must-fail-with
{ } [ :c ] unit-test { } [ :c ] unit-test
@ -80,7 +80,7 @@ IN: kernel.tests
! fault handlers on an alternate callstack. ! fault handlers on an alternate callstack.
os windows? [ os windows? [
[ overflow-c ] [ [ overflow-c ] [
${ "kernel-error" ERROR-CALLSTACK-OVERFLOW f f } = 2 head ${ "kernel-error" ERROR-CALLSTACK-OVERFLOW } =
] must-fail-with ] must-fail-with
] unless ] unless