diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2015-03-27 18:40:59 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2015-03-27 18:40:59 +0100 |
| commit | 43b489d3901543251a6a1a49cb899b5b199864ba (patch) | |
| tree | 5e9f7ed2df88b26559266bc18eb6a7252abc2a5c /erts/emulator/test/map_SUITE.erl | |
| parent | 740f19448e936d9f03ceb50d27ec1a76749dda6a (diff) | |
| download | otp-43b489d3901543251a6a1a49cb899b5b199864ba.tar.gz otp-43b489d3901543251a6a1a49cb899b5b199864ba.tar.bz2 otp-43b489d3901543251a6a1a49cb899b5b199864ba.zip | |
erts: Add tests for internal_hash
Diffstat (limited to 'erts/emulator/test/map_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/map_SUITE.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/erts/emulator/test/map_SUITE.erl b/erts/emulator/test/map_SUITE.erl index 228832ac0a..e28f8f2d0e 100644 --- a/erts/emulator/test/map_SUITE.erl +++ b/erts/emulator/test/map_SUITE.erl @@ -64,6 +64,7 @@ %% misc t_hashmap_balance/1, t_erts_internal_order/1, + t_erts_internal_hash/1, t_pdict/1, t_ets/1, t_dets/1, @@ -115,6 +116,7 @@ all() -> [ %% Other functions t_hashmap_balance, t_erts_internal_order, + t_erts_internal_hash, t_pdict, t_ets, t_tracing @@ -1549,6 +1551,18 @@ t_erts_internal_order(_Config) when is_list(_Config) -> 1 = maps:get(0,M1), ok. +t_erts_internal_hash(_Config) when is_list(_Config) -> + K1 = 0.0, + K2 = 0.0/-1, + + M1 = (maps:from_list([{I,I}||I<-lists:seq(1,32)]))#{ K1 => a, K2 => b }, + b = maps:get(K2,M1), + + M2 = (maps:from_list([{I,I}||I<-lists:seq(1,32)]))#{ K2 => a, K1 => b }, + b = maps:get(K1,M2), + + ok. + t_pdict(_Config) -> put(#{ a => b, b => a},#{ c => d}), |