diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-02-10 15:16:24 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-02-10 15:16:24 +0100 |
| commit | 993642bd638f194c2cbb0e62ee706e8d6eb81fce (patch) | |
| tree | 9a330707eb2dd75fc36c8f237cc59be8a3b44896 /lib/compiler/test/map_SUITE.erl | |
| parent | edb90b1c1e6dc290727a516f4a00e939479aff98 (diff) | |
| parent | 67663e057a35dfee45bf802539738b8ef107bd32 (diff) | |
| download | otp-993642bd638f194c2cbb0e62ee706e8d6eb81fce.tar.gz otp-993642bd638f194c2cbb0e62ee706e8d6eb81fce.tar.bz2 otp-993642bd638f194c2cbb0e62ee706e8d6eb81fce.zip | |
Merge branch 'egil/compiler/maps-fix-sys_core_fold'
* egil/compiler/maps-fix-sys_core_fold:
compiler: Fix sys_core_fold let optimization
compiler: Add debug listing after sys_core_fold
Diffstat (limited to 'lib/compiler/test/map_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/map_SUITE.erl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/compiler/test/map_SUITE.erl b/lib/compiler/test/map_SUITE.erl index bd514c60d0..86f65c3ed6 100644 --- a/lib/compiler/test/map_SUITE.erl +++ b/lib/compiler/test/map_SUITE.erl @@ -179,6 +179,17 @@ t_update_map_expressions(Config) when is_list(Config) -> #{ a :=42, b:=42, c:=42 } = (maps:from_list([{a,1},{b,2},{c,3}]))#{ a := 42, b := 42, c := 42 }, #{ "a" :=1, "b":=42, "c":=42 } = (maps:from_list([{"a",1},{"b",2}]))#{ "b" := 42, "c" => 42 }, + %% Test need to be in a fun. + %% This tests that let expr optimisation in sys_core_fold + %% covers maps correctly. + F = fun() -> + M0 = id(#{ "a" => [1,2,3] }), + #{ "a" := _ } = M0, + M0#{ "a" := b } + end, + + #{ "a" := b } = F(), + %% Error cases, FIXME: should be 'badmap'? {'EXIT',{badarg,_}} = (catch (id(<<>>))#{ a := 42, b => 2 }), {'EXIT',{badarg,_}} = (catch (id([]))#{ a := 42, b => 2 }), |