From b3c8e94dd0eae8a01fd4513eff3c2f3741dad193 Mon Sep 17 00:00:00 2001 From: Hans Bolinder Date: Fri, 8 Feb 2019 14:15:11 +0100 Subject: dialyzer: Fix a bug affecting keyfind/keysearch/keymember --- .../test/small_SUITE_data/src/lists_key_bug.erl | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 lib/dialyzer/test/small_SUITE_data/src/lists_key_bug.erl (limited to 'lib/dialyzer') diff --git a/lib/dialyzer/test/small_SUITE_data/src/lists_key_bug.erl b/lib/dialyzer/test/small_SUITE_data/src/lists_key_bug.erl new file mode 100644 index 0000000000..d7cbc27a4d --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/lists_key_bug.erl @@ -0,0 +1,19 @@ +-module(lists_key_bug). + +%% OTP-15570 + +-export([t/1]). + +t(V) -> + K = key(V), + case lists:keyfind(K, 1, [{<<"foo">>, bar}]) of + false -> + a; + {_, _} -> + b + end. + +key(1) -> + 3; +key(2) -> + <<"foo">>. -- cgit v1.2.3