diff options
author | Patrik Nyblom <pan@erlang.org> | 2010-12-03 13:16:21 +0100 |
---|---|---|
committer | Patrik Nyblom <pan@erlang.org> | 2010-12-03 13:16:21 +0100 |
commit | 159d79b6657e5bb4f3accb6a0d74b74f06da4ba2 (patch) | |
tree | 2e86c92a66ab581e15c577f99bd8225144b6a05b /lib/kernel | |
parent | 6ea8348174c62812057dd552d0890b2d9d4a3c16 (diff) | |
download | otp-159d79b6657e5bb4f3accb6a0d74b74f06da4ba2.tar.gz otp-159d79b6657e5bb4f3accb6a0d74b74f06da4ba2.tar.bz2 otp-159d79b6657e5bb4f3accb6a0d74b74f06da4ba2.zip |
Test and correct filelib and filename
Diffstat (limited to 'lib/kernel')
-rw-r--r-- | lib/kernel/test/file_name_SUITE.erl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/kernel/test/file_name_SUITE.erl b/lib/kernel/test/file_name_SUITE.erl index 8829e93473..fea4df8539 100644 --- a/lib/kernel/test/file_name_SUITE.erl +++ b/lib/kernel/test/file_name_SUITE.erl @@ -507,6 +507,9 @@ check_very_icky(Mod) -> end, ?line {NumOK,NumNOK} = filelib:fold_files(".",".*",true,fun(_F,{N,M}) when is_list(_F) -> io:format("~ts~n",[_F]),{N+1,M}; (_F,{N,M}) -> io:format("~p~n",[_F]),{N,M+1} end,{0,0}), ?line ok = filelib:fold_files(".",[1076,1089,1072,124,46,42],true,fun(_F,_) -> ok end,false), + ?line SF3 = unicode:characters_to_binary("���subfil3",file:native_name_encoding()), + ?line Sorted = lists:sort([SF3,<<"���subfil2">>]), + ?line Sorted = lists:sort(filelib:wildcard("*",<<"���subdir2">>)), ok catch throw:need_unicode_mode -> |