aboutsummaryrefslogtreecommitdiffstats
path: root/lib/reltool/test/reltool_test_lib.hrl
diff options
context:
space:
mode:
authorSiri Hansen <siri@erlang.org>2012-02-29 15:27:34 +0100
committerSiri Hansen <siri@erlang.org>2012-03-19 09:48:54 +0100
commita3a7c3590f549c609749cff16da7d00af2c114d3 (patch)
treeb7d46193593a66cbec64b41c66ec6756465225fa /lib/reltool/test/reltool_test_lib.hrl
parent70b56b16177703c4721f9afbb0329b181af1de3e (diff)
downloadotp-a3a7c3590f549c609749cff16da7d00af2c114d3.tar.gz
otp-a3a7c3590f549c609749cff16da7d00af2c114d3.tar.bz2
otp-a3a7c3590f549c609749cff16da7d00af2c114d3.zip
[reltool] Cleanup test code
OTP-9794 Remove some unused code from reltool test.
Diffstat (limited to 'lib/reltool/test/reltool_test_lib.hrl')
-rw-r--r--lib/reltool/test/reltool_test_lib.hrl34
1 files changed, 1 insertions, 33 deletions
diff --git a/lib/reltool/test/reltool_test_lib.hrl b/lib/reltool/test/reltool_test_lib.hrl
index b592ebb2f0..0dfc08b81c 100644
--- a/lib/reltool/test/reltool_test_lib.hrl
+++ b/lib/reltool/test/reltool_test_lib.hrl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2009-2010. All Rights Reserved.
+%% Copyright Ericsson AB 2009-2012. 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
@@ -18,20 +18,10 @@
-include_lib("wx/include/wx.hrl").
--define(flat_format(Format,Args), lists:flatten(io_lib:format(Format,Args))).
-define(log(Format,Args), reltool_test_lib:log(Format,Args,?FILE,?LINE)).
--define(warning(Format,Args), ?log("<WARNING>\n " ++ Format,Args)).
-define(error(Format,Args), reltool_test_lib:error(Format,Args,?FILE,?LINE)).
-define(verbose(Format,Args), reltool_test_lib:verbose(Format,Args,?FILE,?LINE)).
--define(fatal(Format,Args),
- ?error(Format, Args),
- exit({test_case_fatal, Format, Args, ?FILE, ?LINE})).
-
--define(skip(Format,Args),
- ?warning(Format, Args),
- exit({skipped, ?flat_format(Format, Args)})).
-
-define(ignore(Expr),
fun() ->
AcTuAlReS = (catch (Expr)),
@@ -68,25 +58,3 @@
AcTuAlReS
end
end()).
-
--define(m_receive(ExpectedMsg),
- ?m(ExpectedMsg,reltool_test_lib:pick_msg())).
-
--define(m_multi_receive(ExpectedMsgs),
- fun() ->
- TmPeXpCtEdMsGs = lists:sort(ExpectedMsgs),
- AcTuAlReS =
- lists:sort(lists:map(fun(_) ->
- reltool_test_lib:pick_msg()
- end, TmPeXpCtEdMsGs)),
- case AcTuAlReS of
- TmPeXpCtEdMsGs ->
- ?verbose("ok: ~p\n",[AcTuAlReS]),
- AcTuAlReS;
- _ ->
- reltool_test_lib:error("Not matching actual result was:\n ~p \nExpected ~p\n",
- [AcTuAlReS, ExpectedMsgs],
- ?FILE, ?LINE),
- AcTuAlReS
- end
- end()).