From 7e42aefdecae6cc91bdaaef21924b4e7cb75861c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Wed, 30 Oct 2013 16:09:29 +0100
Subject: erts: Add tests for non BIFs in Maps module

  * maps:without/2
  * maps:foldl/3
  * maps:foldr/3
  * maps:map/2
  * maps:size/1
---
 erts/emulator/test/map_SUITE.erl | 55 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 54 insertions(+), 1 deletion(-)

(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 59fdb82f50..b6cfd668f1 100644
--- a/erts/emulator/test/map_SUITE.erl
+++ b/erts/emulator/test/map_SUITE.erl
@@ -47,6 +47,12 @@
 	t_erlang_hash/1,
 	t_map_encode_decode/1,
 
+	%% maps module not bifs
+	t_maps_fold/1,
+	t_maps_map/1,
+	t_maps_size/1,
+	t_maps_without/1,
+
 	%% misc
 	t_pdict/1,
 	t_ets/1,
@@ -74,9 +80,13 @@ all() -> [
 
 	%% erlang
 	t_erlang_hash, t_map_encode_decode,
-	%t_size,
 	t_map_size,
 
+	%% maps module
+	t_maps_fold, t_maps_map,
+	t_maps_size, t_maps_without,
+
+
         %% Other functions
 	t_pdict,
 	t_ets,
@@ -770,6 +780,49 @@ t_bif_map_from_list(Config) when is_list(Config) ->
     {'EXIT', {badarg,_}} = (catch maps:from_list(id(42))),
     ok.
 
+%% Maps module, not BIFs
+t_maps_fold(_Config) ->
+
+    Vs = lists:seq(1,100),
+    Rs = lists:reverse(Vs),
+    M  = maps:from_list([{{k,I},{v,I}}||I<-Vs]),
+
+    %% foldl
+    5050 = maps:foldl(fun({k,_},{v,V},A) -> V + A end, 0, M),
+    Rs = maps:foldl(fun({k,_},{v,V},A) -> [V|A] end, [], M),
+
+    %% foldr
+    5050 = maps:foldr(fun({k,_},{v,V},A) -> V + A end, 0, M),
+    Vs = maps:foldr(fun({k,_},{v,V},A) -> [V|A] end, [], M),
+
+    ok.
+
+t_maps_map(_Config) ->
+    Vs = lists:seq(1,100),
+    M1 = maps:from_list([{I,I}||I<-Vs]),
+    M2 = maps:from_list([{I,{token,I}}||I<-Vs]),
+
+    M2 = maps:map(fun(_K,V) -> {token,V} end, M1),
+    ok.
+
+t_maps_size(_Config) ->
+    Vs = lists:seq(1,100),
+    lists:foldl(fun(I,M) ->
+		M1 = maps:put(I,I,M),
+		I  = maps:size(M1),
+		M1
+	end, #{}, Vs),
+    ok.
+
+
+t_maps_without(_Config) ->
+    Ki = [11,22,33,44,55,66,77,88,99],
+    M0 = maps:from_list([{{k,I},{v,I}}||I<-lists:seq(1,100)]),
+    M1 = maps:from_list([{{k,I},{v,I}}||I<-lists:seq(1,100) -- Ki]),
+    M1 = maps:without([{k,I}||I <- Ki],M0),
+    ok.
+
+
 %% MISC
 t_pdict(_Config) ->
 
-- 
cgit v1.2.3