diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-02-04 17:57:55 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-02-07 16:17:15 +0100 |
| commit | d2c8aaef5917101c29f055cd235e604a5d9d728b (patch) | |
| tree | 07242cb19f1673da6965aad040d303a2c2cfdab0 /erts/emulator/test/map_SUITE.erl | |
| parent | 665d708cf6804d552a07d294317e2c10443b5a62 (diff) | |
| download | otp-d2c8aaef5917101c29f055cd235e604a5d9d728b.tar.gz otp-d2c8aaef5917101c29f055cd235e604a5d9d728b.tar.bz2 otp-d2c8aaef5917101c29f055cd235e604a5d9d728b.zip | |
erts,compiler: Correct and amend tests for Maps
Faulty test for maps update
Diffstat (limited to 'erts/emulator/test/map_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/map_SUITE.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/erts/emulator/test/map_SUITE.erl b/erts/emulator/test/map_SUITE.erl index 31c1486f1c..8cc5621181 100644 --- a/erts/emulator/test/map_SUITE.erl +++ b/erts/emulator/test/map_SUITE.erl @@ -254,7 +254,15 @@ t_update_exact(Config) when is_list(Config) -> M2 = M0#{3.0:=new}, #{1:=a,2:=b,3.0:=new,4:=d,5:=e} = M2, M2 = M0#{3.0=>wrong,3.0:=new}, - M2 = M0#{3=>wrong,3.0:=new}, + true = M2 =/= M0#{3=>right,3.0:=new}, + #{ 3 := right, 3.0 := new } = M0#{3=>right,3.0:=new}, + + M3 = id(#{ 1 => val}), + #{1 := update2,1.0 := new_val4} = M3#{ + 1.0 => new_val1, 1 := update, 1=> update3, + 1 := update2, 1.0 := new_val2, 1.0 => new_val3, + 1.0 => new_val4 }, + %% Errors cases. {'EXIT',{badarg,_}} = (catch M0#{nonexisting:=val}), |