diff options
| author | Björn Gustavsson <[email protected]> | 2011-05-10 08:59:21 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-05-10 11:11:33 +0200 |
| commit | 875104fa418b2ead0f19250e75074002ae3e3c72 (patch) | |
| tree | e5defd713f84da74a183bf4c871f2bfe781cd6ee /erts/emulator/test/binary_SUITE.erl | |
| parent | 6db87840174c80225bac5328ffe5e74dad5242f2 (diff) | |
| download | otp-875104fa418b2ead0f19250e75074002ae3e3c72.tar.gz otp-875104fa418b2ead0f19250e75074002ae3e3c72.tar.bz2 otp-875104fa418b2ead0f19250e75074002ae3e3c72.zip | |
Fix overflow in list_to_bitstring/1
Noticed-by: Jon Meredith
Diffstat (limited to 'erts/emulator/test/binary_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/binary_SUITE.erl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/erts/emulator/test/binary_SUITE.erl b/erts/emulator/test/binary_SUITE.erl index 67f0ae9408..4e82381fba 100644 --- a/erts/emulator/test/binary_SUITE.erl +++ b/erts/emulator/test/binary_SUITE.erl @@ -23,12 +23,12 @@ %% Tests binaries and the BIFs: %% list_to_binary/1 %% iolist_to_binary/1 -%% bitstr_to_list/1 +%% list_to_bitstring/1 %% binary_to_list/1 %% binary_to_list/3 %% binary_to_term/1 %% binary_to_term/2 -%% bitstr_to_list/1 +%% bitstring_to_list/1 %% term_to_binary/1 %% erlang:external_size/1 %% size(Binary) @@ -291,6 +291,7 @@ huge_iolists() -> [begin L = build_iolist(Sz, Base), ?line {'EXIT',{system_limit,_}} = (catch list_to_binary([L])), + ?line {'EXIT',{system_limit,_}} = (catch list_to_bitstring([L])), ?line {'EXIT',{system_limit,_}} = (catch binary:list_to_bin([L])), ?line {'EXIT',{system_limit,_}} = (catch iolist_to_binary(L)) end || Sz <- Sizes], |