aboutsummaryrefslogtreecommitdiffstats
path: root/lib/compiler/test/map_SUITE.erl
diff options
context:
space:
mode:
authorJohn Högberg <[email protected]>2018-07-04 09:48:27 +0200
committerJohn Högberg <[email protected]>2018-07-04 09:48:27 +0200
commite4529b82e0f2980a8b3f4b961dc18ff1fdd43d8e (patch)
tree821c452aa4524b2bd4922fefd0f00eb9ac7ac396 /lib/compiler/test/map_SUITE.erl
parent75e63dde39b73613cdb08bcb011a82a21d8707fc (diff)
parent1f55b15c5e3f6ff79c855963876c501e9f782406 (diff)
downloadotp-e4529b82e0f2980a8b3f4b961dc18ff1fdd43d8e.tar.gz
otp-e4529b82e0f2980a8b3f4b961dc18ff1fdd43d8e.tar.bz2
otp-e4529b82e0f2980a8b3f4b961dc18ff1fdd43d8e.zip
Merge branch 'maint-21' into maint
* maint-21: Updated OTP version Update release notes Update version numbers Eliminate a crash in the beam_jump pass stdlib: Fix a 'chars_limit' bug Fix a race condition when generating async operation ids Fix internal compiler error for map_get/2 beam_type: Fix unsafe optimization public_key: Remove moduli 5121 and 7167 Thoose were added by 598629aeba9de98e8cdf5637043eb34e5d407751 but are not universaly supported.
Diffstat (limited to 'lib/compiler/test/map_SUITE.erl')
-rw-r--r--lib/compiler/test/map_SUITE.erl6
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/compiler/test/map_SUITE.erl b/lib/compiler/test/map_SUITE.erl
index 6badc7a8b8..494faf299b 100644
--- a/lib/compiler/test/map_SUITE.erl
+++ b/lib/compiler/test/map_SUITE.erl
@@ -706,6 +706,12 @@ t_map_get(Config) when is_list(Config) ->
{'EXIT',{{badmap,[]},_}} = (catch map_get(a, [])),
{'EXIT',{{badmap,<<1,2,3>>},_}} = (catch map_get(a, <<1,2,3>>)),
{'EXIT',{{badmap,1},_}} = (catch map_get(a, 1)),
+
+ %% Test that beam_validator understands that NewMap is
+ %% a map after seeing map_get(a, NewMap).
+ NewMap = id(#{a=>b}),
+ b = map_get(a, NewMap),
+ #{a:=z} = NewMap#{a:=z},
ok.
check_map_value(Map, Key, Value) when map_get(Key, Map) =:= Value -> true;