File lager-3.6.7-stacktrace.patch of Package lager
diff -Ndurp lager-3.6.7/test/pr_stacktrace_test.erl lager-3.6.7-stacktrace/test/pr_stacktrace_test.erl
--- lager-3.6.7/test/pr_stacktrace_test.erl 2018-10-14 22:16:53.000000000 +0300
+++ lager-3.6.7-stacktrace/test/pr_stacktrace_test.erl 2018-11-07 16:37:29.462283814 +0200
@@ -3,9 +3,12 @@
-compile([{parse_transform, lager_transform}]).
-ifdef(OTP_RELEASE). %% this implies 21 or higher
+-if (?OTP_RELEASE >= 21).
-define(EXCEPTION(Class, Reason, Stacktrace), Class:Reason:Stacktrace).
-define(GET_STACK(Stacktrace), Stacktrace).
--else.
+-endif.
+-endif.
+-ifndef (EXCEPTION).
-define(EXCEPTION(Class, Reason, _), Class:Reason).
-define(GET_STACK(_), erlang:get_stacktrace()).
-endif.
@@ -29,8 +32,8 @@ pr_stacktrace_throw_test() ->
lager:pr_stacktrace(?GET_STACK(Stacktrace), {Class, Reason})
end,
ExpectedPart = "
- pr_stacktrace_test:pr_stacktrace_throw_test/0 line 26
- pr_stacktrace_test:make_throw/0 line 16
+ pr_stacktrace_test:pr_stacktrace_throw_test/0 line 29
+ pr_stacktrace_test:make_throw/0 line 19
throw:{test,exception}",
?assertNotEqual(0, string:str(Result, ExpectedPart)).
@@ -43,8 +46,8 @@ pr_stacktrace_bad_arg_test() ->
lager:pr_stacktrace(?GET_STACK(Stacktrace), {Class, Reason})
end,
ExpectedPart = "
- pr_stacktrace_test:pr_stacktrace_bad_arg_test/0 line 40
- pr_stacktrace_test:bad_arg/0 line 22
+ pr_stacktrace_test:pr_stacktrace_bad_arg_test/0 line 43
+ pr_stacktrace_test:bad_arg/0 line 25
error:badarg",
?assertNotEqual(0, string:str(Result, ExpectedPart)).
@@ -57,7 +60,7 @@ pr_stacktrace_bad_arity_test() ->
lager:pr_stacktrace(?GET_STACK(Stacktrace), {Class, Reason})
end,
ExpectedPart = "
- pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 54
+ pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 57
lists:concat([], [])
error:undef",
?assertNotEqual(0, string:str(Result, ExpectedPart)).
@@ -72,6 +75,6 @@ pr_stacktrace_no_reverse_test() ->
end,
ExpectedPart = "error:undef
lists:concat([], [])
- pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 68",
+ pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 71",
?assertEqual(0, string:str(Result, ExpectedPart)).