aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2016-05-19 13:12:02 +0200
committerBjörn Gustavsson <[email protected]>2016-05-19 13:12:02 +0200
commit37b60d5b365e814c83974cdac0f1eed04dab0ad3 (patch)
tree1f9f05a79dfd18035a857b4fac3c75e17d542c6a
parent2212ff88eb1eb973c9150ea294fc6226d4fc9a10 (diff)
parentd6f5a1d972b76335613ac4ec83d8de8ca1aa7260 (diff)
downloadotp-37b60d5b365e814c83974cdac0f1eed04dab0ad3.tar.gz
otp-37b60d5b365e814c83974cdac0f1eed04dab0ad3.tar.bz2
otp-37b60d5b365e814c83974cdac0f1eed04dab0ad3.zip
Merge branch 'mururu/eunit/debugvalall/PR-1024/OTP-13612'
* mururu/eunit/debugvalall/PR-1024/OTP-13612: eunit: Add ?debugValAll macro
-rw-r--r--lib/eunit/doc/overview.edoc2
-rw-r--r--lib/eunit/include/eunit.hrl8
2 files changed, 10 insertions, 0 deletions
diff --git a/lib/eunit/doc/overview.edoc b/lib/eunit/doc/overview.edoc
index 12ea02f442..ca7ffb83a4 100644
--- a/lib/eunit/doc/overview.edoc
+++ b/lib/eunit/doc/overview.edoc
@@ -693,6 +693,8 @@ it like `debugMsg'. The result is always `ok'.</dd>
shown truncated.) The result is always the value of `Expr', so this
macro can be wrapped around any expression to display its value when
the code is compiled with debugging enabled.</dd>
+<dt>`debugValAll(Expr)'</dt>
+<dd>This is almost same as `debugVal(Expr)`, but doesn't truncate terms to print.</dd>
<dt>`debugTime(Text,Expr)'</dt>
<dd>Prints `Text' and the wall clock time for evaluation of `Expr'. The
result is always the value of `Expr', so this macro can be wrapped
diff --git a/lib/eunit/include/eunit.hrl b/lib/eunit/include/eunit.hrl
index 8f678b0290..b6dbe2d706 100644
--- a/lib/eunit/include/eunit.hrl
+++ b/lib/eunit/include/eunit.hrl
@@ -212,6 +212,7 @@
-define(debugHere, ok).
-define(debugFmt(S, As), ok).
-define(debugVal(E), (E)).
+-define(debugValAll(E), (E)).
-define(debugTime(S, E), (E)).
-else.
-define(debugMsg(S),
@@ -229,6 +230,13 @@
__V
end)(E))
end).
+-define(debugValAll(E),
+ begin
+ ((fun (__V) ->
+ ?debugFmt(<<"~ts = ~tp">>, [(??E), __V]),
+ __V
+ end)(E))
+ end).
-define(debugTime(S, E),
begin
((fun () ->