2013-11-29 08:51:08 -05:00
|
|
|
USING: alien alien.libraries alien.syntax formatting io.pathnames
|
|
|
|
|
kernel system tools.test ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: alien.libraries.tests
|
2009-07-09 07:51:31 -04:00
|
|
|
|
|
|
|
|
[ f ] [ DLL" fadfasdfsada" dll-valid? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ "does not exist" DLL" fadsfasfdsaf" dlsym ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "doesnotexist" dlopen dlclose ] unit-test
|
|
|
|
|
|
2009-08-13 20:21:44 -04:00
|
|
|
[ "fdasfsf" dll-valid? drop ] must-fail
|
2010-10-26 00:39:15 -04:00
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
"test-library" "blah" cdecl add-library
|
|
|
|
|
"test-library" "BLAH" cdecl add-library?
|
|
|
|
|
"blah" remove-library
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
"test-library" "blah" cdecl add-library
|
|
|
|
|
"test-library" "blah" stdcall add-library?
|
|
|
|
|
"blah" remove-library
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [
|
|
|
|
|
"test-library" "blah" cdecl add-library
|
|
|
|
|
"test-library" "blah" cdecl add-library?
|
|
|
|
|
"blah" remove-library
|
|
|
|
|
] unit-test
|
2013-11-29 05:35:44 -05:00
|
|
|
|
|
|
|
|
! dlopen resolves resource:-paths
|
|
|
|
|
os windows? [
|
|
|
|
|
[ t ] [
|
|
|
|
|
vm file-stem "resource:/%s.exe" sprintf dlopen dll-valid?
|
|
|
|
|
] unit-test
|
|
|
|
|
] when
|
