Avoid checking perms in CI generated directory

Ignore-this: c459a2184cba559ccce28532f49c30d2 darcs-hash:20120628195828-a43a9-6650f43f93615025f9d70bbd693546509d1084d9
ocaml · Jun 28, 2012 · 72d7a78 · 72d7a78
1 parent 72dcebf
commit 72d7a78
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/test/test.ml b/test/test.ml
@@ -60,16 +60,17 @@ let _ =
             close_in chn;
             !rst
         in
-        let fn_build =
-          FilePath.concat topdir "_build"
-        in
+        let fn_build  = FilePath.concat topdir "_build" in
+        let fn_build' = FilePath.concat topdir "build" in
+
         let (found_missing, unfound) =
           (* Check files that need to be executable *)
           FileUtil.find
             (FileUtil.And
                (FileUtil.Custom
                   (fun fn ->
-                     not (FilePath.is_subdir fn fn_build)),
+                     not (FilePath.is_subdir fn fn_build) &&
+                     not (FilePath.is_subdir fn fn_build')),
                 FileUtil.And
                   (FileUtil.Is_exec,
                    FileUtil.And