mirror of
https://github.com/fluxerapp/fluxer
synced 2026-10-07 19:22:14 +09:00
29 lines
1005 B
Erlang
29 lines
1005 B
Erlang
%% SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
-module(fluxer_gateway_app_tests).
|
|
-typing([eqwalizer]).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
start_keeps_generational_gc_as_vm_default_test() ->
|
|
?assertEqual([10], vm_fullsweep_after_values()).
|
|
|
|
vm_fullsweep_after_values() ->
|
|
{fluxer_gateway_app, Beam, _Path} = code:get_object_code(fluxer_gateway_app),
|
|
{ok, {fluxer_gateway_app, [{abstract_code, {raw_abstract_v1, Forms}}]}} =
|
|
beam_lib:chunks(Beam, [abstract_code]),
|
|
collect_fullsweep_after(Forms, []).
|
|
|
|
collect_fullsweep_after([Form | Rest], Acc) ->
|
|
collect_fullsweep_after(Rest, collect_fullsweep_after(Form, Acc));
|
|
collect_fullsweep_after(
|
|
{call, _, {remote, _, {atom, _, erlang}, {atom, _, system_flag}}, [
|
|
{atom, _, fullsweep_after}, {integer, _, Value}
|
|
]},
|
|
Acc
|
|
) ->
|
|
Acc ++ [Value];
|
|
collect_fullsweep_after(Form, Acc) when is_tuple(Form) ->
|
|
collect_fullsweep_after(tuple_to_list(Form), Acc);
|
|
collect_fullsweep_after(_Form, Acc) ->
|
|
Acc.
|