From 665f2d450a8f26dfb14e0c9891d1167d80768286 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Thu, 8 Dec 2011 14:24:51 +0100
Subject: file_SUITE: Fix unix_free/1

unix_free/1 returned the total size of the disk, not the free
space.
---
 lib/kernel/test/file_SUITE.erl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'lib/kernel')

diff --git a/lib/kernel/test/file_SUITE.erl b/lib/kernel/test/file_SUITE.erl
index 85346762ac..70c1569543 100644
--- a/lib/kernel/test/file_SUITE.erl
+++ b/lib/kernel/test/file_SUITE.erl
@@ -3310,9 +3310,11 @@ unix_free(Config) ->
     Cmd = ["df -k '",?config(priv_dir, Config),"'"],
     DF0 = os:cmd(Cmd),
     io:format("$ ~s~n~s", [Cmd,DF0]),
-    [$\n|DF1] = lists:dropwhile(fun ($\n) -> false; (_) -> true end, DF0),
-    {ok,[N],_} = io_lib:fread(" ~*s ~d", DF1),
-    N.
+    Lines = re:split(DF0, "\n", [trim,{return,list}]),
+    Last = lists:last(Lines),
+    RE = "^[^\\s]*\\s+\\d+\\s+\\d+\\s+(\\d+)",
+    {match,[Avail]} = re:run(Last, RE, [{capture,all_but_first,list}]),
+    list_to_integer(Avail).
 
 do_large_file(Config) ->
     ?line Watchdog = ?t:timetrap(?t:minutes(5)),
-- 
cgit v1.2.3