← Back to branch summary

~ubuntu-branches/ubuntu/trusty/erlang/trusty

« back to all changes in this revision

Viewing changes to lib/cosTransactions/test/etrap_test_lib.hrl

  • Committer: Bazaar Package Importer
  • Author(s): Clint Byrum
  • Date: 2011-05-05 15:48:43 UTC
  • mfrom: (3.5.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110505154843-0om6ekzg6m7ugj27
Tags: 1:14.b.2-dfsg-3ubuntu1
* Merge from debian unstable.  Remaining changes:
  - Drop libwxgtk2.8-dev build dependency. Wx isn't in main, and not
    supposed to.
  - Drop erlang-wx binary.
  - Drop erlang-wx dependency from -megaco, -common-test, and -reltool, they
    do not really need wx. Also drop it from -debugger; the GUI needs wx,
    but it apparently has CLI bits as well, and is also needed by -megaco,
    so let's keep the package for now.
  - debian/patches/series: Do what I meant, and enable build-options.patch
    instead.
* Additional changes:
  - Drop erlang-wx from -et
* Dropped Changes:
  - patches/pcre-crash.patch: CVE-2008-2371: outer level option with
    alternatives caused crash. (Applied Upstream)
  - fix for ssl certificate verification in newSSL: 
    ssl_cacertfile_fix.patch (Applied Upstream)
  - debian/patches/series: Enable native.patch again, to get stripped beam
    files and reduce the package size again. (build-options is what
    actually accomplished this)
  - Remove build-options.patch on advice from upstream and because it caused
    odd build failures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/cosTransactions/test/etrap_test_lib.hrl
 
1
%%
 
2
%% %CopyrightBegin%
 
3
%% 
 
4
%% Copyright Ericsson AB 1999-2011. All Rights Reserved.
 
5
%% 
 
6
%% The contents of this file are subject to the Erlang Public License,
 
7
%% Version 1.1, (the "License"); you may not use this file except in
 
8
%% compliance with the License. You should have received a copy of the
 
9
%% Erlang Public License along with this software. If not, it can be
 
10
%% retrieved online at http://www.erlang.org/.
 
11
%% 
 
12
%% Software distributed under the License is distributed on an "AS IS"
 
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 
14
%% the License for the specific language governing rights and limitations
 
15
%% under the License.
 
16
%% 
 
17
%% %CopyrightEnd%
 
18
%%
 
19
%%
 
20
 
 
21
-ifndef(ETRAP_TEST_LIB_HRL).
 
22
-define(ETRAP_TEST_LIB_HRL, true).
 
23
 
 
24
-define(match(ExpectedRes, Expr, Msg),
 
25
        fun() ->
 
26
               AcTuAlReS = (catch (Expr)),
 
27
               case AcTuAlReS of
 
28
                   ExpectedRes ->
 
29
                       io:format("~n------ CORRECT RESULT ------~n~p~n~p~n",
 
30
                                 [AcTuAlReS, Msg]),
 
31
                       ok;
 
32
                   _ ->
 
33
                       io:format("~n###### ERROR ERROR ######~n~p~n~p~n",
 
34
                                 [AcTuAlReS, Msg]),
 
35
                       exit(AcTuAlReS)
 
36
               end
 
37
       end()).
 
38
 
 
39
-define(match_inverse(NotExpectedRes, Expr, Msg),
 
40
        fun() ->
 
41
                AcTuAlReS = (catch (Expr)),
 
42
               case AcTuAlReS of
 
43
                   NotExpectedRes ->
 
44
                       io:format("~n###### ERROR ERROR ######~n ~p~n~p~n",
 
45
                                 [AcTuAlReS, Msg]),
 
46
                       exit(AcTuAlReS);
 
47
                   _ ->
 
48
                       io:format("~n------ CORRECT RESULT ------~n~p~n~p~n",
 
49
                                 [AcTuAlReS, Msg]),
 
50
                       ok
 
51
               end
 
52
       end()).
 
53
 
 
54
 
 
55
-define(crash_and_recover, fun(_Env)-> exit(crash_and_burn) end).
 
56
 
 
57
-define(crash_no_recovery, fun(Env)-> throw({stop,normal,{Env,state}}) end).
 
58
 
 
59
-define(delay(Time), fun(_Id) -> timer:sleep(Time*1000) end).
 
60
 
 
61
-define(TIMEOUT,        4).
 
62
-define(SUP_TEST(Env, Name), 
 
63
        ['etrap_test_server', Env, 
 
64
         [{sup_child, true}, {persistent, true}, 
 
65
          {regname, {global, Name}}]]).
 
66
 
 
67
-define(no_context, [[],[],[], []]).
 
68
-define(nop, []).
 
69
-define(delay_transient(Tag, Ti),
 
70
        [{Tag, ?delay(Ti), transient}]).
 
71
-define(crash_transient(Tag),
 
72
        [{Tag, ?crash_and_recover, transient}]).
 
73
-define(crash_permanent(Tag),
 
74
        [{Tag, ?crash_no_recovery, permanent}]).
 
75
 
 
76
%%-----------------------------------------------------------
 
77
%% Definition of 'Resource' action.
 
78
%%                         function  action  reply
 
79
%%-----------------------------------------------------------
 
80
%% raise #'CosTransactions_HeuristicMixed' {}
 
81
-define(rollback_mix,     [{rollback, exc, ?tr_mixed}]).
 
82
-define(commit_mix,       [{commit,   exc, ?tr_mixed}]).
 
83
-define(prepare_mix,      [{prepare,  exc, ?tr_mixed}]).
 
84
%% raise #'CosTransactions_HeuristicRollback' {}
 
85
-define(rollback_rb,      [{rollback, exc, ?tr_rollback}]).
 
86
-define(commit_rb,        [{commit,   exc, ?tr_rollback}]).
 
87
%% raise #'CosTransactions_HeuristicCommit' {}
 
88
-define(rollback_cm,      [{rollback, exc, ?tr_commit}]).
 
89
-define(commit_cm,        [{commit,   exc, ?tr_commit}]).
 
90
%% delay reply
 
91
-define(rollback_delay,   [{rollback, delay, ?TIMEOUT*2}]).
 
92
-define(commit_delay,     [{commit,   delay, ?TIMEOUT*2}]).
 
93
-define(prepare_delay,    [{prepare,  delay, ?TIMEOUT*2}]).
 
94
%% other reply than default
 
95
-define(prepare_commit,   [{prepare,  reply, 'VoteCommit'}]).
 
96
-define(prepare_rollback, [{prepare,  stop_reply, 'VoteRollback'}]).
 
97
 
 
98
-endif.
 
99
 
 
100
%%-------------- EOF ---------------------------------------------------