basis/alien/libraries/finder/macosx/macosx-tests.factor

   1
   2 USING: alien.libraries.finder
   3 alien.libraries.finder.macosx.private sequences tools.test ;
   4
   5 IN: alien.libraries.finder.macosx
   6
   7 {
   8     {
   9         f
  10         f
  11         f
  12         f
  13         T{ framework-info f "Location" "Name.framework/Name" "Name" f f }
  14         T{ framework-info f "Location" "Name.framework/Name_suffix" "Name" f "suffix" }
  15         f
  16         f
  17         T{ framework-info f "Location" "Name.framework/Versions/A/Name" "Name" "A" f }
  18         T{ framework-info f "Location" "Name.framework/Versions/A/Name_suffix" "Name" "A" "suffix" }
  19     }
  20 } [
  21     {
  22         "broken/path"
  23         "broken/path/_suffix"
  24         "Location/Name.framework"
  25         "Location/Name.framework/_suffix"
  26         "Location/Name.framework/Name"
  27         "Location/Name.framework/Name_suffix"
  28         "Location/Name.framework/Versions"
  29         "Location/Name.framework/Versions/A"
  30         "Location/Name.framework/Versions/A/Name"
  31         "Location/Name.framework/Versions/A/Name_suffix"
  32     } [ make-framework-info ] map
  33 ] unit-test
  34
  35 {
  36     {
  37         "/usr/lib/libSystem.dylib"
  38         "/System/Library/Frameworks/System.framework/System"
  39     }
  40 } [
  41     {
  42         "libSystem.dylib"
  43         "System.framework/System"
  44     } [ dyld-find ] map
  45 ] unit-test
  46
  47 { t } [ "m" find-library "libm.dylib" subseq? ] unit-test
  48 { t } [ "c" find-library "libc.dylib" subseq? ] unit-test
  49 { t } [ "bz2" find-library "libbz2.dylib" subseq? ] unit-test
  50 { t } [ "AGL" find-library "AGL.framework" subseq? ] unit-test