From 43b489d3901543251a6a1a49cb899b5b199864ba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Fri, 27 Mar 2015 18:40:59 +0100
Subject: erts: Add tests for internal_hash

---
 erts/emulator/test/map_SUITE.erl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'erts/emulator/test/map_SUITE.erl')

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}),
-- 
cgit v1.2.3