Skip to content

Commit

Permalink
Merge branch 'pan/unicode-filenames/testcase-correction' into dev
Browse files Browse the repository at this point in the history
* pan/unicode-filenames/testcase-correction:
  Make file_name_SUITE:very_icky work on Windows

OTP-8887
  • Loading branch information
bufflig committed Dec 20, 2010
2 parents cafd784 + e637115 commit efb4fe5
Showing 1 changed file with 10 additions and 2 deletions.
12 changes: 10 additions & 2 deletions lib/kernel/test/file_name_SUITE.erl
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit efb4fe5

Please sign in to comment.