aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/test
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2011-11-11 18:28:22 +0100
committerSverker Eriksson <[email protected]>2011-11-17 14:16:17 +0100
commit11892310e0a681aff0ce1fb8f5411b2098f5c9ba (patch)
treebf39ff90b7bdb9f5b71a506f2dedc572d4def48b /lib/stdlib/test
parent1870ee5b2532f3b1c4a30eaf9658875326d8dc9f (diff)
downloadotp-11892310e0a681aff0ce1fb8f5411b2098f5c9ba.tar.gz
otp-11892310e0a681aff0ce1fb8f5411b2098f5c9ba.tar.bz2
otp-11892310e0a681aff0ce1fb8f5411b2098f5c9ba.zip
stdlib: Make sure qlc_SUITE:otp_6964 restores backtrace_depth
Diffstat (limited to 'lib/stdlib/test')
-rw-r--r--lib/stdlib/test/qlc_SUITE.erl7
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/stdlib/test/qlc_SUITE.erl b/lib/stdlib/test/qlc_SUITE.erl
index 8a9d8f7883..9be547c690 100644
--- a/lib/stdlib/test/qlc_SUITE.erl
+++ b/lib/stdlib/test/qlc_SUITE.erl
@@ -6118,6 +6118,7 @@ otp_6964(Config) when is_list(Config) ->
qlc:e(Q, [{max_list_size,64*1024},{tmpdir_usage,Use}])
end,
D = erlang:system_flag(backtrace_depth, 0),
+ try
20000 = length(F(allowed)),
ErrReply = F(not_allowed),
{error, qlc, {tmpdir_usage,joining}} = ErrReply,
@@ -6129,8 +6130,10 @@ otp_6964(Config) when is_list(Config) ->
20000 = length(F(info_msg)),
{info, joining} = qlc_SUITE:read_error_logger(),
20000 = length(F(error_msg)),
- {error, joining} = qlc_SUITE:read_error_logger(),
- _ = erlang:system_flag(backtrace_depth, D),
+ {error, joining} = qlc_SUITE:read_error_logger()
+ after
+ _ = erlang:system_flag(backtrace_depth, D)
+ end,
qlc_SUITE:uninstall_error_logger()">>],
?line run(Config, T1),