Merge pull request #5684 from psafont/lesstestlogs

Testing: reduce amount of logs produced, drop ounit2

.github/workflows/setup-xapi-environment/action.yml

@@ -50,7 +50,6 @@ runs:
         ocaml-compiler: ${{ steps.dotenv.outputs.ocaml_version_full }}
         opam-repositories: |
           xs-opam: ${{ steps.dotenv.outputs.repository }}
-        opam-pin: false
         dune-cache: true
       env:
         DUNE_CACHE_STORAGE_MODE: copy

dune-project

@@ -23,6 +23,19 @@
   (name xml-light2)
 )
 
+(package
+  (name xapi-sdk)
+  (license "BSD-2-Clause")
+  (synopsis "Xen API SDK generation code")
+  (depends
+   (alcotest :with-test)
+   astring
+   mustache
+   (xapi-datamodel (= :version))
+   (xapi-stdext-unix (and (= :version) :with-test))
+  )
+  (allow_empty)
+)
 (package
   (name xen-api-client-lwt)
 )
@@ -34,6 +47,23 @@
 
 (package
   (name xen-api-client)
+  (synopsis "Xen-API client library for remotely-controlling a xapi host")
+  (authors "David Scott" "Anil Madhavapeddy" "Jerome Maloberti" "John Else" "Jon Ludlam" "Thomas Sanders" "Mike McClurg")
+  (depends
+   dune-build-info
+   (alcotest :with-test)
+   astring
+   (cohttp (>= "0.22.0"))
+   re
+   rpclib
+   uri
+   (uuid (= :version))
+   (xapi-client (= :version))
+   (xapi-idl (= :version))
+   (xapi-rrd (= :version))
+   (xapi-types (= :version))
+   xmlm
+  )
 )
 
 (package
@@ -142,6 +172,7 @@
   (depends
    (ocaml (>= "4.02.0"))
    dune-build-info
+   (alcotest :with-test)
    astring
    (gzip (= :version))
    (http-lib (= :version))
@@ -229,6 +260,19 @@
 
 (package
   (name wsproxy)
+  (synopsis "Websockets proxy for VNC traffic")
+  (authors "Jon Ludlam" "Marcello Seri")
+  (license "LGPL-2.0-only WITH OCaml-LGPL-linking-exception")
+  (depends
+    (alcotest :with-test)
+    (base64 (>= "3.1.0"))
+    fmt
+    logs
+    (lwt (>= "3.0.0"))
+    re
+    uuid
+    (qcheck-core :with-test)
+  )
 )
 
 (package
@@ -241,6 +285,29 @@
 
 (package
   (name vhd-format-lwt)
+  (synopsis "Lwt interface to read/write VHD format data")
+  (description "A pure OCaml library to read and write
+[vhd](http://en.wikipedia.org/wiki/VHD_(file_format)) format data, plus a
+simple command-line tool which allows vhd files to be interrogated,
+manipulated, format-converted and streamed to and from files and remote
+servers.
+
+This package provides an Lwt compatible interface to the library.")
+  (authors "Jon Ludlam" "Dave Scott")
+  (maintainers "Dave Scott <[email protected]>")
+  (tags ("org:mirage" "org:xapi-project"))
+  (homepage "https://github.com/mirage/ocaml-vhd")
+  (source (github mirage/ocaml-vhd))
+  (depends
+    (ocaml (and (>= "4.02.3") (< "5.0.0")))
+    (alcotest :with-test)
+    (alcotest-lwt :with-test)
+    (cstruct (< "6.1.0"))
+    (lwt (>= "3.2.0"))
+    (mirage-block (>= "2.0.1"))
+    (vhd-format (= :version))
+    (io-page (and :with-test (>= "2.4.0")))
+  )
 )
 
 (package
@@ -277,6 +344,19 @@
 
 (package
   (name rrd-transport)
+  (synopsis "Shared-memory protocols for exposing system metrics")
+  (description "VMs running on a Xen host can use this library to expose performance counters which can be sampled by xapi's metric daemon.")
+  (authors "John Else")
+  (depends
+    (alcotest :with-test)
+    astring
+    cstruct
+    crc
+    yojson
+    (xapi-idl (= :version))
+    (xapi-rrd (= :version))
+    (odoc :with-doc)
+  )
 )
 
 (package
@@ -322,6 +402,27 @@
 
 (package
   (name http-lib)
+  (synopsis "An HTTP required used by xapi")
+  (description "This library allows xapi to perform varios activities related to the HTTP protocol.")
+  (depends
+    (alcotest :with-test)
+    astring
+    (base64 (>= "3.1.0"))
+    rpclib
+    (safe-resources(= :version))
+    sha
+    (stunnel (= :version))
+    (uuid (= :version))
+    xapi-backtrace
+    (xapi-idl (= :version))
+    (xapi-log (= :version))
+    (xapi-stdext-date (= :version))
+    (xapi-stdext-pervasives (= :version))
+    (xapi-stdext-threads (= :version))
+    (xapi-tracing (= :version))
+    (xml-light2 (= :version))
+    (odoc :with-doc)
+  )
 )
 
 (package

http-lib.opam

@@ -1,42 +1,45 @@
 # This file is generated by dune, edit dune-project instead
-license: "LGPL-2.1-only WITH OCaml-LGPL-linking-exception"
 opam-version: "2.0"
-maintainer: "[email protected]"
-authors: "[email protected]"
+synopsis: "An HTTP required used by xapi"
+description:
+  "This library allows xapi to perform varios activities related to the HTTP protocol."
+maintainer: ["Xapi project maintainers"]
+authors: ["[email protected]"]
+license: "LGPL-2.1-only WITH OCaml-LGPL-linking-exception"
 homepage: "https://xapi-project.github.io/"
-bug-reports: "https://github.com/xapi-project/xen-api.git"
-dev-repo: "git+https://github.com/xapi-project/xen-api.git"
-build: [
-  ["dune" "build" "-p" name "-j" jobs]
-  ["dune" "runtest" "-p" name "-j" jobs] {with-test}
-]
-available: [ os = "linux" | os = "macos" ]
+bug-reports: "https://github.com/xapi-project/xen-api/issues"
 depends: [
-  "ocaml"
-  "dune"
+  "dune" {>= "3.0"}
+  "alcotest" {with-test}
   "astring"
   "base64" {>= "3.1.0"}
   "rpclib"
-  "safe-resources"
+  "safe-resources" {= version}
   "sha"
-  "stunnel"
-  "uuid"
+  "stunnel" {= version}
+  "uuid" {= version}
   "xapi-backtrace"
-  "xapi-idl"
-  "xapi-log"
-  "xapi-stdext-date"
-  "xapi-stdext-pervasives"
-  "xapi-stdext-threads"
-  "xapi-stdext-unix"
-  "xapi-tracing"
-  "xml-light2"
-  "ounit2" {with-test & >= "2.0.0"}
+  "xapi-idl" {= version}
+  "xapi-log" {= version}
+  "xapi-stdext-date" {= version}
+  "xapi-stdext-pervasives" {= version}
+  "xapi-stdext-threads" {= version}
+  "xapi-tracing" {= version}
+  "xml-light2" {= version}
+  "odoc" {with-doc}
+]
+build: [
+  ["dune" "subst"] {dev}
+  [
+    "dune"
+    "build"
+    "-p"
+    name
+    "-j"
+    jobs
+    "@install"
+    "@runtest" {with-test}
+    "@doc" {with-doc}
+  ]
 ]
-synopsis: "Library required by xapi"
-description: """
-These libraries are provided for backwards compatibility only.
-No new code should use these libraries."""
-url {
-  src:
-    "https://github.com/xapi-project/xen-api/archive/master.tar.gz"
-}
+dev-repo: "git+https://github.com/xapi-project/xen-api.git"

ocaml/libs/http-lib/dune

@@ -68,7 +68,6 @@
   (libraries
     dune-build-info
     http_lib
-    ounit2
     safe-resources
     stunnel
     threads.posix
@@ -85,7 +84,6 @@
     dune-build-info
     http_lib
     httpsvr
-    ounit2
     safe-resources
     threads.posix
     xapi-stdext-threads

ocaml/libs/vhd/vhd_format_lwt_test/dune

@@ -1,5 +1,5 @@
 (test
  (name parse_test)
  (package vhd-format-lwt)
- (libraries cstruct disk io-page lwt lwt.unix ounit2 vhd-format
+ (libraries alcotest alcotest-lwt cstruct disk io-page lwt lwt.unix vhd-format
    vhd_format_lwt))

ocaml/libs/vhd/vhd_format_lwt_test/patterns_lwt.ml → ocaml/libs/vhd/vhd_format_lwt_test/lib.ml

@@ -11,14 +11,25 @@
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU Lesser General Public License for more details.
  *)
-open OUnit
 open Lwt
 module IO = Vhd_format_lwt.IO
 module Impl = Vhd_format.F.From_file (IO)
 module F = Vhd_format.F
 module Field = F.Vhd.Field
 open Impl
 
+let header =
+  Alcotest.testable (Fmt.of_to_string F.Header.to_string) F.Header.equal
+
+let footer = Alcotest.testable (Fmt.of_to_string F.Footer.to_string) ( = )
+
+let bat = Alcotest.testable (Fmt.of_to_string F.BAT.to_string) F.BAT.equal
+
+let cstruct_to_string c = String.escaped (Cstruct.to_string c)
+
+let cstruct =
+  Alcotest.testable (Fmt.of_to_string cstruct_to_string) F.cstruct_equal
+
 module Memory = struct
   let alloc bytes =
     if bytes = 0 then
@@ -76,8 +87,6 @@ let _absolute_sector_of vhd _position {Vhd_format.Patterns.block; sector} =
           (of_int relative_sector)
       )
 
-let cstruct_to_string c = String.escaped (Cstruct.to_string c)
-
 (* Verify that vhd [t] contains the sectors [expected] *)
 let check_written_sectors t expected =
   let y = Memory.alloc 512 in
@@ -90,7 +99,7 @@ let check_written_sectors t expected =
         | false ->
             fail (Failure "read empty sector, expected data")
         | true ->
-            assert_equal ~printer:cstruct_to_string ~cmp:F.cstruct_equal data y ;
+            Alcotest.check cstruct __LOC__ data y ;
             return ()
         )
         >>= fun () -> loop xs
@@ -130,12 +139,10 @@ let check_raw_stream_contents t expected =
               let actual = Cstruct.sub data (i * 512) 512 in
 
               ( if not (List.mem_assoc sector expected) then
-                  assert_equal ~printer:cstruct_to_string ~cmp:F.cstruct_equal
-                    empty_sector actual
+                  Alcotest.check cstruct __LOC__ empty_sector actual
                 else
                   let expected = List.assoc sector expected in
-                  assert_equal ~printer:cstruct_to_string ~cmp:F.cstruct_equal
-                    expected actual
+                  Alcotest.check cstruct __LOC__ expected actual
               ) ;
               check (i + 1)
           in
@@ -156,8 +163,7 @@ let check_raw_stream_contents t expected =
             else
               let expected = List.assoc offset expected in
               let actual = Cstruct.sub remaining 0 F.sector_size in
-              assert_equal ~printer:cstruct_to_string ~cmp:F.cstruct_equal
-                expected actual ;
+              Alcotest.check cstruct __LOC__ expected actual ;
               loop Int64.(add offset 1L) (Cstruct.shift remaining F.sector_size)
           in
           loop offset data

ocaml/libs/vhd/vhd_format_lwt_test/patterns_lwt.mli → ocaml/libs/vhd/vhd_format_lwt_test/lib.mli

@@ -12,6 +12,14 @@
  * GNU Lesser General Public License for more details.
  *)
 
+val header : Vhd_format.F.Header.t Alcotest.testable
+
+val footer : Vhd_format.F.Footer.t Alcotest.testable
+
+val bat : Vhd_format.F.BAT.t Alcotest.testable
+
+val cstruct : Cstruct.t Alcotest.testable
+
 val verify :
      Vhd_format_lwt.IO.fd Vhd_format.F.Vhd.t
   -> (int64 * Cstruct.t) list