diff options
| author | Jonas Karlsson <[email protected]> | 2013-11-08 14:00:36 +0100 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2014-02-24 15:16:01 +0100 |
| commit | a0766a4efeefe0ac035d2be04816274aee5751f3 (patch) | |
| tree | 22de6927c4a1bdb778cbd764fea8f400ded170b8 /lib/kernel/test/prim_file_SUITE.erl | |
| parent | 5352e800edf7e59d352a8d2dc7a7bee7ba916e1b (diff) | |
| download | otp-a0766a4efeefe0ac035d2be04816274aee5751f3.tar.gz otp-a0766a4efeefe0ac035d2be04816274aee5751f3.tar.bz2 otp-a0766a4efeefe0ac035d2be04816274aee5751f3.zip | |
ose: Bugfixes to filesystem related issues.
Diffstat (limited to 'lib/kernel/test/prim_file_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/prim_file_SUITE.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/kernel/test/prim_file_SUITE.erl b/lib/kernel/test/prim_file_SUITE.erl index ccf325a493..84618a881e 100644 --- a/lib/kernel/test/prim_file_SUITE.erl +++ b/lib/kernel/test/prim_file_SUITE.erl @@ -453,7 +453,10 @@ open1(Config) when is_list(Config) -> ?line ?PRIM_FILE:write(Fd1,Str), ?line {ok,0} = ?PRIM_FILE:position(Fd1,bof), ?line {ok, Str} = ?PRIM_FILE:read(Fd1,Length), - ?line {ok, Str} = ?PRIM_FILE:read(Fd2,Length), + ?line case ?PRIM_FILE:read(Fd2,Length) of + Str -> Str; + eof -> Str + end, ?line ok = ?PRIM_FILE:close(Fd2), ?line {ok,0} = ?PRIM_FILE:position(Fd1,bof), ?line ok = ?PRIM_FILE:truncate(Fd1), |