From ad7bb40d88acd0de5bdad9b64f8d8dd5c303fa48 Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Thu, 17 Sep 2015 09:40:04 +0200
Subject: stdlib: Fix leaking files after error_logger:logfile(close)

Introduced when changing state from tuple to record.
---
 lib/stdlib/test/error_logger_h_SUITE.erl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib/stdlib/test')

diff --git a/lib/stdlib/test/error_logger_h_SUITE.erl b/lib/stdlib/test/error_logger_h_SUITE.erl
index b0b9c717a1..c82b1b62ef 100644
--- a/lib/stdlib/test/error_logger_h_SUITE.erl
+++ b/lib/stdlib/test/error_logger_h_SUITE.erl
@@ -65,6 +65,12 @@ logfile(Config) ->
     error_logger:logfile(close),
     analyse_events(Log, Ev, [AtNode], unlimited),
 
+    [] = [{X, file:pid2name(X)} || X <- processes(), Data <- [process_info(X, [current_function])],
+				   Data =/= undefined,
+				   element(1, element(2, lists:keyfind(current_function, 1, Data)))
+				       =:= file_io_server,
+				   file:pid2name(X) =:= {ok, Log}],
+
     test_server:stop_node(Node),
 
     cleanup(Log),
-- 
cgit v1.2.3