(* This contains lots of configuration specifics which are
 * unlikely to be useful unless you are me ...
 *)

open Goaljobs
open Printf

(* General. *)
let buildtmp = sprintf "%s/tmp/builds" (Sys.getenv "HOME")

(* Fedora *)
let fedora_dir = Sys.getenv "HOME" // "d/fedora"
let fedora_repo pkg branch = fedora_dir // pkg // branch
let fedora_specfile pkg branch =
  sprintf "%s/%s.spec" (fedora_repo pkg branch) pkg

(* libguestfs *)
let libguestfs_query_mins = 60

let libguestfs_website_repo =
  sprintf "%s/d/websites/libguestfs" (Sys.getenv "HOME")

let libguestfs_localconfigure source =
  let configure =
    match source with
      `Git -> "./autogen.sh"
    | `Tarball -> "./configure" in
  sprintf "\
#!/bin/bash -
. localenv

# erlang is disabled because it is broken in Rawhide:
# https://bugzilla.redhat.com/show_bug.cgi?id=1316206

%s \\
  --prefix /usr \\
  --disable-static \\
  --with-default-backend=libvirt \\
  --enable-werror \\
  --enable-gtk-doc \\
  --disable-golang \\
  --disable-erlang \\
  -C \\
  \"$@\"
" 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

# Fails under valgrind because cpio subprocess has a memory leak.
export SKIP_TEST_FILE_ARCHITECTURE_11=1
export SKIP_TEST_FILE_ARCHITECTURE_15=1

# Fails under valgrind because xzcat subprocess has a memory leak.
export SKIP_TEST_FILE_ARCHITECTURE_17=1

# This test fails because we build the ISO after encoding the checksum
# of the ISO in the test itself.  Need to fix the test to work out the
# checksum at runtime.
export SKIP_TEST_CHECKSUM_DEVICE=1

# Disable parallel virt-alignment-scan & virt-df tests (RHBZ#1025942).
export SKIP_TEST_VIRT_ALIGNMENT_SCAN_GUESTS_SH=1
export SKIP_TEST_VIRT_DF_GUESTS_SH=1

# fusermount behaviour seems to have broken the test (RHBZ#1220751).
export SKIP_TEST_FUSE_UMOUNT_RACE_SH=1
export SKIP_TEST_GUESTMOUNT_FD=1

# xfs_admin has no effect in Rawhide (RHBZ#1233220).
export SKIP_TEST_XFS_ADMIN=1
export SKIP_TEST_XFS_MISC_PL=1

# syslinux broken by mtools (RHBZ#1275087).
export SKIP_TEST_SYSLINUX_PL=1

# See https://www.redhat.com/archives/libguestfs/2015-November/msg00144.html
export SKIP_TEST_INOTIFY_ADD_WATCH=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 -> ""
    | Some (supermin, supermin_helper) ->
      sprintf "\
# Needs a modified path to supermin binaries:
export SUPERMIN=%s
export SUPERMIN_HELPER=%s

" supermin supermin_helper