blob: 75d79417e16eebd4df7633105d8a92ee73adff19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(* TEST *)
let () =
let tmpdir1 = ref "" in
let tmpdir2 = ref "" in
Fun.protect ~finally:(fun () ->
if !tmpdir1 <> "" then Sys.rmdir !tmpdir1;
if !tmpdir2 <> "" then Sys.rmdir !tmpdir2;
) (fun () ->
tmpdir1 := Filename.temp_dir "morx" "fleem";
assert (Sys.is_directory !tmpdir1);
tmpdir2 := Filename.temp_dir "morx" "fleem" ;
assert (Sys.is_directory !tmpdir2);
assert (!tmpdir1 <> !tmpdir2);
)
|