diff options
Diffstat (limited to 'lib/stdlib/test/filename_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/filename_SUITE.erl | 459 |
1 files changed, 459 insertions, 0 deletions
diff --git a/lib/stdlib/test/filename_SUITE.erl b/lib/stdlib/test/filename_SUITE.erl new file mode 100644 index 0000000000..ab6521f37b --- /dev/null +++ b/lib/stdlib/test/filename_SUITE.erl @@ -0,0 +1,459 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1997-2009. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%% +-module(filename_SUITE). +-export([all/1]). +-export([absname/1, absname_2/1, + basename_1/1, basename_2/1, + dirname/1, extension/1, join/1, t_nativename/1]). +-export([pathtype/1,rootname/1,split/1,find_src/1]). +-include("test_server.hrl"). + +all(suite) -> + [absname, absname_2, basename_1, basename_2, dirname, + extension, + join, pathtype, rootname, split, t_nativename, find_src]. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +absname(Config) when is_list(Config) -> + case os:type() of + {win32, _} -> + ?line [Drive|_] = ?config(priv_dir, Config), + ?line Temp = filename:join([Drive|":/"], "temp"), + ?line case file:make_dir(Temp) of + ok -> ok; + {error,eexist} -> ok + end, + ?line {ok,Cwd} = file:get_cwd(), + ?line ok = file:set_cwd(Temp), + ?line [Drive|":/temp/foo"] = filename:absname(foo), + ?line [Drive|":/temp/foo"] = filename:absname("foo"), + ?line [Drive|":/temp/../ebin"] = filename:absname("../ebin"), + ?line [Drive|":/erlang"] = filename:absname("/erlang"), + ?line [Drive|":/erlang/src"] = filename:absname("/erlang/src"), + ?line [Drive|":/erlang/src"] = filename:absname("\\erlang\\src"), + ?line [Drive|":/temp/erlang"] = filename:absname([Drive|":erlang"]), + ?line [Drive|":/temp/erlang/src"] = + filename:absname([Drive|":erlang/src"]), + ?line [Drive|":/temp/erlang/src"] = + filename:absname([Drive|":erlang\\src\\"]), + ?line "a:/erlang" = filename:absname("a:erlang"), + + ?line file:set_cwd([Drive|":/"]), + ?line [Drive|":/foo"] = filename:absname(foo), + ?line [Drive|":/foo"] = filename:absname("foo"), + ?line [Drive|":/../ebin"] = filename:absname("../ebin"), + ?line [Drive|":/erlang"] = filename:absname("/erlang"), + ?line [Drive|":/erlang/src"] = filename:absname("/erlang/src"), + ?line [Drive|":/erlang/src"] = filename:absname(["/erlang",'/src']), + ?line [Drive|":/erlang/src"] = filename:absname("\\erlang\\\\src"), + ?line [Drive|":/erlang"] = filename:absname([Drive|":erlang"]), + ?line [Drive|":/erlang/src"] = filename:absname([Drive|":erlang/src"]), + ?line "a:/erlang" = filename:absname("a:erlang"), + + ?line file:set_cwd(Cwd), + ok; + {unix, _} -> + ?line ok = file:set_cwd("/usr"), + ?line "/usr/foo" = filename:absname(foo), + ?line "/usr/foo" = filename:absname("foo"), + ?line "/usr/../ebin" = filename:absname("../ebin"), + + ?line file:set_cwd("/"), + ?line "/foo" = filename:absname(foo), + ?line "/foo" = filename:absname("foo"), + ?line "/../ebin" = filename:absname("../ebin"), + ?line "/erlang" = filename:absname("/erlang"), + ?line "/erlang/src" = filename:absname("/erlang/src"), + ?line "/erlang/src" = filename:absname(["/erl",'ang/s',"rc"]), + ?line "/erlang/src" = filename:absname(["/erl",'a','ng',"/",'s',"rc"]), + ?line "/erlang/src" = filename:absname("/erlang///src"), + ?line "/file_sorter.erl" = filename:absname([file_sorter|'.erl']), + ok; + vxworks -> + Test_dir = ?config(priv_dir, Config), + Test1 = Test_dir ++ "/foo", + Test2 = Test_dir ++ "/ebin", + ?line ok = file:set_cwd(Test_dir), + ?line Test1 = filename:absname(foo), + ?line Test1= filename:absname("foo"), + ?line Test2 = filename:absname("foo/../ebin"), + ?line "/erlang" = filename:absname("/erlang"), + ?line "/erlang/src" = filename:absname("/erlang/src"), + ?line "/erlang/src" = filename:absname(["/erlan",'g/s',"rc"]), + ?line "/erlang/src" = filename:absname("/erlang///src"), + ok + end. + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +absname_2(Config) when is_list(Config) -> + case os:type() of + {win32, _} -> + ?line [Drive|_] = ?config(priv_dir, Config), + ?line [Drive|":/temp/foo"] = filename:absname(foo, [Drive|":/temp"]), + ?line [Drive|":/temp/foo"] = filename:absname("foo", [Drive|":/temp"]), + ?line [Drive|":/temp/../ebin"] = filename:absname("../ebin", + [Drive|":/temp"]), + ?line [Drive|":/erlang"] = filename:absname("/erlang", [Drive|":/temp"]), + ?line [Drive|":/erlang/src"] = filename:absname("/erlang/src", + [Drive|":/temp"]), + ?line [Drive|":/erlang/src"] = filename:absname("\\erlang\\src", + [Drive|":/temp"]), + ?line [Drive|":/temp/erlang"] = filename:absname([Drive|":erlang"], + [Drive|":/temp"]), + ?line [Drive|":/temp/erlang/src"] = filename:absname([Drive|":erlang/src"], + [Drive|":/temp"]), + ?line [Drive|":/temp/erlang/src"] = + filename:absname([Drive|":erlang\\src\\"], [Drive|":/temp"]), + ?line "a:/erlang" = filename:absname("a:erlang", [Drive|":/temp"]), + + ?line file:set_cwd([Drive|":/"]), + ?line [Drive|":/foo"] = filename:absname(foo, [Drive|":/"]), + ?line [Drive|":/foo"] = filename:absname("foo", [Drive|":/"]), + ?line [Drive|":/../ebin"] = filename:absname("../ebin", [Drive|":/"]), + ?line [Drive|":/erlang"] = filename:absname("/erlang", [Drive|":/"]), + ?line [Drive|":/erlang/src"] = filename:absname("/erlang/src", + [Drive|":/"]), + ?line [Drive|":/erlang/src"] = filename:absname("\\erlang\\\\src", + [Drive|":/"]), + ?line [Drive|":/erlang"] = filename:absname([Drive|":erlang"], + [Drive|":/"]), + ?line [Drive|":/erlang/src"] = filename:absname([Drive|":erlang/src"], + [Drive|":/"]), + ?line "a:/erlang" = filename:absname("a:erlang", [Drive|":/"]), + + ok; + {unix, _} -> + ?line "/usr/foo" = filename:absname(foo, "/usr"), + ?line "/usr/foo" = filename:absname("foo", "/usr"), + ?line "/usr/../ebin" = filename:absname("../ebin", "/usr"), + + ?line "/foo" = filename:absname(foo, "/"), + ?line "/foo" = filename:absname("foo", "/"), + ?line "/../ebin" = filename:absname("../ebin", "/"), + ?line "/erlang" = filename:absname("/erlang", "/"), + ?line "/erlang/src" = filename:absname("/erlang/src", "/"), + ?line "/erlang/src" = filename:absname("/erlang///src", "/"), + ok; + vxworks -> + ?line "/usr/foo" = filename:absname(foo, "/usr"), + ?line "/usr/foo" = filename:absname("foo", "/usr"), + ?line "/usr/ebin" = filename:absname("../ebin", "/usr"), + ?line "/usr/ebin" = filename:absname("../ebin", "/usr/src"), + ?line "/erlang" = filename:absname("/erlang", "/usr"), + ?line "/erlang/src" = filename:absname("/erlang/src", "/usr"), + ?line "/erlang/src" = filename:absname("/erlang///src", "/usr"), + ok + end. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +basename_1(Config) when is_list(Config) -> + ?line Dog = test_server:timetrap(test_server:seconds(10)), + ?line "." = filename:basename("."), + ?line "foo" = filename:basename("foo"), + ?line "foo" = filename:basename("/usr/foo"), + ?line "foo.erl" = filename:basename("A:usr/foo.erl"), + ?line "foo" = filename:basename('/usr/foo'), + ?line "foo" = filename:basename(["/usr","/","f","o","o"]), + ?line "foo" = filename:basename(["/usr/",foo]), + ?line "foo" = filename:basename(["/usr/f",oo]), + ?line "foo" = filename:basename(["usr/", "foo"]), + ?line "foo" = filename:basename(["usr/"|foo]), + ?line "foo" = filename:basename(["usr/foo/"]), + ?line case os:type() of + {win32, _} -> + ?line "foo" = filename:basename(["usr\\foo\\"]), + ?line "foo" = filename:basename("A:\\usr\\foo"), + ?line "foo" = filename:basename("A:foo"); + {unix, _} -> + ?line "strange\\but\\true" = + filename:basename("strange\\but\\true"); + vxworks -> + ?line "foo" = filename:basename(["usr\\foo\\"]), + ?line "foo" = filename:basename("elrond:usr\\foo\\"), + ?line "foo" = filename:basename("disk:/foo") + end, + ?line test_server:timetrap_cancel(Dog), + ok. + +basename_2(Config) when is_list(Config) -> + ?line Dog = test_server:timetrap(test_server:seconds(10)), + ?line "." = filename:basename(".", ".erl"), + ?line "foo" = filename:basename("foo.erl", ".erl"), + ?line "foo" = filename:basename('foo.erl', ".erl"), + ?line "foo" = filename:basename("foo.erl", '.erl'), + ?line "foo" = filename:basename(["/usr","/","f","oo"], ".erl"), + ?line "foo.erl" = filename:basename("/usr/foo.erl", ".hrl"), + ?line "foo.erl" = filename:basename("/usr.hrl/foo.erl", ".hrl"), + ?line "foo" = filename:basename("/usr.hrl/foo", ".hrl"), + ?line "foo" = filename:basename("usr/foo/", ".erl"), + ?line "foo.erl" = filename:basename("usr/foo.erl/", ".erl"), + ?line "foo.erl" = filename:basename("usr/foo.erl/", '.erl'), + ?line "foo" = filename:basename(["/usr",'/','f','oo'], ".erl"), + ?line "foo.erl" = filename:basename(["usr/foo.e",'rl/'], ".erl"), + ?line case os:type() of + {win32, _} -> + ?line "foo" = filename:basename("A:foo", ".erl"), + ?line "foo.erl" = filename:basename("a:\\usr\\foo.erl", + ".hrl"), + ?line "foo.erl" = filename:basename("c:\\usr.hrl\\foo.erl", + ".hrl"), + ?line "foo" = filename:basename("A:\\usr\\foo", ".hrl"); + {unix, _} -> + ?line "strange\\but\\true" = + filename:basename("strange\\but\\true.erl", ".erl"), + ?line "strange\\but\\true" = + filename:basename("strange\\but\\true", ".erl"); + vxworks -> + ?line "foo" = filename:basename("net:foo", ".erl"), + ?line "foo.erl" = filename:basename("net:\\usr\\foo.erl", + ".hrl"), + ?line "foo.erl" = + filename:basename("/disk0:\\usr.hrl\\foo.erl", + ".hrl"), + ?line "foo" = filename:basename("/home\\usr\\foo", ".hrl") + end, + ?line test_server:timetrap_cancel(Dog), + ok. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +dirname(Config) when is_list(Config) -> + case os:type() of + {win32,_} -> + ?line "A:/usr" = filename:dirname("A:/usr/foo.erl"), + ?line "A:usr" = filename:dirname("A:usr/foo.erl"), + ?line "/usr" = filename:dirname("\\usr\\foo.erl"), + ?line "/" = filename:dirname("\\usr"), + ?line "A:" = filename:dirname("A:"); + vxworks -> + ?line "net:/usr" = filename:dirname("net:/usr/foo.erl"), + ?line "/disk0:/usr" = filename:dirname("/disk0:/usr/foo.erl"), + ?line "/usr" = filename:dirname("\\usr\\foo.erl"), + ?line "/usr" = filename:dirname("\\usr"), + ?line "net:" = filename:dirname("net:"); + _ -> true + end, + ?line "usr" = filename:dirname("usr///foo.erl"), + ?line "." = filename:dirname("foo.erl"), + ?line "." = filename:dirname("."), + ?line "usr" = filename:dirname('usr/foo.erl'), + ?line "usr" = filename:dirname(['usr','/foo.erl']), + ?line "usr" = filename:dirname(['us','r/foo.erl']), + ?line "usr" = filename:dirname(['usr/','/foo.erl']), + ?line "usr" = filename:dirname(['usr/','foo.erl']), + ?line "usr" = filename:dirname(['usr/'|'foo.erl']), + ?line "usr" = filename:dirname(['usr/f','oo.erl']), + case os:type() of + vxworks -> + ?line "/" = filename:dirname("/"), + ?line "/usr" = filename:dirname("/usr"); + _ -> + ?line "/" = filename:dirname("/"), + ?line "/" = filename:dirname("/usr") + end, + ok. + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +extension(Config) when is_list(Config) -> + ?line ".erl" = filename:extension("A:/usr/foo.erl"), + ?line ".erl" = filename:extension("A:/usr/foo.nisse.erl"), + ?line ".erl" = filename:extension(["A:/usr/", 'foo.ni', "sse.erl"]), + ?line ".erl" = filename:extension(["A:/usr/", 'foo.ni', "sse.e", 'rl']), + ?line ".erl" = filename:extension(["A:/usr/", 'foo.ni', "sse.e"|'rl']), + ?line ".erl" = filename:extension("A:/usr.bar/foo.nisse.erl"), + ?line "" = filename:extension("A:/usr.bar/foo"), + ?line "" = filename:extension("A:/usr/foo"), + ?line case os:type() of + {win32, _} -> + ?line "" = filename:extension("A:\\usr\\foo"), + ?line ".erl" = + filename:extension("A:/usr.bar/foo.nisse.erl"), + ?line "" = filename:extension("A:/usr.bar/foo"), + ok; + vxworks -> + ?line "" = filename:extension("/disk0:\\usr\\foo"), + ?line ".erl" = + filename:extension("net:/usr.bar/foo.nisse.erl"), + ?line "" = filename:extension("net:/usr.bar/foo"), + ok; + _ -> ok + end. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +join(Config) when is_list(Config) -> + ?line "/" = filename:join(["/"]), + ?line "/" = filename:join(["//"]), + ?line "usr/foo.erl" = filename:join("usr","foo.erl"), + ?line "/src/foo.erl" = filename:join(usr, "/src/foo.erl"), + ?line "/src/foo.erl" = filename:join(["/src/",'foo.erl']), + ?line "/src/foo.erl" = filename:join(usr, ["/sr", 'c/foo.erl']), + ?line "/src/foo.erl" = filename:join("usr", "/src/foo.erl"), + + %% Make sure that redundant slashes work too. + ?line "a/b/c/d/e/f/g" = filename:join(["a//b/c/////d//e/f/g"]), + ?line "a/b/c/d/e/f/g" = filename:join(["a//b/c/", "d//e/f/g"]), + ?line "a/b/c/d/e/f/g" = filename:join(["a//b/c", "d//e/f/g"]), + ?line "/d/e/f/g" = filename:join(["a//b/c", "/d//e/f/g"]), + ?line "/d/e/f/g" = filename:join(["a//b/c", "//d//e/f/g"]), + + ?line "foo/bar" = filename:join([$f,$o,$o,$/,[]], "bar"), + + ?line case os:type() of + {win32, _} -> + ?line "d:/" = filename:join(["D:/"]), + ?line "d:/" = filename:join(["D:\\"]), + ?line "d:/abc" = filename:join(["D:/", "abc"]), + ?line "d:abc" = filename:join(["D:", "abc"]), + ?line "a/b/c/d/e/f/g" = + filename:join(["a//b\\c//\\/\\d/\\e/f\\g"]), + ?line "a:usr/foo.erl" = + filename:join(["A:","usr","foo.erl"]), + ?line "/usr/foo.erl" = + filename:join(["A:","/usr","foo.erl"]), + ?line "c:usr" = filename:join("A:","C:usr"), + ?line "a:usr" = filename:join("A:","usr"), + ?line "c:/usr" = filename:join("A:", "C:/usr"), + ?line "c:/usr/foo.erl" = + filename:join(["A:","C:/usr","foo.erl"]), + ?line "c:usr/foo.erl" = + filename:join(["A:","C:usr","foo.erl"]), + ?line "d:/foo" = filename:join([$D, $:, $/, []], "foo"), + ok; + vxworks -> + ?line "Net:" = filename:join(["Net:/"]), + ?line "net:" = filename:join(["net:\\"]), + ?line "net:/abc" = filename:join(["net:/", "abc"]), + ?line "net:/abc" = filename:join(["net:", "abc"]), + ?line "a/b/c/d/e/f/g" = + filename:join(["a//b\\c//\\/\\d/\\e/f\\g"]), + ?line "net:/usr/foo.erl" = + filename:join(["net:","usr","foo.erl"]), + ?line "/usr/foo.erl" = + filename:join(["net:","/usr","foo.erl"]), + ?line "/target:usr" = filename:join("net:","/target:usr"), + ?line "kernel:/usr" = filename:join("net:", "kernel:/usr"), + ?line "foo:/usr/foo.erl" = + filename:join(["A:","foo:/usr","foo.erl"]), + ?line "/disk0:usr/foo.erl" = + filename:join(["kalle:","/disk0:usr","foo.erl"]), + ?line "D:/foo" = filename:join([$D, $:, $/, []], "foo"), + ok; + {unix, _} -> + ok + end. + +pathtype(Config) when is_list(Config) -> + ?line relative = filename:pathtype(".."), + ?line relative = filename:pathtype("foo"), + ?line relative = filename:pathtype("foo/bar"), + ?line relative = filename:pathtype('foo/bar'), + ?line relative = filename:pathtype(['f','oo',"/bar"]), + case os:type() of + {win32, _} -> + ?line volumerelative = filename:pathtype("/usr/local/bin"), + ?line volumerelative = filename:pathtype("A:usr/local/bin"), + ok; + {unix, _} -> + ?line absolute = filename:pathtype("/"), + ?line absolute = filename:pathtype("/usr/local/bin"), + ok; + vxworks -> + ?line absolute = filename:pathtype("/usr/local/bin"), + ?line absolute = filename:pathtype("net:usr/local/bin"), + ok + end. + +rootname(Config) when is_list(Config) -> + ?line "/jam.src/kalle" = filename:rootname("/jam.src/kalle"), + ?line "/jam.src/foo" = filename:rootname("/jam.src/foo.erl"), + ?line "/jam.src/foo" = filename:rootname(["/ja",'m.sr',"c/foo.erl"]), + ?line "/jam.src/foo" = filename:rootname("/jam.src/foo.erl", ".erl"), + ?line "/jam.src/foo.jam" = filename:rootname("/jam.src/foo.jam", ".erl"), + ?line "/jam.src/foo.jam" = filename:rootname(["/jam.sr",'c/foo.j',"am"],".erl"), + ?line "/jam.src/foo.jam" = filename:rootname(["/jam.sr",'c/foo.j'|am],".erl"), + ok. + +split(Config) when is_list(Config) -> + case os:type() of + vxworks -> + ?line ["/usr","local","bin"] = filename:split("/usr/local/bin"); + _ -> + ?line ["/","usr","local","bin"] = filename:split("/usr/local/bin") + end, + ?line ["foo","bar"]= filename:split("foo/bar"), + ?line ["foo", "bar", "hello"]= filename:split("foo////bar//hello"), + ?line ["foo", "bar", "hello"]= filename:split(["foo//",'//bar//h',"ello"]), + ?line ["foo", "bar", "hello"]= filename:split(["foo//",'//bar//h'|ello]), + case os:type() of + {win32,_} -> + ?line ["a:/","msdev","include"] = + filename:split("a:/msdev/include"), + ?line ["a:/","msdev","include"] = + filename:split("A:/msdev/include"), + ?line ["msdev","include"] = + filename:split("msdev\\include"), + ?line ["a:/","msdev","include"] = + filename:split("a:\\msdev\\include"), + ?line ["a:","msdev","include"] = + filename:split("a:msdev\\include"), + ok; + vxworks -> + ?line ["net:","msdev","include"] = + filename:split("net:/msdev/include"), + ?line ["Target:","msdev","include"] = + filename:split("Target:/msdev/include"), + ?line ["msdev","include"] = + filename:split("msdev\\include"), + ?line ["/disk0:","msdev","include"] = + filename:split("/disk0:\\msdev\\include"), + ?line ["a:","msdev","include"] = + filename:split("a:msdev\\include"), + ok; + _ -> + ok + end. + +t_nativename(Config) when is_list(Config) -> + ?line "abcedf" = filename:nativename(abcedf), + ?line "abcedf" = filename:nativename(["abc", "edf"]), + ?line "abcgluff" = filename:nativename(["abc", gluff]), + case os:type() of + {win32, _} -> + ?line "a:\\temp\\arne.exe" = + filename:nativename("A:/temp//arne.exe/"); + _ -> + ?line "/usr/tmp/arne" = + filename:nativename("/usr/tmp//arne/") + end. + +find_src(Config) when is_list(Config) -> + ?line {Source,_} = filename:find_src(file), + ?line ["file"|_] = lists:reverse(filename:split(Source)), + ?line {_,_} = filename:find_src(init, [{".","."}, {"ebin","src"}]), + + %% Try to find the source for a preloaded module. + ?line {error,{preloaded,init}} = filename:find_src(init), + ok. |