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