Skip some libguestfs slow tests.

[goaljobs-goals.git] / libguestfs.ml

diff --git a/libguestfs.ml b/libguestfs.ml
index 48da3ea..5cb806b 100644 (file)
--- a/libguestfs.ml
+++ b/libguestfs.ml
@@ -20,8 +20,8 @@ type info = {
   package_version : string;      (* package-version *)
   tarball : string;              (* package-version.tar.gz *)
   python_tarball : string;       (* guestfs-version.tar.gz *)
-  urlpath : string;              (* download/1.X-(stable|development)/tarball *)
-  python_urlpath : string;       (* download/python/python_tarball *)
+  urlpath : string;              (* libguestfs-download/1.X-(stable|development)/tarball *)
+  python_urlpath : string;       (* libguestfs-download/python/python_tarball *)
   url : string;                  (* full download URL of tarball *)
   python_url : string;           (* python sdist *)
 }
@@ -48,14 +48,14 @@ let vernames version =
       let tarball = sprintf "%s.tar.gz" package_version in
       let urlpath =
         if is_stable then
-          sprintf "download/%d.%d-stable/%s" major minor tarball
+          sprintf "%d.%d-stable/%s" major minor tarball
         else
-          sprintf "download/%d.%d-development/%s" major minor tarball in
-      let url = "http://libguestfs.org/" ^ urlpath in
+          sprintf "%d.%d-development/%s" major minor tarball in
+      let url = "http://download.libguestfs.org/" ^ urlpath in
       let python_tarball =
         sprintf "guestfs-%d.%d.%d.tar.gz" major minor release in
-      let python_urlpath = sprintf "download/python/" ^ python_tarball in
-      let python_url = "http://libguestfs.org/" ^ python_urlpath in
+      let python_urlpath = sprintf "python/" ^ python_tarball in
+      let python_url = "http://download.libguestfs.org/" ^ python_urlpath in
 
       { version = version;
         major = major; minor = minor; release = release;
@@ -130,7 +130,7 @@ let git_latest_commit branch =
 let website_latest_version =
   let rex = Str.regexp "libguestfs-\\(.*\\)\\.tar\\.gz" in
   fun branch ->
-    let wdir = libguestfs_website_repo // "download" // branch in
+    let wdir = libguestfs_download_repo // branch in
     let files = Sys.readdir wdir in
     let files = Array.to_list files in
     if files = [] then None