diff options
| author | Patrik Nyblom <[email protected]> | 2010-12-20 14:11:45 +0100 |
|---|---|---|
| committer | Patrik Nyblom <[email protected]> | 2010-12-20 14:11:45 +0100 |
| commit | e6371155f2466067541eecafd1ec2a9c8e4a614b (patch) | |
| tree | 4d8b5a76fe49a9c08cc1e0f97d46d99e0808278a | |
| parent | f7eaaee444b6d785bd2a9dbb86e96e6db0c04b4d (diff) | |
| download | otp-e6371155f2466067541eecafd1ec2a9c8e4a614b.tar.gz otp-e6371155f2466067541eecafd1ec2a9c8e4a614b.tar.bz2 otp-e6371155f2466067541eecafd1ec2a9c8e4a614b.zip | |
Make file_name_SUITE:very_icky work on Windows
| -rw-r--r-- | lib/kernel/test/file_name_SUITE.erl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/kernel/test/file_name_SUITE.erl b/lib/kernel/test/file_name_SUITE.erl index fea4df8539..fbafbcd9b7 100644 --- a/lib/kernel/test/file_name_SUITE.erl +++ b/lib/kernel/test/file_name_SUITE.erl @@ -507,8 +507,16 @@ 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 SF3 = unicode:characters_to_binary("���subfil3", + file:native_name_encoding()), + ?line SF2 = case treat_icky(<<"���subfil2">>) of + LF2 when is_list(LF2) -> + unicode:characters_to_binary(LF2, + file:native_name_encoding()); + BF2 -> + BF2 + end, + ?line Sorted = lists:sort([SF3,SF2]), ?line Sorted = lists:sort(filelib:wildcard("*",<<"���subdir2">>)), ok catch |