diff options
author | Björn-Egil Dahlberg <[email protected]> | 2014-05-09 17:59:12 +0200 |
---|---|---|
committer | Björn-Egil Dahlberg <[email protected]> | 2014-05-09 17:59:12 +0200 |
commit | 1c817ecd054780551bcbe8b5a0e30bea2b3da04e (patch) | |
tree | e1a57c1592b3662cc785f4770e210140593a9986 /lib/hipe/test/maps_SUITE_data/maps_warn_pair_key_overloaded.erl | |
parent | 659213c7facb71410fe990d5099abf3019c58b3e (diff) | |
parent | f6d5234c391a0ba834337c3e92ee5fb377834a32 (diff) | |
download | otp-1c817ecd054780551bcbe8b5a0e30bea2b3da04e.tar.gz otp-1c817ecd054780551bcbe8b5a0e30bea2b3da04e.tar.bz2 otp-1c817ecd054780551bcbe8b5a0e30bea2b3da04e.zip |
Merge branch 'ks/hipe-map-support/OTP-11900' into maint
* ks/hipe-map-support/OTP-11900:
Add five new test files for maps in the HiPE test suite
Copy the tests for maps from the compiler application to a new HiPE test suite
Translate the put_map_assoc and put_map_exact BEAM instructions to ICode
Translate the has_map_fields and get_map_elements BEAM instructions to ICode
Diffstat (limited to 'lib/hipe/test/maps_SUITE_data/maps_warn_pair_key_overloaded.erl')
-rw-r--r-- | lib/hipe/test/maps_SUITE_data/maps_warn_pair_key_overloaded.erl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/hipe/test/maps_SUITE_data/maps_warn_pair_key_overloaded.erl b/lib/hipe/test/maps_SUITE_data/maps_warn_pair_key_overloaded.erl new file mode 100644 index 0000000000..76b2a91f94 --- /dev/null +++ b/lib/hipe/test/maps_SUITE_data/maps_warn_pair_key_overloaded.erl @@ -0,0 +1,27 @@ +-module(maps_warn_pair_key_overloaded). +-export([test/0]). + +test() -> + #{ "hi1" := 42 } = id(#{ "hi1" => 1, "hi1" => 42 }), + + #{ "hi1" := 1337, "hi2" := [2], "hi3" := 3 } = id(#{ + "hi1" => erlang:atom_to_binary(?MODULE,utf8), + "hi1" => erlang:binary_to_atom(<<"wazzup">>,utf8), + "hi1" => erlang:binary_to_float(<<"3.1416">>), + "hi1" => erlang:float_to_binary(3.1416), + "hi2" => erlang:pid_to_list(self()), + "hi3" => erlang:float_to_binary(3.1416), + "hi2" => lists:subtract([1,2],[1]), + "hi3" => +3, + "hi1" => erlang:min(1,2), + "hi1" => erlang:hash({1,2},35), + "hi1" => erlang:phash({1,2},33), + "hi1" => erlang:phash2({1,2},34), + "hi1" => erlang:integer_to_binary(1337), + "hi1" => erlang:binary_to_integer(<<"1337">>), + "hi4" => erlang:float_to_binary(3.1416) + }), + ok. + +%% Use this function to avoid compile-time evaluation of an expression. +id(I) -> I. |