22
22
-module(bs_construct_SUITE).
24
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
25
init_per_group/2,end_per_group/2,
25
26
test1/1, test2/1, test3/1, test4/1, test5/1, testf/1,
26
27
not_used/1, in_guard/1,
27
28
mem_leak/1, coerce_to_float/1, bjorn/1,
28
29
huge_float_field/1, huge_binary/1, system_limit/1, badarg/1,
29
30
copy_writable_binary/1, kostis/1, dynamic/1, bs_add/1,
32
-include("test_server.hrl").
35
[test1, test2, test3, test4, test5, testf,
36
not_used, in_guard, mem_leak, coerce_to_float, bjorn,
31
otp_7422/1, zero_width/1]).
33
-include_lib("test_server/include/test_server.hrl").
35
suite() -> [{ct_hooks,[ts_install_cth]}].
38
[test1, test2, test3, test4, test5, testf, not_used,
39
in_guard, mem_leak, coerce_to_float, bjorn,
37
40
huge_float_field, huge_binary, system_limit, badarg,
38
copy_writable_binary, kostis, dynamic, bs_add,
41
copy_writable_binary, kostis, dynamic, bs_add, otp_7422, zero_width].
46
init_per_suite(Config) ->
49
end_per_suite(_Config) ->
52
init_per_group(_GroupName, Config) ->
55
end_per_group(_GroupName, Config) ->
42
59
57285702734876389752897683.
787
804
otp_7422_bin(N+1);
788
805
otp_7422_bin(_) -> ok.
807
zero_width(Config) when is_list(Config) ->
811
?line <<>> = <<Small:Z>>,
812
?line <<>> = <<Small:0>>,
813
?line <<>> = <<Big:Z>>,
814
?line <<>> = <<Big:0>>,
816
?line {'EXIT',{badarg,_}} = (catch <<not_a_number:0>>),
817
?line {'EXIT',{badarg,_}} = (catch <<(id(not_a_number)):Z>>),
818
?line {'EXIT',{badarg,_}} = (catch <<(id(not_a_number)):0>>),