From 4e3cd7868d0d42c066b8222472b741195c76ecad Mon Sep 17 00:00:00 2001 From: Siri Hansen Date: Wed, 8 Aug 2012 16:17:30 +0200 Subject: 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. --- lib/stdlib/test/escript_SUITE.erl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lib') 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 "./" 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 "./" 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, -- cgit v1.2.3