diff options
| author | Björn Gustavsson <[email protected]> | 2012-10-24 16:59:23 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-10-25 11:10:34 +0200 |
| commit | d0e2f7202ed7d69121185ce58f480174aa4aff9f (patch) | |
| tree | d86ac6929ce2e83d1fd68017895b662265cdd32d /lib/test_server/test/test_server_SUITE.erl | |
| parent | 5f3a7727464522da88d07a3012aa87b8703e3f3a (diff) | |
| download | otp-d0e2f7202ed7d69121185ce58f480174aa4aff9f.tar.gz otp-d0e2f7202ed7d69121185ce58f480174aa4aff9f.tar.bz2 otp-d0e2f7202ed7d69121185ce58f480174aa4aff9f.zip | |
test_server tests: Be kind to Windows by using shorter pathnames
The pathnames gets too long for Windows if we use priv_dir as working
directory for the test_server tests in the slave node. Use data_dir
instead. Revert this commit when the run-time system can handle long
pathnames on Windows.
Diffstat (limited to 'lib/test_server/test/test_server_SUITE.erl')
| -rw-r--r-- | lib/test_server/test/test_server_SUITE.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/test_server/test/test_server_SUITE.erl b/lib/test_server/test/test_server_SUITE.erl index cb8cb9da31..d20528d43b 100644 --- a/lib/test_server/test/test_server_SUITE.erl +++ b/lib/test_server/test/test_server_SUITE.erl @@ -120,9 +120,9 @@ run_test_server_tests(SuiteName, NCases, NFail, NExpected, NSucc, NUsrSkip, NAutoSkip, NActualSkip, NActualFail, NActualSucc, Config) -> + WorkDir = proplists:get_value(work_dir, Config), ct:log("<a href=\"file://~s\">Test case log files</a>\n", - [filename:join([proplists:get_value(priv_dir, Config), - SuiteName++".logs"])]), + [filename:join(WorkDir, SuiteName++".logs")]), Node = proplists:get_value(node, Config), {ok,_Pid} = rpc:call(Node,test_server_ctrl, start, []), @@ -140,8 +140,8 @@ run_test_server_tests(SuiteName, NCases, NFail, NExpected, NSucc, {ok,Data} = test_server_test_lib:parse_suite( hd(filelib:wildcard( - filename:join([proplists:get_value(priv_dir, Config), - SuiteName++".logs","run*","suite.log"])))), + filename:join([WorkDir,SuiteName++".logs", + "run*","suite.log"])))), check([{"Number of cases",NCases,Data#suite.n_cases}, {"Number failed",NFail,Data#suite.n_cases_failed}, {"Number expected",NExpected,Data#suite.n_cases_expected}, |