Bugfix escript_SUITE:archive_script_file_access

Used internal function do_run/3 instead of run/3 for executing
escript. This will always fail on windows.

1 files changed, 6 insertions, 6 deletions

diff --git a/lib/stdlib/test/escript_SUITE.erl b/lib/stdlib/test/escript_SUITE.erl
index e76d0972f3..38c085616d 100644
--- a/lib/stdlib/test/escript_SUITE.erl
+++ b/lib/stdlib/test/escript_SUITE.erl
@@ -557,8 +557,8 @@ archive_script_file_access(Config) when is_list(Config) ->
 
     %% Change to script's directory and run it as "./<script_name>"
     ok = file:set_cwd(PrivDir),
-    do_run(PrivDir, "./" ++ ScriptName1 ++ " " ++ ScriptName1,
-	   [<<"ExitCode:0">>]),
+    run(PrivDir, "./" ++ ScriptName1 ++ " " ++ ScriptName1,
+	[<<"ExitCode:0">>]),
     ok = file:set_cwd(TopDir),
 
 
@@ -591,16 +591,16 @@ archive_script_file_access(Config) when is_list(Config) ->
 
     %% Change to script's directory and run it as "./<script_name>"
     ok = file:set_cwd(PrivDir),
-    do_run(PrivDir, "./" ++ ScriptName2 ++ " " ++ ScriptName2,
-	   [<<"ExitCode:0">>]),
+    run(PrivDir, "./" ++ ScriptName2 ++ " " ++ ScriptName2,
+	[<<"ExitCode:0">>]),
 
     %% 3. If symlinks are supported, run one of the scripts via a symlink.
     %%
     %% This is in order to test error b) described above this test case.
     case file:read_link(Symlink2) of
 	{ok,_} ->
-	    do_run(PrivDir, "./" ++ SymlinkName2 ++ " " ++ ScriptName2,
-		   [<<"ExitCode:0">>]);
+	    run(PrivDir, "./" ++ SymlinkName2 ++ " " ++ ScriptName2,
+		[<<"ExitCode:0">>]);
 	_ -> % not supported
 	    ok
     end,