diff options
| author | Peter Andersson <[email protected]> | 2012-03-27 17:57:40 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2012-03-27 17:57:40 +0200 |
| commit | effdfdc5a7a2d70ea4ce34ce446c9490f424f2d7 (patch) | |
| tree | e91e8706a4e5679c01127e7dfefb44772e69b405 /lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl | |
| parent | efee6d37c1ce665c535a45acb8ee03bce55d1e67 (diff) | |
| parent | c0d0515e45f94da60b9be463f1c7e957c14492f1 (diff) | |
| download | otp-effdfdc5a7a2d70ea4ce34ce446c9490f424f2d7.tar.gz otp-effdfdc5a7a2d70ea4ce34ce446c9490f424f2d7.tar.bz2 otp-effdfdc5a7a2d70ea4ce34ce446c9490f424f2d7.zip | |
Merge remote branch 'origin/peppe/common_test/otp-10022' into maint
* origin/peppe/common_test/otp-10022:
Fix problem with wrong data_dir sent to hooks if init_per_* is missing
Diffstat (limited to 'lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl')
| -rw-r--r-- | lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl b/lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl new file mode 100644 index 0000000000..b4a9079939 --- /dev/null +++ b/lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl @@ -0,0 +1,67 @@ +%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2010-2011. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+-module(ct_data_dir_SUITE).
+
+%% Note: This directive should only be used in test suites.
+-compile(export_all).
+
+-include("ct.hrl").
+
+-define(data_dir_name, atom_to_list(?MODULE)++"_data").
+
+suite() ->
+ [{timetrap, {seconds,1}},
+ {ct_hooks, [verify_data_dir_cth]}].
+
+all() ->
+ [test_case_1, {group,test_group}].
+
+groups() ->
+ [{test_group,[],[test_case_2]}].
+
+init_per_testcase(_, Config) ->
+ check_dirs(Config),
+ Config.
+
+end_per_testcase(_, Config) ->
+ check_dirs(Config),
+ ok.
+
+test_case_1(Config) ->
+ check_dirs(Config),
+ ok.
+
+test_case_2(Config) ->
+ check_dirs(Config),
+ ok.
+
+check_dirs(Config) ->
+ %% check priv_dir
+ PrivDir = proplists:get_value(priv_dir, Config),
+ "log_private" = filename:basename(PrivDir),
+ {ok,_} = file:list_dir(PrivDir),
+
+ %% check data_dir
+ DataDir = proplists:get_value(data_dir, Config),
+ DataDirName = ?data_dir_name,
+ DataDirName = filename:basename(DataDir),
+ ok.
+
+
|