diff options
author | Peter Andersson <[email protected]> | 2011-04-06 16:51:04 +0200 |
---|---|---|
committer | Peter Andersson <[email protected]> | 2011-04-20 22:32:09 +0200 |
commit | 1b51729df1a5c9678beb73318b8cf2a12b0e145d (patch) | |
tree | ba8f1faaa845bb53e5f56b3963f525a93f90b90a /lib/common_test/test/ct_testspec_1_SUITE.erl | |
parent | e78722d26442a6d0caf81f200ee2bc0a8d7cfbba (diff) | |
download | otp-1b51729df1a5c9678beb73318b8cf2a12b0e145d.tar.gz otp-1b51729df1a5c9678beb73318b8cf2a12b0e145d.tar.bz2 otp-1b51729df1a5c9678beb73318b8cf2a12b0e145d.zip |
Do minor updates of the ts test framework.
Diffstat (limited to 'lib/common_test/test/ct_testspec_1_SUITE.erl')
-rw-r--r-- | lib/common_test/test/ct_testspec_1_SUITE.erl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/common_test/test/ct_testspec_1_SUITE.erl b/lib/common_test/test/ct_testspec_1_SUITE.erl index 9644143090..b6dcf63fdf 100644 --- a/lib/common_test/test/ct_testspec_1_SUITE.erl +++ b/lib/common_test/test/ct_testspec_1_SUITE.erl @@ -612,6 +612,12 @@ setup_and_execute(TCName, TestSpec, Config) -> false -> [{spec,SpecFile},{label,TCName}] end, {Opts,ERPid} = setup(TestTerms, Config), + + FullSpecFile = ct_test_support:join_abs_dirs(?config(net_dir, Opts), + SpecFile), + io:format("~nTest spec created here~n~n<a href=\"file://~s\">~s</a>~n", + [FullSpecFile,FullSpecFile]), + ok = ct_test_support:run(Opts, Config), TestSpec1 = [{logdir,proplists:get_value(logdir,Opts)}, {label,proplists:get_value(label,TestTerms)} | TestSpec], @@ -620,7 +626,8 @@ setup_and_execute(TCName, TestSpec, Config) -> ct_test_support:log_events(TCName, reformat(Events, ?eh), - ?config(priv_dir, Config)), + ?config(priv_dir, Config), + Opts), TestEvents = events_to_check(TCName), ok = ct_test_support:verify_events(TestEvents, Events, Config). @@ -631,8 +638,6 @@ create_spec_file(SpecDir, TCName, TestSpec) -> {ok,Dev} = file:open(FileName, [write]), [io:format(Dev, "~p.~n", [Term]) || Term <- TestSpec], file:close(Dev), - io:format("~nTest spec created here~n~n<a href=\"file://~s\">~s</a>~n", - [FileName,FileName]), FileName. setup(Test, Config) when is_tuple(Test) -> |