(* libguestfs *)
let libguestfs_query_mins = 60
+let websites_repo =
+ sprintf "%s/d/websites" (Sys.getenv "HOME")
let libguestfs_website_repo =
- sprintf "%s/d/websites/libguestfs" (Sys.getenv "HOME")
+ sprintf "%s/libguestfs" websites_repo
+let libguestfs_builder_repo =
+ sprintf "%s/libguestfs-builder" websites_repo
+let libguestfs_download_repo =
+ sprintf "%s/libguestfs-download" websites_repo
let libguestfs_localconfigure source =
let configure =
let libguestfs_localenv supermin =
"\
+# Use the real virt-builder configuration from /etc.
+export XDG_CONFIG_DIRS=/etc
+
# Fails under valgrind because of a leak in the fuse library,
# although I could not work out exactly why.
export SKIP_TEST_PARALLEL_MOUNT_LOCAL=1
# libguestfs: error: mkfs_btrfs: /dev/sda1: not enough free space
# (RHBZ#1291715).
export SKIP_TEST_BTRFS_IMAGE_0=1
+
+# Yawn, btrfs broken again. RHBZ#1372037
+export SKIP_TEST_BTRFS_DEVICES_SH=1
" ^
match supermin with
| None -> ""