diff options
| author | Björn-Egil Dahlberg <egil@erlang.org> | 2015-05-27 18:06:31 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <egil@erlang.org> | 2015-05-27 18:06:31 +0200 |
| commit | f8922a90a9cc3afb79a89354173da63bb993ab4e (patch) | |
| tree | f10ca1ba74507a8c3c7c9815ae2a89bf18ab4e6a | |
| parent | 52f8d250db7d145f8bc13d03bcdba3b165d0d0d6 (diff) | |
| download | erlang-f8922a90a9cc3afb79a89354173da63bb993ab4e.tar.gz | |
stdlib: Fix testcase for qlc_SUITE
| -rw-r--r-- | lib/stdlib/test/qlc_SUITE.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/stdlib/test/qlc_SUITE.erl b/lib/stdlib/test/qlc_SUITE.erl index 0a1b6dd2ba..b478e8e80d 100644 --- a/lib/stdlib/test/qlc_SUITE.erl +++ b/lib/stdlib/test/qlc_SUITE.erl @@ -8153,8 +8153,7 @@ read_error_logger() -> init(Tester) -> {ok, Tester}. -handle_event({error, _GL, {_Pid, _Msg, [Why, _]}}, Tester) - when is_atom(Why) -> +handle_event({error, _GL, {_Pid, _Msg, [Why, _]}}, Tester) when is_atom(Why) -> Tester ! {error, Why}, {ok, Tester}; handle_event({error, _GL, {_Pid, _Msg, [P, T]}}, Tester) when is_pid(P) -> @@ -8163,6 +8162,9 @@ handle_event({error, _GL, {_Pid, _Msg, [P, T]}}, Tester) when is_pid(P) -> handle_event({info_msg, _GL, {_Pid, _Msg, [Why, _]}}, Tester) -> Tester ! {info, Why}, {ok, Tester}; +handle_event({warning_msg, _GL, {_Pid, _Msg, [Why, _]}}, Tester) when is_atom(Why) -> + Tester ! {error, Why}, + {ok, Tester}; handle_event(_Event, State) -> {ok, State}. |