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

Fix linkage-errors tests for recent changes

db4
Slava Pestov 2011-09-13 20:42:36 -07:00
parent 0ed9112f75
commit 736cebe729
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,7 +15,12 @@ FUNCTION: void this_does_not_exist ( ) ;
] 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>> ] unit-test [
\ this_does_not_exist linkage-errors get at error>>
! We don't care about the error message from dlerror, just
! wipe it out
f >>message
] unit-test
<< "no_such_library" "no_such_library" cdecl add-library >> << "no_such_library" "no_such_library" cdecl add-library >>
@ -35,4 +40,9 @@ FUNCTION: void no_such_function ( ) ;
] 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>> ] unit-test [
\ 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