Skip some libguestfs slow tests.

[goaljobs-goals.git] / libguestfs_fedora.ml

diff --git a/libguestfs_fedora.ml b/libguestfs_fedora.ml
index 4b5ec7c..07c49d7 100644 (file)
--- a/libguestfs_fedora.ml
+++ b/libguestfs_fedora.ml
@@ -22,10 +22,10 @@ let package = "libguestfs"
 
 (* How branches in libguestfs upstream map to branches in Fedora. *)
 let branches = [
-  "1.23-development", "master";    (* Rawhide follows development. *)
-  (* f20 is being done by hand until 1.24 is released. *)
-  "1.22-stable", "f19";            (* F19 follows 1.22. *)
-  "1.20-stable", "f18";            (* F18 follows 1.20. *)
+  "1.39-development", "master";    (* Rawhide follows development. *)
+  "1.39-development", "f29";       (* F29 follows development. *)
+  "1.38-stable", "f28";            (* F28 follows 1.38. *)
+  "1.38-stable", "f27";            (* F27 follows 1.38. *)
 ]
 
 (* Goal: Latest website version has been built in every branch. *)
@@ -43,7 +43,9 @@ and fedora_built version branch =
   let specfile = fedora_specfile package branch in
 
   target (file_contains_string specfile version.version &&
-            koji_build_state (fedora_verrel package branch) == `Complete);
+            match koji_build_state (fedora_verrel package branch) with
+            | `Complete | `Building -> true
+            | _ -> false);
 
   require (sources_uploaded version branch);
   require (specfile_pushed version branch);
@@ -61,10 +63,19 @@ and sources_uploaded version branch =
 
   require (repodir_up_to_date repodir);
 
-  sh "
-    cd %s
-    fedpkg new-sources %s/%s
-  " repodir libguestfs_website_repo version.urlpath
+  if not version.is_stable then (
+    sh "
+      cd %s
+      fedpkg new-sources %s/%s
+    " repodir libguestfs_download_repo version.urlpath
+  ) else (
+    sh "
+      cd %s
+      fedpkg new-sources %s/%s %s/%s.sig
+    "  repodir
+       libguestfs_download_repo version.urlpath
+       libguestfs_download_repo version.urlpath
+  )
 
 and specfile_updated version branch =
   let repodir = fedora_repo package branch in
@@ -92,7 +103,8 @@ and specfile_updated version branch =
 
 and specfile_committed version branch =
   let repodir = fedora_repo package branch in
-  let key = sprintf "libguestfs_fedora_specfile_committed_%s" version.version in
+  let key = sprintf "libguestfs_fedora_specfile_committed_%s_%s"
+    branch version.version in
 
   target (memory_exists key);
   onrun (fun () -> memory_set key "1");
@@ -106,7 +118,8 @@ and specfile_committed version branch =
 
 and specfile_pushed version branch =
   let repodir = fedora_repo package branch in
-  let key = sprintf "libguestfs_fedora_specfile_pushed_%s" version.version in
+  let key =
+    sprintf "libguestfs_fedora_specfile_pushed_%s_%s" branch version.version in
 
   target (memory_exists key);
   onrun (fun () -> memory_set key "1");