← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/megaco/test/megaco_binary_term_id_test.erl

  • Committer: Bazaar Package Importer
  • Author(s): Erlang Packagers, Sergei Golovan
  • Date: 2006-12-03 17:07:44 UTC
  • mfrom: (2.1.11 feisty)
  • Revision ID: james.westby@ubuntu.com-20061203170744-rghjwupacqlzs6kv
Tags: 1:11.b.2-4
[ Sergei Golovan ]
Fixed erlang-base and erlang-base-hipe prerm scripts.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/megaco/test/megaco_binary_term_id_test.erl
156
156
              [D,Reason]),
157
157
    error.
158
158
 
159
 
check_result(C,D,ok,{ok,T1,T2,T3}) ->
 
159
check_result(_C,D,ok,{ok,T1,T2,T3}) ->
160
160
    Result = case check_ok_result(T1,T3) of
161
161
                 ok -> 
162
162
                     io:format("  => succeeded"
177
177
             end,
178
178
    io:format("~n~n--------------------~n",[]),
179
179
    Result;
180
 
check_result(C,D,error,{ok,T1,T2,T3}) ->
 
180
check_result(_C,D,error,{ok,T1,T2,T3}) ->
181
181
    io:format("  => failed"
182
182
              "~n  ~s"
183
183
              "~n  ~p"
186
186
              "~n~n--------------------~n",
187
187
              [D,T1,T2,T3]),
188
188
    error;
189
 
check_result(C,D,error,{error,Reason}) ->
 
189
check_result(_C,D,error,{error,Reason}) ->
190
190
    io:format("  => succeeded"
191
191
              "~n  ~s"
192
192
              "~n  Operation failed (expectedly) for reason"
194
194
              "~n~n--------------------~n",
195
195
              [D,Reason]),
196
196
    ok;
197
 
check_result(C,D,ok,{error,Reason}) ->
 
197
check_result(_C,D,ok,{error,Reason}) ->
198
198
    io:format("  => failed"
199
199
              "~n  ~s"
200
200
              "~n  Failed for reason"
215
215
                          record(E,'TerminationID') ->
216
216
    Reason = check_TerminationID_record(S,E),
217
217
    {error,Reason}; % Same record type but different record content
218
 
check_ok_result(S,E) ->
 
218
check_ok_result(_S,_E) ->
219
219
    {error,"NOT THE SAME RECORD TYPES"}. % OOPS, Not even the same record type
220
220
    
221
221
check_megaco_term_id_record(#megaco_term_id{contains_wildcards = Cw1, 
977
977
    put(dsev,L),
978
978
    Res = encode1(C,T),
979
979
    erase(dsev),
980
 
    Res;
981
 
encode(_,C,T) ->
982
 
    encode1(C,T).
 
980
    Res.
983
981
 
984
982
encode1(C,T) ->
985
983
    case (catch megaco_binary_term_id:encode(C,T)) of
996
994
    put(dsev,L),
997
995
    Res = decode1(C,T),
998
996
    erase(dsev),
999
 
    Res;
1000
 
decode(_,C,T) ->
1001
 
    decode1(C,T).
 
997
    Res.
1002
998
 
1003
999
decode1(C,T) -> 
1004
1000
    case (catch megaco_binary_term_id:decode(C,T)) of