diff options
| author | Björn Gustavsson <[email protected]> | 2017-10-16 12:31:09 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2017-10-18 14:05:01 +0200 |
| commit | e6bc3f31f8d3e67be67c2c6b53eb868dbc53d7ec (patch) | |
| tree | c721a04316fba7eabb2ab2ff4219b8903babcfdb /lib/observer/test/crashdump_helper.erl | |
| parent | 31ad587b6d75e8697964e2b80709fb3b3d2901d5 (diff) | |
| download | otp-e6bc3f31f8d3e67be67c2c6b53eb868dbc53d7ec.tar.gz otp-e6bc3f31f8d3e67be67c2c6b53eb868dbc53d7ec.tar.bz2 otp-e6bc3f31f8d3e67be67c2c6b53eb868dbc53d7ec.zip | |
Verify that binaries of different sizes are dumped correctly
Diffstat (limited to 'lib/observer/test/crashdump_helper.erl')
| -rw-r--r-- | lib/observer/test/crashdump_helper.erl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/observer/test/crashdump_helper.erl b/lib/observer/test/crashdump_helper.erl index 04c8773498..41041682c2 100644 --- a/lib/observer/test/crashdump_helper.erl +++ b/lib/observer/test/crashdump_helper.erl @@ -20,7 +20,8 @@ -module(crashdump_helper). -export([n1_proc/2,remote_proc/2, - dump_maps/0,create_maps/0]). + dump_maps/0,create_maps/0, + create_binaries/0]). -compile(r18). -include_lib("common_test/include/ct.hrl"). @@ -61,6 +62,7 @@ n1_proc(Creator,_N2,Pid2,Port2,_L) -> put(ref,Ref), put(pid,Pid), put(bin,Bin), + put(bins,create_binaries()), put(sub_bin,SubBin), put(bignum,83974938738373873), put(neg_bignum,-38748762783736367), @@ -94,6 +96,13 @@ remote_proc(P1,Creator) -> receive after infinity -> ok end end). +create_binaries() -> + Sizes = lists:seq(60, 70) ++ lists:seq(120, 140), + [begin + <<H:16/unit:8>> = erlang:md5(<<Size:32>>), + Data = ((H bsl (8*150)) div (H+7919)), + <<Data:Size/unit:8>> + end || Size <- Sizes]. %%% %%% Test dumping of maps. Dumping of maps only from OTP 20.2. |