core: subseq-index? -> subseq-of?

[factor.git] / basis / alien / libraries / finder / macosx / macosx-tests.factor

diff --git a/basis/alien/libraries/finder/macosx/macosx-tests.factor b/basis/alien/libraries/finder/macosx/macosx-tests.factor
index 6388eb58afed4ac29b0b5950dbc0f612853f03d0..aa4244586c1b6f5fa1d7f17856dfc96d3ad64af7 100644 (file)
--- a/basis/alien/libraries/finder/macosx/macosx-tests.factor
+++ b/basis/alien/libraries/finder/macosx/macosx-tests.factor
@@ -1,7 +1,5 @@
-
-USING: sequences tools.test ;
-
-IN: alien.libraries.finder.macosx
+USING: alien.libraries.finder alien.libraries.finder.macosx
+alien.libraries.finder.macosx.private sequences tools.test ;
 
 {
     {
@@ -28,7 +26,7 @@ IN: alien.libraries.finder.macosx
         "Location/Name.framework/Versions/A"
         "Location/Name.framework/Versions/A/Name"
         "Location/Name.framework/Versions/A/Name_suffix"
-    } [ <framework-info> ] map
+    } [ make-framework-info ] map
 ] unit-test
 
 {
@@ -42,3 +40,8 @@ IN: alien.libraries.finder.macosx
         "System.framework/System"
     } [ dyld-find ] map
 ] unit-test
+
+{ t } [ "m" find-library "libm.dylib" subseq-of? ] unit-test
+{ t } [ "c" find-library "libc.dylib" subseq-of? ] unit-test
+{ t } [ "bz2" find-library "libbz2.dylib" subseq-of? ] unit-test
+{ t } [ "AGL" find-library "AGL.framework" subseq-of? ] unit-test