From b9e8506d802d7548e5573af5d38513a44ea7f8bd Mon Sep 17 00:00:00 2001
From: Michael Santos <michael.santos@gmail.com>
Date: Thu, 7 Apr 2011 08:41:00 -0400
Subject: file: fix hang reading compressed files

The gzio driver goes into an infinite loop when reading past the end of
a compressed file.

Reported-By: Alex Morarash
---
 lib/kernel/test/file_SUITE.erl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/kernel/test/file_SUITE.erl')

diff --git a/lib/kernel/test/file_SUITE.erl b/lib/kernel/test/file_SUITE.erl
index 8078c7d021..2f73394c4e 100644
--- a/lib/kernel/test/file_SUITE.erl
+++ b/lib/kernel/test/file_SUITE.erl
@@ -2055,6 +2055,10 @@ try_read_file_list(Fd) ->
     ?line Title = "Real Programmers Don't Use PASCAL</TITLE>\n",
     ?line Title = io:get_line(Fd, ''),
 
+    %% Seek past the end of the file.
+
+    ?line {ok, _} = ?FILE_MODULE:position(Fd, 25000),
+
     %% Done.
 
     ?line ?FILE_MODULE:close(Fd),
-- 
cgit v1.2.3