dialyzer: Strengthen maps tests

1 files changed, 31 insertions, 0 deletions

diff --git a/lib/dialyzer/test/small_SUITE_data/src/maps_sum.erl b/lib/dialyzer/test/small_SUITE_data/src/maps_sum.erl
new file mode 100644
index 0000000000..a73ac555c9
--- /dev/null
+++ b/lib/dialyzer/test/small_SUITE_data/src/maps_sum.erl
@@ -0,0 +1,31 @@
+-module(maps_sum).
+-export([correct1/1,
+	 wrong1/1,
+	 wrong2/1]).
+
+-spec correct1(#{atom() => term()}) -> integer().
+
+correct1(Data) ->
+    maps:fold(fun (_Key, Value, Acc) when is_integer(Value) ->
+                      Acc + Value;
+                  (_Key, _Value, Acc) ->
+                      Acc
+              end, 0, Data).
+
+-spec wrong1([{atom(),term()}]) -> integer().
+
+wrong1(Data) ->
+    maps:fold(fun (_Key, Value, Acc) when is_integer(Value) ->
+                      Acc + Value;
+                  (_Key, _Value, Acc) ->
+                      Acc
+              end, 0, Data).
+
+-spec wrong2(#{atom() => term()}) -> integer().
+
+wrong2(Data) ->
+    lists:foldl(fun (_Key, Value, Acc) when is_integer(Value) ->
+                      Acc + Value;
+                  (_Key, _Value, Acc) ->
+                      Acc
+		end, 0, Data).