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

VM: tests that rely on the integer values of the vm_error_type needs to be updated

db4
Björn Lindqvist 2014-06-03 23:45:38 +02:00
parent a9a52d9174
commit 4f49edaa66
1 changed files with 43 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
basis/compiler/tests/linkage-errors.factor
View File

@ -1,48 +1,48 @@
USING: tools.test namespaces assocs alien.syntax kernel USING: tools.test namespaces assocs alien.syntax kernel
compiler.errors accessors alien alien.c-types alien.strings compiler.errors accessors alien alien.c-types alien.strings
debugger literals kernel.private ; debugger literals kernel.private ;
FROM: alien.libraries => add-library load-library ; FROM: alien.libraries => add-library load-library ;
IN: compiler.tests.linkage-errors IN: compiler.tests.linkage-errors
! Regression: calling an undefined function would raise a protection fault ! Regression: calling an undefined function would raise a protection fault
FUNCTION: void this_does_not_exist ( ) ; FUNCTION: void this_does_not_exist ( ) ;
[ this_does_not_exist ] try [ this_does_not_exist ] try
[ this_does_not_exist ] [ [ this_does_not_exist ] [
${ "kernel-error" ERROR-UNDEFINED-SYMBOL "this_does_not_exist" string>symbol f } ${ "kernel-error" ERROR-UNDEFINED-SYMBOL "this_does_not_exist" string>symbol f }
= =
] must-fail-with ] must-fail-with
[ T{ no-such-symbol { name "this_does_not_exist" } } ] [ T{ no-such-symbol { name "this_does_not_exist" } } ]
[ [
\ this_does_not_exist linkage-errors get at error>> \ this_does_not_exist linkage-errors get at error>>
! We don't care about the error message from dlerror, just ! We don't care about the error message from dlerror, just
! wipe it out ! wipe it out
clone f >>message clone f >>message
] unit-test ] unit-test
<< "no_such_library" "no_such_library" cdecl add-library >> << "no_such_library" "no_such_library" cdecl add-library >>
LIBRARY: no_such_library LIBRARY: no_such_library
FUNCTION: void no_such_function ( ) ; FUNCTION: void no_such_function ( ) ;
[ no_such_function ] try [ no_such_function ] try
[ no_such_function ] [ [ no_such_function ] [
${ ${
"kernel-error" ERROR-UNDEFINED-SYMBOL "kernel-error" ERROR-UNDEFINED-SYMBOL
"no_such_function" string>symbol "no_such_function" string>symbol
"no_such_library" load-library "no_such_library" load-library
} }
= =
] must-fail-with ] must-fail-with
[ T{ no-such-library { name "no_such_library" } } ] [ T{ no-such-library { name "no_such_library" } } ]
[ [
\ no_such_function linkage-errors get at error>> \ no_such_function linkage-errors get at error>>
! We don't care about the error message from dlerror, just ! We don't care about the error message from dlerror, just
! wipe it out ! wipe it out
clone f >>message clone f >>message
] unit-test ] unit-test