aboutsummaryrefslogtreecommitdiffstats
path: root/lib/megaco/test
diff options
context:
space:
mode:
authorMicael Karlberg <[email protected]>2011-11-28 13:02:46 +0100
committerMicael Karlberg <[email protected]>2011-11-28 13:02:46 +0100
commit7f97a16ec60f0bcc44db97b257dd96d40d32a3ef (patch)
tree5beb333c6dfa027ab62fee5a030ea89e296668f8 /lib/megaco/test
parent4fee3925d969a42088af74dd02a791bb8e27fd9b (diff)
downloadotp-7f97a16ec60f0bcc44db97b257dd96d40d32a3ef.tar.gz
otp-7f97a16ec60f0bcc44db97b257dd96d40d32a3ef.tar.bz2
otp-7f97a16ec60f0bcc44db97b257dd96d40d32a3ef.zip
Exits from undefined functions or function cluases now
also include extra info, such as line numbers.
Diffstat (limited to 'lib/megaco/test')
-rw-r--r--lib/megaco/test/megaco_mess_test.erl19
1 files changed, 15 insertions, 4 deletions
diff --git a/lib/megaco/test/megaco_mess_test.erl b/lib/megaco/test/megaco_mess_test.erl
index 383e3df774..b4334149fc 100644
--- a/lib/megaco/test/megaco_mess_test.erl
+++ b/lib/megaco/test/megaco_mess_test.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 1999-2010. All Rights Reserved.
+%% Copyright Ericsson AB 1999-2011. 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
@@ -456,9 +456,20 @@ connect(Config) when is_list(Config) ->
?VERIFY(bad_send_mod, megaco:user_info(MgMid, send_mod)),
?VERIFY(bad_send_mod, megaco:conn_info(PrelCH, send_mod)),
SC = service_change_request(),
- ?VERIFY({1, {error, {send_message_failed, {'EXIT',
- {undef, [{bad_send_mod, send_message, [sh, _]} | _]}}}}},
- megaco:call(PrelCH, [SC], [])),
+ case megaco:call(PrelCH, [SC], []) of
+ {error,
+ {send_message_failed,
+ {'EXIT', {undef, [{bad_send_mod, send_message, [sh, _]} | _]}}}} ->
+ ok;
+
+ %% As of R15, we also get some extra info (line numbers, line numbers)
+ {error,
+ {send_message_failed,
+ {'EXIT', {undef, [{bad_send_mod, send_message, [sh, _], _} | _]}}}} ->
+ ok;
+ Unexpected ->
+ ?ERROR(Unexpected)
+ end,
?VERIFY(ok, megaco:disconnect(PrelCH, shutdown)),