File 6721-eunit-Fix-to-specify-Options-to-group.options.patch of Package erlang
From 33b0019a7cc60a3e3f69b7ec84061031af580e5b Mon Sep 17 00:00:00 2001
From: Takeru Ohta <phjgt308@gmail.com>
Date: Thu, 22 Sep 2022 11:42:27 +0900
Subject: [PATCH 1/2] eunit: Fix to specify `Options` to #group.options
---
lib/eunit/src/eunit_data.erl | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lib/eunit/src/eunit_data.erl b/lib/eunit/src/eunit_data.erl
index dfc6662a96..f66b1444ca 100644
--- a/lib/eunit/src/eunit_data.erl
+++ b/lib/eunit/src/eunit_data.erl
@@ -289,7 +289,7 @@ parse({setup, P, S, C, I} = T, Options)
{spawn, N} when is_atom(N) -> ok;
_ -> bad_test(T)
end,
- group(#group{tests = I,
+ group(#group{tests = I, options = Options,
context = #context{setup = S, cleanup = C,
process = P}})
end;
@@ -395,15 +395,15 @@ parse({with, X, As}=T, _Options) when is_list(As) ->
[] ->
{data, []}
end;
-parse({S, T1} = T, _Options) when is_list(S) ->
+parse({S, T1} = T, Options) when is_list(S) ->
case eunit_lib:is_string(S) of
true ->
- group(#group{tests = T1, desc = unicode:characters_to_binary(S)});
+ group(#group{tests = T1, options = Options, desc = unicode:characters_to_binary(S)});
false ->
bad_test(T)
end;
-parse({S, T1}, _Options) when is_binary(S) ->
- group(#group{tests = T1, desc = S});
+parse({S, T1}, Options) when is_binary(S) ->
+ group(#group{tests = T1, options = Options, desc = S});
parse(T, Options) when tuple_size(T) > 2, is_list(element(1, T)) ->
[S | Es] = tuple_to_list(T),
parse({S, list_to_tuple(Es)}, Options);
--
2.35.3