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

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