aboutsummaryrefslogblamecommitdiffstats
path: root/lib/dialyzer/test/map_SUITE_data/src/exact.erl
blob: e5ad02ec548c0d6dd4917af0ea93c3cadc5987e6 (plain) (tree)






















                                 
-module(exact).

-export([t1/1, t2/1]).

t1(M = #{}) ->
    any_map(M),
    case M of
	#{a := _} -> error(fail);
	_ -> ok
    end.

any_map(X) ->
    X#{a => 1, a := 2}.

t2(M = #{}) ->
    has_a(M),
    case M of
	#{a := _} -> error(ok);
	_ -> unreachable
    end.

has_a(M) ->
    M#{a := 1, a => 2}.