diff options
| author | Dan Gudmundsson <[email protected]> | 2019-04-17 15:01:52 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2019-04-18 06:51:02 +0200 |
| commit | 7287943b470c3fe6ceefd1f9a9fea68736a2b37f (patch) | |
| tree | ce26466cd6523d49479e65a9a0f2bb94ac387851 | |
| parent | 2587405769912b165b4c97d827411db09d7a7882 (diff) | |
| download | otp-7287943b470c3fe6ceefd1f9a9fea68736a2b37f.tar.gz otp-7287943b470c3fe6ceefd1f9a9fea68736a2b37f.tar.bz2 otp-7287943b470c3fe6ceefd1f9a9fea68736a2b37f.zip | |
Fix emacs tests
Didn't work if installed path contained spaces or unicode characters.
| -rw-r--r-- | lib/tools/test/emacs_SUITE.erl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/tools/test/emacs_SUITE.erl b/lib/tools/test/emacs_SUITE.erl index 8756a4e9b3..73270e6ed6 100644 --- a/lib/tools/test/emacs_SUITE.erl +++ b/lib/tools/test/emacs_SUITE.erl @@ -119,7 +119,7 @@ compile_and_load(_Config) -> false -> " " end, emacs([Pedantic, - " -f batch-byte-compile ",filename:join(Dir, File)]), + " -f batch-byte-compile ", dquote(filename:join(Dir, File))]), true end, lists:foreach(Compile, Files), @@ -144,6 +144,10 @@ tests_compiled(_Config) -> ok end. + +dquote(Str) -> + "\"" ++ Str ++ "\"". + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% indent(Config) -> @@ -207,14 +211,14 @@ emacs_version_ok(AcceptVer) -> emacs(EmacsCmds) when is_list(EmacsCmds) -> Cmd = ["emacs ", "--batch --quick ", - "--directory ", emacs_dir(), " ", + "--directory ", dquote(emacs_dir()), " ", "--eval \"(require 'erlang-start)\" " | EmacsCmds], Res0 = os:cmd(Cmd ++ " ; echo $?"), Rows = string:lexemes(Res0, ["\r\n", $\n]), Res = lists:last(Rows), Output = string:join(lists:droplast(Rows), "\n"), - io:format("Cmd ~s:~n => ~s ~ts~n", [Cmd, Res, Output]), + io:format("Cmd ~ts:~n => ~s ~ts~n", [Cmd, Res, Output]), "0" = Res, Output. |