aboutsummaryrefslogtreecommitdiffstats
path: root/lib/hipe/test/maps_SUITE_data/maps_get_map_elements.erl
blob: b2d749796abbb761635aeeacb2bf89652c3179ac (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
%% -*- erlang-indent-level: 2 -*-
%%-------------------------------------------------------------------------
-module(maps_get_map_elements).

-export([test/0]).

test() ->
  {A, B} = id({"hej", <<123>>}),
  Map = maps:from_list([{a, A}, {b, B}]),
  #{a := A, b := B} = id(Map),
  false = test_pattern(Map),
  true  = test_pattern(#{b => 1, a => "hej"}),
  case Map of
    #{a := C, b := <<124>>} -> yay;
    _ -> C = B, nay
  end,
  C = id(B),
  ok.

id(X) -> X.

test_pattern(#{a := _, b := 1}) -> true;
test_pattern(#{}) -> false.