diff options
| author | Sverker Eriksson <[email protected]> | 2011-11-11 18:28:22 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2011-11-17 14:16:17 +0100 |
| commit | 11892310e0a681aff0ce1fb8f5411b2098f5c9ba (patch) | |
| tree | bf39ff90b7bdb9f5b71a506f2dedc572d4def48b /lib/stdlib/test | |
| parent | 1870ee5b2532f3b1c4a30eaf9658875326d8dc9f (diff) | |
| download | otp-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.erl | 7 |
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), |