45 lines
1.1 KiB
Factor
45 lines
1.1 KiB
Factor
|
|
||
|
USING: sequences tools.test ;
|
||
|
|
||
|
IN: alien.libraries.finder.macosx
|
||
|
|
||
|
{
|
||
|
{
|
||
|
f
|
||
|
f
|
||
|
f
|
||
|
f
|
||
|
T{ framework-info f "Location" "Name.framework/Name" "Name" f f }
|
||
|
T{ framework-info f "Location" "Name.framework/Name_suffix" "Name" f "suffix" }
|
||
|
f
|
||
|
f
|
||
|
T{ framework-info f "Location" "Name.framework/Versions/A/Name" "Name" "A" f }
|
||
|
T{ framework-info f "Location" "Name.framework/Versions/A/Name_suffix" "Name" "A" "suffix" }
|
||
|
}
|
||
|
} [
|
||
|
{
|
||
|
"broken/path"
|
||
|
"broken/path/_suffix"
|
||
|
"Location/Name.framework"
|
||
|
"Location/Name.framework/_suffix"
|
||
|
"Location/Name.framework/Name"
|
||
|
"Location/Name.framework/Name_suffix"
|
||
|
"Location/Name.framework/Versions"
|
||
|
"Location/Name.framework/Versions/A"
|
||
|
"Location/Name.framework/Versions/A/Name"
|
||
|
"Location/Name.framework/Versions/A/Name_suffix"
|
||
|
} [ <framework-info> ] map
|
||
|
] unit-test
|
||
|
|
||
|
{
|
||
|
{
|
||
|
"/usr/lib/libSystem.dylib"
|
||
|
"/System/Library/Frameworks/System.framework/System"
|
||
|
}
|
||
|
} [
|
||
|
{
|
||
|
"libSystem.dylib"
|
||
|
"System.framework/System"
|
||
|
} [ dyld-find ] map
|
||
|
] unit-test
|