aboutsummaryrefslogtreecommitdiffstats
path: root/lib/compiler/test
diff options
context:
space:
mode:
authorAnthony Ramine <[email protected]>2014-03-01 16:27:06 +0100
committerAnthony Ramine <[email protected]>2014-03-01 16:27:06 +0100
commit974de0f23a9f818a2c40cb47d24ebf8d8f8b01d7 (patch)
tree948b5ad0ed37e1dc6ea874ce130dec3e9b4ec4c2 /lib/compiler/test
parentdb911c1f15372d2dadf06e8502506b0936a4fbb3 (diff)
downloadotp-974de0f23a9f818a2c40cb47d24ebf8d8f8b01d7.tar.gz
otp-974de0f23a9f818a2c40cb47d24ebf8d8f8b01d7.tar.bz2
otp-974de0f23a9f818a2c40cb47d24ebf8d8f8b01d7.zip
Fix expansion of map update arguments
Reported-by: José Valim
Diffstat (limited to 'lib/compiler/test')
-rw-r--r--lib/compiler/test/map_SUITE.erl11
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/compiler/test/map_SUITE.erl b/lib/compiler/test/map_SUITE.erl
index 7d35ffc8d5..3080f135b9 100644
--- a/lib/compiler/test/map_SUITE.erl
+++ b/lib/compiler/test/map_SUITE.erl
@@ -42,7 +42,8 @@
t_build_and_match_val/1,
%% errors in 17.0-rc1
- t_update_values/1
+ t_update_values/1,
+ t_expand_map_update/1
]).
suite() -> [].
@@ -68,7 +69,8 @@ all() -> [
t_build_and_match_val,
%% errors in 17.0-rc1
- t_update_values
+ t_update_values,
+ t_expand_map_update
].
groups() -> [].
@@ -273,6 +275,11 @@ t_update_values(Config) when is_list(Config) ->
end, {none, none, #{val1=>none,val2=>none}},List),
ok.
+t_expand_map_update(Config) when is_list(Config) ->
+ M = #{<<"hello">> => <<"world">>}#{<<"hello">> := <<"les gens">>},
+ #{<<"hello">> := <<"les gens">>} = M,
+ ok.
+
check_val(#{val1:=V1, val2:=V2},V1,V2) -> ok.
get_val(#{ "wazzup" := _, val := V}) -> V;