diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2015-04-10 15:52:11 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2015-04-10 15:52:11 +0200 |
| commit | c3b50fc66fced021b0886163b9c7aeb7ce5f20c0 (patch) | |
| tree | 3385486a3762d6f45af3ccfc87b5da069a14f834 /erts/emulator/test/map_SUITE.erl | |
| parent | 42b1ee09491706cd255f8c146e07c1cb2cd939cc (diff) | |
| parent | 30ed5b1cc6aa0efe6ac099b66d33d46c7c0c6b47 (diff) | |
| download | otp-c3b50fc66fced021b0886163b9c7aeb7ce5f20c0.tar.gz otp-c3b50fc66fced021b0886163b9c7aeb7ce5f20c0.tar.bz2 otp-c3b50fc66fced021b0886163b9c7aeb7ce5f20c0.zip | |
Merge branch 'egil/fix-maps-deep-colliding-merge'
* egil/fix-maps-deep-colliding-merge:
erts: Fix deep colliding hash values in maps:from_list/1
Diffstat (limited to 'erts/emulator/test/map_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/map_SUITE.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/erts/emulator/test/map_SUITE.erl b/erts/emulator/test/map_SUITE.erl index dc6286fdb6..f061b177c5 100644 --- a/erts/emulator/test/map_SUITE.erl +++ b/erts/emulator/test/map_SUITE.erl @@ -1888,11 +1888,19 @@ t_bif_map_merge(Config) when is_list(Config) -> M8 = maps:merge(M7,M8), M8 = maps:merge(M8,M8), + %% maps:merge/2 and mixed + + Ks1 = [764492191,2361333849], %% deep collision + Ks2 = lists:seq(1,33), + M9 = maps:from_list([{K,K}||K <- Ks1]), + M10 = maps:from_list([{K,K}||K <- Ks2]), + M11 = maps:merge(M9,M10), + ok = check_keys_exist(Ks1 ++ Ks2, M11), + %% error case {'EXIT',{badarg,[{maps,merge,_,_}|_]}} = (catch maps:merge((1 bsl 65 + 3), <<>>)), {'EXIT',{badarg,[{maps,merge,_,_}|_]}} = (catch maps:merge(<<>>, id(#{ a => 1}))), {'EXIT',{badarg,[{maps,merge,_,_}|_]}} = (catch maps:merge(id(#{ a => 2}), <<>> )), - ok. |