From c0d0515e45f94da60b9be463f1c7e957c14492f1 Mon Sep 17 00:00:00 2001
From: Peter Andersson <peppe@erlang.org>
Date: Mon, 26 Mar 2012 17:35:35 +0200
Subject: Fix problem with wrong data_dir sent to hooks if init_per_* is
 missing

---
 .../cth/tests/ct_data_dir_SUITE.erl                | 67 ++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl

(limited to 'lib/common_test/test/ct_hooks_SUITE_data/cth/tests/ct_data_dir_SUITE.erl')

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.
+    
+
-- 
cgit v1.2.3