diff options
| author | Micael Karlberg <[email protected]> | 2011-11-28 13:02:46 +0100 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2011-11-28 13:02:46 +0100 |
| commit | 7f97a16ec60f0bcc44db97b257dd96d40d32a3ef (patch) | |
| tree | 5beb333c6dfa027ab62fee5a030ea89e296668f8 | |
| parent | 4fee3925d969a42088af74dd02a791bb8e27fd9b (diff) | |
| download | otp-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.
| -rw-r--r-- | lib/megaco/test/megaco_mess_test.erl | 19 |
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)), |