erts: add testcase

Author: frazze-jobb

erts/test/erlexec_SUITE.erl

@@ -31,6 +31,7 @@
          init_per_testcase/2, end_per_testcase/2]).
 
 -export([args_file/1, evil_args_file/1, missing_args_file/1, env/1, args_file_env/1,
+         unicode_args_file/1,
          otp_7461/1, otp_7461_remote/1, argument_separation/1, argument_with_option/1,
          zdbbl_dist_buf_busy_limit/1]).
 
@@ -41,7 +42,8 @@ suite() ->
      {timetrap, {minutes, 1}}].
 
 all() -> 
-    [args_file, evil_args_file, missing_args_file, env, args_file_env,
+    [args_file, evil_args_file, missing_args_file, unicode_args_file,
+     env, args_file_env,
      otp_7461, argument_separation, argument_with_option, zdbbl_dist_buf_busy_limit].
 
 init_per_suite(Config) ->
@@ -318,6 +320,22 @@ missing_args_file(Config) when is_list(Config) ->
             exit({unexpected_args_output, Output, Error})
     end.
 
+unicode_args_file(Config) when is_list(Config) ->
+    %% Test that -args_file works with Unicode paths (e.g. Cyrillic).
+    %% This is a regression test for a bug where fopen() on Windows
+    %% could not open files with non-ASCII paths.
+    PrivDir = proplists:get_value(priv_dir, Config),
+    UnicodeDir = filename:join(PrivDir, "Артем"),
+    ok = file:make_dir(UnicodeDir),
+    AFN = filename:join(UnicodeDir, "args.txt"),
+    write_file(AFN, "-MiscArg1 +\\#100 -extra +XtraArg1"),
+    CmdLine = "-args_file " ++ AFN,
+    {Emu, Misc, Extra} = emu_args(CmdLine),
+    verify_args(["-#100"], Emu),
+    verify_args(["-MiscArg1"], Misc),
+    verify_args(["+XtraArg1"], Extra),
+    ok.
+
 env(Config) when is_list(Config) ->
     os:putenv("ERL_AFLAGS", "-MiscArg1 +#100 -extra +XtraArg1 +XtraArg2"),
     CmdLine = "+#200 -MiscArg2 -extra +XtraArg3 +XtraArg4",