factor/core/io/pathnames/pathnames-tests.factor

USING: io.backend io.directories io.files.private io.files.temp
io.files.unique io.pathnames kernel locals math multiline
namespaces sequences system tools.test ;

{ "passwd" } [ "/etc/passwd" file-name ] unit-test
{ "awk" } [ "/usr/libexec/awk/" file-name ] unit-test
{ "awk" } [ "/usr/libexec/awk///" file-name ] unit-test
{ "" } [ "" file-name ] unit-test

{ "freetype6.dll" } [ "resource:freetype6.dll" file-name ] unit-test
{ "freetype6.dll" } [ "resource:/freetype6.dll" file-name ] unit-test

{ "/usr/lib" } [ "/usr" "lib" append-path ] unit-test
{ "/usr/lib" } [ "/usr/" "lib" append-path ] unit-test
{ "/usr/lib" } [ "/usr" "./lib" append-path ] unit-test
{ "/usr/lib/" } [ "/usr" "./lib/" append-path ] unit-test
{ "/lib" } [ "/usr" "../lib" append-path ] unit-test
{ "/lib/" } [ "/usr" "../lib/" append-path ] unit-test

{ "" } [ "" "." append-path ] unit-test
[ "" ".." append-path ] must-fail

{ "/" } [ "/" "./." append-path ] unit-test
{ "/" } [ "/" "././" append-path ] unit-test
{ "/a/b/lib" } [ "/a/b/c/d/e/f/" "../../../../lib" append-path ] unit-test
{ "/a/b/lib/" } [ "/a/b/c/d/e/f/" "../../../../lib/" append-path ] unit-test

[ "" "../lib/" append-path ] must-fail
{ "lib" } [ "" "lib" append-path ] unit-test
{ "lib" } [ "" "./lib" append-path ] unit-test

[ "foo/bar/." parent-directory ] must-fail
[ "foo/bar/./" parent-directory ] must-fail
[ "foo/bar/baz/.." parent-directory ] must-fail
[ "foo/bar/baz/../" parent-directory ] must-fail

[ "." parent-directory ] must-fail
[ "./" parent-directory ] must-fail
[ ".." parent-directory ] must-fail
[ "../" parent-directory ] must-fail
[ "../../" parent-directory ] must-fail
[ "foo/.." parent-directory ] must-fail
[ "foo/../" parent-directory ] must-fail
[ "" parent-directory ] must-fail
{ "." } [ "boot.x86.64.image" parent-directory ] unit-test

{ "bar/foo" } [ "bar/baz" "..///foo" append-path ] unit-test
{ "bar/baz/foo" } [ "bar/baz" ".///foo" append-path ] unit-test
{ "bar/foo" } [ "bar/baz" "./..//foo" append-path ] unit-test
{ "bar/foo" } [ "bar/baz" "./../././././././///foo" append-path ] unit-test

{ t } [ "resource:core" absolute-path? ] unit-test
{ f } [ "" absolute-path? ] unit-test

[| path |
    { } [ 2 [ path touch-file ] times ] unit-test
] with-test-file

! aum's bug
H{
    { current-directory "." }
    { "resource-path" ".." }
} [
    [ "../core/bootstrap/stage2.factor" ]
    [ "resource:core/bootstrap/stage2.factor" absolute-path ]
    unit-test
] with-variables

{ t } [ cwd "misc" resource-path [ ] with-directory cwd = ] unit-test

! Regression test for bug in file-extension
{ f } [ "/funny.directory/file-with-no-extension" file-extension ] unit-test
{ "" } [ "/funny.directory/file-with-no-extension." file-extension ] unit-test

! Testing ~ special pathname
{ t } [ os windows? "~\\" "~/" ? absolute-path home = ] unit-test
{ t } [ "~/" home [ normalize-path ] same? ] unit-test

{ t } [ "~" absolute-path home = ] unit-test
{ t } [ "~" home [ normalize-path ] same? ] unit-test

{ t } [ "~" home [ "foo" append-path ] bi@ [ normalize-path ] same? ] unit-test
{ t } [ os windows? "~\\~/" "~/~/" ? "~" "~" append-path [ path-components ] same? ] unit-test

