瀏覽代碼

* don't perform fmShareDenyNone/fmShareExclusive check for unix, as it
cannot be implemented there

git-svn-id: trunk@12674 -

Jonas Maebe 16 年之前
父節點
當前提交
adaae268ae
共有 1 個文件被更改,包括 6 次插入0 次删除
  1. 6 0
      tests/test/units/sysutils/tfile2.pp

+ 6 - 0
tests/test/units/sysutils/tfile2.pp

@@ -141,12 +141,18 @@ begin
       if (l2 < 0) then
         raise exception.create('opening two files as read-only with fmShareDenyNone and then fmShareDenyWrite failed');
       fileclose(l2);
+{ on Windows, fmShareExclusive checks whether the file is already open in any way by the current
+  or another process. On Unix, that is not the case, and we also cannot check against a
+  fmShareDenyNone mode
+}
+{$ifndef unix}
       l2:=fileopen('tfile2.dat',fmopenread or fmShareExclusive);
       if (l2 >= 0) then
         begin
           fileclose(l2);
           raise exception.create('opening two files as read-only with fmShareDenyNone and then fmShareExclusive succeeded');
         end;
+{$endif}
       fileclose(l);
 
       l:=fileopen('tfile2.dat',fmopenread or fmShareDenyWrite);