Add test suites for (most) CORBA applications

1 files changed, 100 insertions, 0 deletions

diff --git a/lib/cosTransactions/test/etrap_test_lib.hrl b/lib/cosTransactions/test/etrap_test_lib.hrl
new file mode 100644
index 0000000000..d488bf9d12
--- /dev/null
+++ b/lib/cosTransactions/test/etrap_test_lib.hrl
@@ -0,0 +1,100 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1999-2009. 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%
+%%
+%%
+
+-ifndef(ETRAP_TEST_LIB_HRL).
+-define(ETRAP_TEST_LIB_HRL, true).
+
+-define(match(ExpectedRes, Expr, Msg),
+	fun() ->
+	       AcTuAlReS = (catch (Expr)),
+	       case AcTuAlReS of
+		   ExpectedRes ->
+		       io:format("~n------ CORRECT RESULT ------~n~p~n~p~n",
+				 [AcTuAlReS, Msg]),
+		       ok;
+		   _ ->
+		       io:format("~n###### ERROR ERROR ######~n~p~n~p~n",
+				 [AcTuAlReS, Msg]),
+		       exit(AcTuAlReS)
+	       end
+       end()).
+
+-define(match_inverse(NotExpectedRes, Expr, Msg),
+	fun() ->
+		AcTuAlReS = (catch (Expr)),
+	       case AcTuAlReS of
+		   NotExpectedRes ->
+		       io:format("~n###### ERROR ERROR ######~n ~p~n~p~n",
+				 [AcTuAlReS, Msg]),
+		       exit(AcTuAlReS);
+		   _ ->
+		       io:format("~n------ CORRECT RESULT ------~n~p~n~p~n",
+				 [AcTuAlReS, Msg]),
+		       ok
+	       end
+       end()).
+
+
+-define(crash_and_recover, fun(_Env)-> exit(crash_and_burn) end).
+
+-define(crash_no_recovery, fun(Env)-> throw({stop,normal,{Env,state}}) end).
+
+-define(delay(Time), fun(_Id) -> timer:sleep(Time*1000) end).
+
+-define(TIMEOUT,        4).
+-define(SUP_TEST(Env, Name), 
+	['etrap_test_server', Env, 
+	 [{sup_child, true}, {persistent, true}, 
+	  {regname, {global, Name}}]]).
+
+-define(no_context, [[],[],[], []]).
+-define(nop, []).
+-define(delay_transient(Tag, Ti),
+	[{Tag, ?delay(Ti), transient}]).
+-define(crash_transient(Tag),
+	[{Tag, ?crash_and_recover, transient}]).
+-define(crash_permanent(Tag),
+	[{Tag, ?crash_no_recovery, permanent}]).
+
+%%-----------------------------------------------------------
+%% Definition of 'Resource' action.
+%%                         function  action  reply
+%%-----------------------------------------------------------
+%% raise #'CosTransactions_HeuristicMixed' {}
+-define(rollback_mix,     [{rollback, exc, ?tr_mixed}]).
+-define(commit_mix,       [{commit,   exc, ?tr_mixed}]).
+-define(prepare_mix,      [{prepare,  exc, ?tr_mixed}]).
+%% raise #'CosTransactions_HeuristicRollback' {}
+-define(rollback_rb,      [{rollback, exc, ?tr_rollback}]).
+-define(commit_rb,        [{commit,   exc, ?tr_rollback}]).
+%% raise #'CosTransactions_HeuristicCommit' {}
+-define(rollback_cm,      [{rollback, exc, ?tr_commit}]).
+-define(commit_cm,        [{commit,   exc, ?tr_commit}]).
+%% delay reply
+-define(rollback_delay,   [{rollback, delay, ?TIMEOUT*2}]).
+-define(commit_delay,     [{commit,   delay, ?TIMEOUT*2}]).
+-define(prepare_delay,    [{prepare,  delay, ?TIMEOUT*2}]).
+%% other reply than default
+-define(prepare_commit,   [{prepare,  reply, 'VoteCommit'}]).
+-define(prepare_rollback, [{prepare,  stop_reply, 'VoteRollback'}]).
+
+-endif.
+
+%%-------------- EOF ---------------------------------------------------