diff options
| author | Björn Gustavsson <[email protected]> | 2016-05-21 07:53:00 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-05-23 08:39:53 +0200 |
| commit | 69dd6018b7731becda651393b837639746aa63c7 (patch) | |
| tree | 8ba4636d913c046e4100614ff3afdf394c4cfbdb | |
| parent | 09d729daa2350fc4de577467dca4a8e65f30979b (diff) | |
| download | otp-69dd6018b7731becda651393b837639746aa63c7.tar.gz otp-69dd6018b7731becda651393b837639746aa63c7.tar.bz2 otp-69dd6018b7731becda651393b837639746aa63c7.zip | |
beam_bool_SUITE: Cover one more line
| -rw-r--r-- | lib/compiler/test/beam_bool_SUITE.erl | 14 |
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. %%% |