File 4571-eunit-Fix-to-specify-Options-to-group.opti... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 4571-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 is_tuple(T), size(T) > 2, is_list(element(1, T)) ->
     [S | Es] = tuple_to_list(T),
     parse({S, list_to_tuple(Es)}, Options);
-- 
2.35.3

Places

File 4571-eunit-Fix-to-specify-Options-to-group.options.patch of Package erlang

Places