38 lines
871 B
Factor
38 lines
871 B
Factor
USING: accessors alien alien.libraries alien.syntax kernel tools.test ;
|
|
IN: alien.libraries.tests
|
|
|
|
{ f } [ DLL" fadfasdfsada" dll-valid? ] unit-test
|
|
|
|
{ f } [ "does not exist" DLL" fadsfasfdsaf" dlsym ] unit-test
|
|
|
|
{ } [ "doesnotexist" dlopen dlclose ] unit-test
|
|
|
|
[ "fdasfsf" dll-valid? drop ] must-fail
|
|
|
|
{ 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
|
|
|
|
{ "blah" f } [
|
|
"blah" cdecl make-library [ path>> ] [ dll>> dll-valid? ] bi
|
|
] unit-test
|
|
|
|
! dlsym?
|
|
{ t } [
|
|
"err_no" "factor" dlsym? alien?
|
|
] unit-test
|