summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <egil@erlang.org>2015-05-27 18:06:31 +0200
committerBjörn-Egil Dahlberg <egil@erlang.org>2015-05-27 18:06:31 +0200
commitf8922a90a9cc3afb79a89354173da63bb993ab4e (patch)
treef10ca1ba74507a8c3c7c9815ae2a89bf18ab4e6a
parent52f8d250db7d145f8bc13d03bcdba3b165d0d0d6 (diff)
downloaderlang-f8922a90a9cc3afb79a89354173da63bb993ab4e.tar.gz
stdlib: Fix testcase for qlc_SUITE
-rw-r--r--lib/stdlib/test/qlc_SUITE.erl6
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}.