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

Test fixes

db4
Slava Pestov 2010-02-02 09:41:13 +13:00
parent 7846074b3b
commit 0b278adb5a
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/stack-checker/transforms/transforms-tests.factor
View File

@ -78,7 +78,7 @@ MACRO: curry-folding-test ( quot -- )
\ bad-macro [ "OOPS" throw ] 0 define-transform
[ [ bad-macro ] infer ] [ f >>continuation T{ transform-expansion-error f "OOPS" f bad-macro } = ] must-fail-with
[ [ bad-macro ] infer ] [ [ transform-expansion-error? ] [ error>> "OOPS" = ] [ word>> \ bad-macro = ] tri and and ] must-fail-with
MACRO: two-params ( a b -- c ) + 1quotation ;

2
basis/tools/profiler/profiler-tests.factor
View File

@ -58,7 +58,7 @@ IN: tools.profiler.tests
[ ] [ [ [ ] compile-call ] profile ] unit-test
[ [ gensym execute ] profile ] [ T{ undefined } = ] must-fail-with
[ [ gensym execute ] profile ] [ undefined? ] must-fail-with
: crash-bug-1 ( -- x ) "hi" <uninterned-word> ;
: crash-bug-2 ( -- ) 100000 [ crash-bug-1 drop ] times ;

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

@ -127,38 +127,38 @@ IN: kernel.tests
! Test traceback accuracy
: last-frame ( -- pair )
error-continuation get call>> callstack>array 4 head* 2 tail* ;
error-continuation get call>> callstack>array 6 head* 3 tail* ;
[
{ [ 1 2 [ 3 throw ] call 4 ] 3 }
{ [ 1 2 [ 3 throw ] call 4 ] [ 1 2 [ 3 throw ] call 4 ] 3 }
] [
[ [ 1 2 [ 3 throw ] call 4 ] call ] ignore-errors
last-frame
] unit-test
[
{ [ 1 2 [ 3 throw ] dip 4 ] 3 }
{ [ 1 2 [ 3 throw ] dip 4 ] [ 1 2 [ 3 throw ] dip 4 ] 3 }
] [
[ [ 1 2 [ 3 throw ] dip 4 ] call ] ignore-errors
last-frame
] unit-test
[
{ [ 1 2 3 throw [ ] call 4 ] 3 }
{ [ 1 2 3 throw [ ] call 4 ] [ 1 2 3 throw [ ] call 4 ] 3 }
] [
[ [ 1 2 3 throw [ ] call 4 ] call ] ignore-errors
last-frame
] unit-test
[
{ [ 1 2 3 throw [ ] dip 4 ] 3 }
{ [ 1 2 3 throw [ ] dip 4 ] [ 1 2 3 throw [ ] dip 4 ] 3 }
] [
[ [ 1 2 3 throw [ ] dip 4 ] call ] ignore-errors
last-frame
] unit-test
[
{ [ 1 2 3 throw [ ] [ ] if 4 ] 3 }
{ [ 1 2 3 throw [ ] [ ] if 4 ] [ 1 2 3 throw [ ] [ ] if 4 ] 3 }
] [
[ [ 1 2 3 throw [ ] [ ] if 4 ] call ] ignore-errors
last-frame