diff options
| author | Dan Gudmundsson <[email protected]> | 2013-08-28 14:05:08 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2014-01-21 10:56:50 +0100 |
| commit | 048400b08872d95ce7a8b48e346b49971acb6506 (patch) | |
| tree | 4176a0d94084f0ba1e738cc6b1d87a1448c7a4f2 /lib/kernel/test/code_SUITE.erl | |
| parent | 248e2eb0462e5d180b2c35a726aba734ce2c2182 (diff) | |
| download | otp-048400b08872d95ce7a8b48e346b49971acb6506.tar.gz otp-048400b08872d95ce7a8b48e346b49971acb6506.tar.bz2 otp-048400b08872d95ce7a8b48e346b49971acb6506.zip | |
Fix testing with unicode paths
re needs unicode option
Diffstat (limited to 'lib/kernel/test/code_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/code_SUITE.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/kernel/test/code_SUITE.erl b/lib/kernel/test/code_SUITE.erl index 17983e972d..95fc5e398c 100644 --- a/lib/kernel/test/code_SUITE.erl +++ b/lib/kernel/test/code_SUITE.erl @@ -653,7 +653,7 @@ clash(Config) when is_list(Config) -> DDir = ?config(data_dir,Config)++"clash/", P = code:get_path(), [TestServerPath|_] = [Path || Path <- code:get_path(), - re:run(Path,"test_server/?$",[]) /= nomatch], + re:run(Path,"test_server/?$",[unicode]) /= nomatch], %% test non-clashing entries @@ -1527,7 +1527,10 @@ create_big_script(Config,Local) -> Leftover <- UnloadFix, lists:keymember(Leftover,1,InitialApplications) ], %% Now we should have only "real" applications... - [application:load(list_to_atom(Y)) || {match,[Y]} <- [ re:run(X,code:lib_dir()++"/"++"([^/-]*).*/ebin",[{capture,[1],list}]) || X <- code:get_path()],filter_app(Y,Local)], + [application:load(list_to_atom(Y)) + || {match,[Y]} <- [ re:run(X,code:lib_dir()++"/"++"([^/-]*).*/ebin", + [{capture,[1],list, unicode}]) || + X <- code:get_path()],filter_app(Y,Local)], Apps = [ {N,V} || {N,_,V} <- application:loaded_applications()], {ok,Fd} = file:open(Name ++ ".rel", [write]), io:format(Fd, |