diff options
| author | Fredrik Gustafsson <[email protected]> | 2013-09-11 12:01:44 +0200 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2013-09-11 12:01:44 +0200 |
| commit | bb73eb3cbf6d7754389ffbe7e0bfe91fab865888 (patch) | |
| tree | 4640727accd0f6b7956e5473e2cf8b37d8544fa0 /erts/emulator/test | |
| parent | de29dde83bc3aa6328e3db6876ddf929a5141e75 (diff) | |
| parent | b6af3b245383767a6ab92a38b7a27732cce3d2bf (diff) | |
| download | otp-bb73eb3cbf6d7754389ffbe7e0bfe91fab865888.tar.gz otp-bb73eb3cbf6d7754389ffbe7e0bfe91fab865888.tar.bz2 otp-bb73eb3cbf6d7754389ffbe7e0bfe91fab865888.zip | |
Merge branch 'jcomellas/jc-integer-to-binary2/OTP-11311' into maint
* jcomellas/jc-integer-to-binary2/OTP-11311:
Update preloaded
Fix incorrect values returned by integer_to_binary/2
Diffstat (limited to 'erts/emulator/test')
| -rw-r--r-- | erts/emulator/test/num_bif_SUITE.erl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/erts/emulator/test/num_bif_SUITE.erl b/erts/emulator/test/num_bif_SUITE.erl index b92a0e2059..ff8d18eef8 100644 --- a/erts/emulator/test/num_bif_SUITE.erl +++ b/erts/emulator/test/num_bif_SUITE.erl @@ -350,12 +350,34 @@ t_integer_to_string(Config) when is_list(Config) -> (catch erlang:integer_to_list(Value)) end,[atom,1.2,0.0,[$1,[$2]]]), + %% Base-2 integers + test_its("0", 0, 2), + test_its("1", 1, 2), + test_its("110110", 54, 2), + test_its("-1000000", -64, 2), + %% Base-16 integers + test_its("0", 0, 16), + test_its("A", 10, 16), + test_its("D4BE", 54462, 16), + test_its("-D4BE", -54462, 16), + + lists:foreach(fun(Value) -> + {'EXIT', {badarg, _}} = + (catch erlang:integer_to_binary(Value, 8)), + {'EXIT', {badarg, _}} = + (catch erlang:integer_to_list(Value, 8)) + end,[atom,1.2,0.0,[$1,[$2]]]), + ok. test_its(List,Int) -> Int = list_to_integer(List), Int = binary_to_integer(list_to_binary(List)). +test_its(List,Int,Base) -> + Int = list_to_integer(List, Base), + Int = binary_to_integer(list_to_binary(List), Base). + %% Tests binary_to_integer/1. t_string_to_integer(Config) when is_list(Config) -> |