basis/alien/libraries/libraries-tests.factor

   1 USING: alien alien.libraries alien.syntax tools.test kernel ;
   2 IN: alien.libraries.tests
   3
   4 [ f ] [ DLL" fadfasdfsada" dll-valid? ] unit-test
   5
   6 [ f ] [ "does not exist" DLL" fadsfasfdsaf" dlsym ] unit-test
   7
   8 [ ] [ "doesnotexist" dlopen dlclose ] unit-test
   9
  10 [ "fdasfsf" dll-valid? drop ] must-fail
  11
  12 [ t ] [
  13     "test-library" "blah" cdecl add-library
  14     "test-library" "BLAH" cdecl add-library?
  15     "blah" remove-library
  16 ] unit-test
  17
  18 [ t ] [
  19     "test-library" "blah" cdecl add-library
  20     "test-library" "blah" stdcall add-library?
  21     "blah" remove-library
  22 ] unit-test
  23
  24 [ f ] [
  25     "test-library" "blah" cdecl add-library
  26     "test-library" "blah" cdecl add-library?
  27     "blah" remove-library
  28 ] unit-test