1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
-module(showtime@internal@erlang@runner).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
-export([run_test/4, run_test_suite/4]).
-spec run_test(
binary(),
binary(),
list(binary()),
showtime@internal@common@cli:capture()
) -> {ok, showtime@internal@common@test_result:test_return()} |
{error, showtime@internal@common@test_result:exception()}.
run_test(Module_name, Test_name, Ignore_tags, Capture) ->
Result = showtime_ffi:run_test(
erlang:binary_to_atom(Module_name),
erlang:binary_to_atom(Test_name),
Ignore_tags,
Capture
),
Result.
-spec run_test_suite(
showtime@internal@common@test_suite:test_suite(),
fun((showtime@internal@common@test_suite:test_event()) -> nil),
list(binary()),
showtime@internal@common@cli:capture()
) -> nil.
run_test_suite(Test_suite, Test_event_handler, Ignore_tags, Capture) ->
_pipe = erlang:element(3, Test_suite),
gleam@list:each(
_pipe,
fun(Test) ->
Test_event_handler(
{start_test, erlang:element(2, Test_suite), Test}
),
Result = run_test(
erlang:element(2, erlang:element(2, Test_suite)),
erlang:element(2, Test),
Ignore_tags,
Capture
),
Test_event_handler(
{end_test, erlang:element(2, Test_suite), Test, Result}
)
end
).
|
