testsuite/tests/lib-threads/pr8857.ml


1
2
3
4
5
6
7
8
9
10
11
12
13

(* TEST
 include systhreads;
 hassysthreads;
 {
   bytecode;
 }{
   native;
 }
*)

let _ =
  try Unix.utimes "does-not-exist" 0.0 0.0
  with Unix.(Unix_error(ENOENT, _, _)) -> ()