mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml: Skip mount-local test if /dev/fuse is not writable.

Browse Source
This commit is contained in:
Richard W.M. Jones
2012-07-20 08:34:46 +01:00
parent 9d314c7c3f
commit 184b9d7c11
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ocaml/t/guestfs_500_mount_local.ml
View File

@@ -30,6 +30,14 @@ let debug = true (* overview debugging messages *)
let rec main () =
Random.self_init ();
let fuse_writable =
try access "/dev/fuse" [W_OK]; true with Unix_error _ -> false in
if not fuse_writable then (
printf "%s: test skipped because /dev/fuse is not writable.\n"
Sys.executable_name;
exit 77
);
(* Allow the test to be skipped by setting this environment variable.
* This is for RHEL 5, where FUSE doesn't work very reliably.
*)