mirror of
https://github.com/zap-proto/erlang.git
synced 2026-10-30 15:05:14 +00:00
zeekay
9ad5515323
Build the ezap Erlang binding with rebar3 and run it green on modern OTP.
rebar.config: test-profile deps proper 1.5.0 + meck 1.2.0 (meck 1.0.0 fails
to compile on OTP 29 — legacy `catch` is now an error), CT dir test/.
.github/workflows/ci.yml: push-to-main + PR + workflow_dispatch, OTP 26/27
matrix via erlef/setup-beam, runs `rebar3 compile/eunit/ct`.
src/schema_zap.erl, test/test_zap.erl: strip fossil `-type({{record,_},...})`
attributes. Pre-OTP-27 epp split typed records into a separate record-type
attr with bare-integer annotations; OTP 29 erl_lint crashes on these
(erl_anno violation). Modern epp emits typed -record forms directly, so these
attrs are dead weight; the -record decls already carry the fields.
test isolation: ezap_promise_sup / ezap_capability_sup are locally registered,
but teardown used exit(Pid, normal) — a no-op against an exit-trapping
supervisor — leaking the registered name and failing the next test with
{already_started,_}. Add ezap_test_utils:stop_sup/1 (unlink+monitor+kill+wait)
and use it everywhere; thirdCap_test_/basicCap_test_ now start and stop their
own promise supervisor instead of relying on a leak from a prior test.
bin/run_test: erlang:get_stacktrace/0 (removed in OTP 24) -> Class:Error:Stack.
74 lines
2.4 KiB
Erlang
74 lines
2.4 KiB
Erlang
%%
|
|
%% Copyright 2013, Andreas Stenius <[email protected]>
|
|
%%
|
|
%% Licensed under the Apache License, Version 2.0 (the "License");
|
|
%% you may not use this file except in compliance with the License.
|
|
%% You may obtain a copy of the License at
|
|
%%
|
|
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
%%
|
|
%% Unless required by applicable law or agreed to in writing, software
|
|
%% distributed under the License is distributed on an "AS IS" BASIS,
|
|
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
%% See the License for the specific language governing permissions and
|
|
%% limitations under the License.
|
|
%%
|
|
|
|
-module(ezap_test_utils).
|
|
-ifdef(TEST).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include("include/ezap.hrl").
|
|
-export([data/1, meck/2, meck/3, setup_meck/2, teardown_meck/1, stop_sup/1]).
|
|
|
|
%% ----------------------------------------
|
|
meck_test_() ->
|
|
meck(
|
|
foo, [{bar, fun() -> baz end}],
|
|
[?_assertEqual(baz, foo:bar())
|
|
]).
|
|
|
|
%% ----------------------------------------
|
|
data(Data) ->
|
|
{ok, Pid} = ezap_data:start_link(Data),
|
|
#builder{ pid = Pid }.
|
|
|
|
%% ----------------------------------------
|
|
meck(Mod, Funs, Tests) ->
|
|
{setup, fun() -> setup_meck(Mod, Funs) end, fun teardown_meck/1, Tests}.
|
|
|
|
meck(Desc, Tests) ->
|
|
{setup,
|
|
fun() -> [setup_meck(Mod, Funs) || {Mod, Funs} <- Desc] end,
|
|
fun(Mods) -> [teardown_meck(Mod) || Mod <- Mods] end,
|
|
Tests}.
|
|
|
|
%% ----------------------------------------
|
|
setup_meck(Mod, Funs) ->
|
|
?assertEqual(ok, meck:new(Mod, [non_strict])),
|
|
[?assertEqual(ok, meck:expect(Mod, Fun, Impl))
|
|
|| {Fun, Impl} <- Funs],
|
|
Mod.
|
|
|
|
teardown_meck(Mod) ->
|
|
?assert(meck:validate(Mod)),
|
|
?assertEqual(ok, meck:unload(Mod)).
|
|
|
|
%% ----------------------------------------
|
|
%% Synchronously stop a (locally registered) supervisor started with
|
|
%% start_link/0 from a test setup. exit(Pid, normal) is a no-op against a
|
|
%% supervisor (it traps exits), which leaks the registered name and makes the
|
|
%% next test fail with {already_started, _}. Unlink so the kill signal does
|
|
%% not reach the test process, then kill and wait for it to actually die.
|
|
stop_sup(Pid) when is_pid(Pid) ->
|
|
unlink(Pid),
|
|
Ref = monitor(process, Pid),
|
|
exit(Pid, kill),
|
|
receive
|
|
{'DOWN', Ref, process, Pid, _Reason} -> ok
|
|
after 5000 ->
|
|
demonitor(Ref, [flush]),
|
|
error({stop_sup_timeout, Pid})
|
|
end.
|
|
|
|
-endif.
|