aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2015-03-12 09:55:04 +0100
committerBjörn-Egil Dahlberg <[email protected]>2015-03-12 09:55:04 +0100
commit12408cf3657a88540d7afde88e68639c72212299 (patch)
tree9e77fc17822835d59c468609fca7c645a28890b0
parent36576d7de20e4e8cb7b3943cfe1b7e272b5e3971 (diff)
downloadotp-12408cf3657a88540d7afde88e68639c72212299.tar.gz
otp-12408cf3657a88540d7afde88e68639c72212299.tar.bz2
otp-12408cf3657a88540d7afde88e68639c72212299.zip
erts: Strengthen maps match spec compilation tests
-rw-r--r--erts/emulator/test/match_spec_SUITE.erl5
1 files changed, 5 insertions, 0 deletions
diff --git a/erts/emulator/test/match_spec_SUITE.erl b/erts/emulator/test/match_spec_SUITE.erl
index 02ef4f8e3f..b231c2bbd9 100644
--- a/erts/emulator/test/match_spec_SUITE.erl
+++ b/erts/emulator/test/match_spec_SUITE.erl
@@ -927,6 +927,11 @@ maps(Config) when is_list(Config) ->
{ok,"camembert",[],[]} =
erlang:match_spec_test(#{b => "camembert",c => "cabécou"},
[{#{b => '$1',c => "cabécou"},[],['$1']}], table),
+
+ {ok,#{a :="camembert",b := "hi"},[],[]} =
+ erlang:match_spec_test(#{<<"b">> =>"camembert","c"=>"cabécou", "wat"=>"hi", b=><<"other">>},
+ [{#{<<"b">> => '$1',"wat" => '$2'},[],[#{a=>'$1',b=>'$2'}]}],
+ table),
ok.
empty_list(Config) when is_list(Config) ->