From 311ed3490b2b9dc93433827a3941c14e40f41a2e Mon Sep 17 00:00:00 2001 From: Peter Andersson Date: Mon, 5 Jul 2010 23:38:58 +0200 Subject: Fix bug that crashes common_test when running cover --- lib/common_test/src/ct_framework.erl | 5 ++--- lib/common_test/src/ct_logs.erl | 4 ++-- lib/common_test/src/ct_util.erl | 10 +--------- 3 files changed, 5 insertions(+), 14 deletions(-) diff --git a/lib/common_test/src/ct_framework.erl b/lib/common_test/src/ct_framework.erl index 4104115484..f2ca023cff 100644 --- a/lib/common_test/src/ct_framework.erl +++ b/lib/common_test/src/ct_framework.erl @@ -1247,9 +1247,8 @@ overview_html_header(TestName) -> true -> ""; false -> - CTPath = ct_util:get_ct_root(), - TileFile = filename:join(filename:join(filename:join(CTPath), - "priv"),"tile1.jpg"), + CTPath = code:lib_dir(common_test), + TileFile = filename:join(filename:join(CTPath,"priv"),"tile1.jpg"), " background=\"" ++ TileFile ++ "\"" end, diff --git a/lib/common_test/src/ct_logs.erl b/lib/common_test/src/ct_logs.erl index 004d0d2540..f8ae7202e6 100644 --- a/lib/common_test/src/ct_logs.erl +++ b/lib/common_test/src/ct_logs.erl @@ -1069,8 +1069,8 @@ body_tag() -> "\n"; false -> - CTPath = ct_util:get_ct_root(), - TileFile = filename:join(filename:join(filename:join(CTPath),"priv"),"tile1.jpg"), + CTPath = code:lib_dir(common_test), + TileFile = filename:join(filename:join(CTPath,"priv"),"tile1.jpg"), "\n" end. diff --git a/lib/common_test/src/ct_util.erl b/lib/common_test/src/ct_util.erl index 86e1482eb0..0a434666fa 100644 --- a/lib/common_test/src/ct_util.erl +++ b/lib/common_test/src/ct_util.erl @@ -45,7 +45,7 @@ -export([get_mode/0, create_table/3, read_opts/0]). --export([set_cwd/1, reset_cwd/0, get_ct_root/0]). +-export([set_cwd/1, reset_cwd/0]). -export([parse_table/1]). @@ -619,14 +619,6 @@ get_testdir(Dir, Suite) when is_list(Suite) -> get_testdir(Dir, _) -> get_testdir(Dir, all). -%%%----------------------------------------------------------------- -%%% @spec -%%% -%%% @doc -get_ct_root() -> - [_Ebin|CTPath] = lists:reverse(filename:split(filename:dirname(code:which(?MODULE)))), - lists:reverse(CTPath). - %%%----------------------------------------------------------------- %%% @spec %%% -- cgit v1.2.3