aboutsummaryrefslogtreecommitdiffstats
path: root/lib/compiler/test/beam_bool_SUITE.erl
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2016-05-21 07:53:00 +0200
committerBjörn Gustavsson <[email protected]>2016-05-23 08:39:53 +0200
commit69dd6018b7731becda651393b837639746aa63c7 (patch)
tree8ba4636d913c046e4100614ff3afdf394c4cfbdb /lib/compiler/test/beam_bool_SUITE.erl
parent09d729daa2350fc4de577467dca4a8e65f30979b (diff)
downloadotp-69dd6018b7731becda651393b837639746aa63c7.tar.gz
otp-69dd6018b7731becda651393b837639746aa63c7.tar.bz2
otp-69dd6018b7731becda651393b837639746aa63c7.zip
beam_bool_SUITE: Cover one more line
Diffstat (limited to 'lib/compiler/test/beam_bool_SUITE.erl')
-rw-r--r--lib/compiler/test/beam_bool_SUITE.erl14
1 files changed, 12 insertions, 2 deletions
diff --git a/lib/compiler/test/beam_bool_SUITE.erl b/lib/compiler/test/beam_bool_SUITE.erl
index a07d010879..e585eaedb5 100644
--- a/lib/compiler/test/beam_bool_SUITE.erl
+++ b/lib/compiler/test/beam_bool_SUITE.erl
@@ -22,7 +22,8 @@
-export([all/0,suite/0,groups/0,init_per_suite/1,end_per_suite/1,
init_per_group/2,end_per_group/2,
before_and_inside_if/1,
- scotland/1,y_registers/1,protected/1]).
+ scotland/1,y_registers/1,protected/1,
+ maps/1]).
suite() ->
[{ct_hooks,[ts_install_cth]}].
@@ -36,7 +37,8 @@ groups() ->
[before_and_inside_if,
scotland,
y_registers,
- protected
+ protected,
+ maps
]}].
init_per_suite(Config) ->
@@ -179,6 +181,14 @@ welcome({perfect, Profit}) ->
{id({Profit})}
end.
+maps(_Config) ->
+ ok = evidence(#{0 => 42}).
+
+%% Cover handling of put_map in in split_block_label_used/2.
+evidence(#{0 := Charge}) when 0; #{[] => Charge} == #{[] => 42} ->
+ ok.
+
+
%%%
%%% Common utilities.
%%%