diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-01-27 16:04:49 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-01-29 11:08:50 +0100 |
| commit | a7ff048b6b5d8649d1709a90f7514fccbb5e9235 (patch) | |
| tree | 08891c341174f619ec07311334f92e88f37d1d7c | |
| parent | 335e6bf3e4987e5f549136c1f692c628b1dfc360 (diff) | |
| download | otp-a7ff048b6b5d8649d1709a90f7514fccbb5e9235.tar.gz otp-a7ff048b6b5d8649d1709a90f7514fccbb5e9235.tar.bz2 otp-a7ff048b6b5d8649d1709a90f7514fccbb5e9235.zip | |
erts: Update maps_fold test to respect maps:fold/3
| -rw-r--r-- | erts/emulator/test/map_SUITE.erl | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/erts/emulator/test/map_SUITE.erl b/erts/emulator/test/map_SUITE.erl index 75381de556..faaafb33bc 100644 --- a/erts/emulator/test/map_SUITE.erl +++ b/erts/emulator/test/map_SUITE.erl @@ -816,18 +816,11 @@ t_bif_map_from_list(Config) when is_list(Config) -> %% 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), + %% fold + 5050 = maps:fold(fun({k,_},{v,V},A) -> V + A end, 0, M), ok. |