Merge branch 'egil/fix-make_internal_hash-float'

* egil/fix-make_internal_hash-float:
  erts: Add tests for internal_hash
  erts: Fix make_internal_hash for 0.0 vs -0.0

1 files changed, 14 insertions, 0 deletions

diff --git a/erts/emulator/test/map_SUITE.erl b/erts/emulator/test/map_SUITE.erl
index 33bf415480..a72c8dafe4 100644
--- a/erts/emulator/test/map_SUITE.erl
+++ b/erts/emulator/test/map_SUITE.erl
@@ -66,6 +66,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,
@@ -119,6 +120,7 @@ all() -> [
         %% Other functions
 	t_hashmap_balance,
         t_erts_internal_order,
+        t_erts_internal_hash,
 	t_pdict,
 	t_ets,
 	t_tracing
@@ -2291,6 +2293,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}),