! Absolute paths
os windows? [
    { "c:/" } [ "c:/" canonicalize-path ] unit-test
    { "c:/" } [ "c:/." canonicalize-path ] unit-test
    { "c:/" } [ "c:/.." canonicalize-path ] unit-test
    { "c:/" } [ "c:/Users/.." canonicalize-path ] unit-test
    { "c:/" } [ "c:/Users/../" canonicalize-path ] unit-test
    { "c:/" } [ "c:/Users/../." canonicalize-path ] unit-test
    { "c:/" } [ "c:/Users/.././" canonicalize-path ] unit-test
    { "c:/" } [ "c:/Users/.././././././" canonicalize-path ] unit-test
    { "c:/" } [ "c:/Users/../././/////./././/././././//././././././." canonicalize-path ] unit-test
    { "c:/" } [ "c:/Users/../../../..////.././././././/../" canonicalize-path ] unit-test
    { "c:/Users" } [ "c:/Users/../../../Users" canonicalize-path ] unit-test

    { "c:/Users" } [ "c:/Users" canonicalize-path ] unit-test
    { "c:/Users" } [ "c:/Users/." canonicalize-path ] unit-test
    { "c:/Users\\foo\\bar" } [ "c:/Users/foo/bar" canonicalize-path ] unit-test
] [
    { "/" } [ "/" canonicalize-path ] unit-test
    { "/" } [ "/." canonicalize-path ] unit-test
    { "/" } [ "/.." canonicalize-path ] unit-test
    { "/" } [ "/Users/.." canonicalize-path ] unit-test
    { "/" } [ "/Users/../" canonicalize-path ] unit-test
    { "/" } [ "/Users/../." canonicalize-path ] unit-test
    { "/" } [ "/Users/.././" canonicalize-path ] unit-test
    { "/" } [ "/Users/.././././././" canonicalize-path ] unit-test
    { "/" } [ "/Users/../././/////./././/././././//././././././." canonicalize-path ] unit-test
    { "/" } [ "/Users/../../../..////.././././././/../" canonicalize-path ] unit-test
    { "/Users" } [ "/Users/../../../Users" canonicalize-path ] unit-test

    { "/Users" } [ "/Users" canonicalize-path ] unit-test
    { "/Users" } [ "/Users/." canonicalize-path ] unit-test
    { "/Users/foo/bar" } [ "/Users/foo/bar" canonicalize-path ] unit-test
] if


! Relative paths
{ "." } [ f canonicalize-path ] unit-test
{ "." } [ "" canonicalize-path ] unit-test
{ "." } [ "." canonicalize-path ] unit-test
{ "." } [ "./" canonicalize-path ] unit-test
{ "." } [ "./." canonicalize-path ] unit-test
{ ".." } [ ".." canonicalize-path ] unit-test
{ ".." } [ "../" canonicalize-path ] unit-test
{ ".." } [ "../." canonicalize-path ] unit-test
{ ".." } [ ".././././././//." canonicalize-path ] unit-test

{ t } [ "../.." canonicalize-path { "../.." "..\\.." } member? ] unit-test
{ t } [ "../../" canonicalize-path { "../.." "..\\.." } member? ] unit-test
{ t } [ "../.././././/./././" canonicalize-path { "../.." "..\\.." } member? ] unit-test


! Root paths
os windows? [
    { "d:\\" } [ "d:\\" root-path ] unit-test
    { "d:\\" } [ "d:\\\\\\\\//////" root-path ] unit-test
    { "c:\\" } [ "c:\\Users\\merlen" root-path ] unit-test
    { "c:\\" } [ "c:\\\\\\//Users//\\//merlen//" root-path ] unit-test
    { "d:\\" } [ "d:\\././././././/../../../" root-path ] unit-test
    { "d:\\" } [ "d:\\merlen\\dog" root-path ] unit-test

    { "d:\\" } [ "\\\\?\\d:\\" root-path ] unit-test
    { "d:\\" } [ "\\\\?\\d:\\\\\\\\//////" root-path ] unit-test
    { "c:\\" } [ "\\\\?\\c:\\Users\\merlen" root-path ] unit-test
    { "c:\\" } [ "\\\\?\\c:\\\\\\//Users//\\//merlen//" root-path ] unit-test
    { "d:\\" } [ "\\\\?\\d:\\././././././/../../../" root-path ] unit-test
    { "d:\\" } [ "\\\\?\\d:\\merlen\\dog" root-path ] unit-test
] [
    { "/" } [ "/" root-path ] unit-test
    { "/" } [ "//" root-path ] unit-test
    { "/" } [ "/Users" root-path ] unit-test
    { "/" } [ "//Users" root-path ] unit-test
    { "/" } [ "/Users/foo/bar////././." root-path ] unit-test
    { "/" } [ "/Users/foo/bar////.//../../../../../../////./." root-path ] unit-test
    { "/" } [ "/Users/////" root-path ] unit-test
] if