diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2015-03-12 09:55:04 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2015-03-12 09:55:04 +0100 |
| commit | 12408cf3657a88540d7afde88e68639c72212299 (patch) | |
| tree | 9e77fc17822835d59c468609fca7c645a28890b0 | |
| parent | 36576d7de20e4e8cb7b3943cfe1b7e272b5e3971 (diff) | |
| download | otp-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.erl | 5 |
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) -> |