1 files changed, 42 insertions, 0 deletions
diff --git a/testing/ocaml-libvirt/0004-examples-Print-more-stats-in-the-get_all_domain_stat.patch b/testing/ocaml-libvirt/0004-examples-Print-more-stats-in-the-get_all_domain_stat.patch
new file mode 100644
index 0000000000..a4baded24a
--- /dev/null
+++ b/testing/ocaml-libvirt/0004-examples-Print-more-stats-in-the-get_all_domain_stat.patch
@@ -0,0 +1,42 @@
+From 2bb6200934090f34f81d1badb9a55f5a86a7fb32 Mon Sep 17 00:00:00 2001
+From: "Richard W.M. Jones" <rjones@redhat.com>
+Date: Tue, 28 Mar 2017 13:11:09 +0100
+Subject: [PATCH 4/5] examples: Print more stats in the get_all_domain_stats.ml
+ example.
+
+Updates commit 380f1e05b244ae4750ca5101b5b5a182dcd0d1fd.
+---
+ examples/get_all_domain_stats.ml | 13 ++++++++++---
+ 1 file changed, 10 insertions(+), 3 deletions(-)
+
+diff --git a/examples/get_all_domain_stats.ml b/examples/get_all_domain_stats.ml
+index 4375639..cc86da6 100644
+--- a/examples/get_all_domain_stats.ml
++++ b/examples/get_all_domain_stats.ml
+@@ -40,13 +40,20 @@ let () =
+ 
+   let conn = C.connect_readonly () in
+ 
+-  let what_stats = [D.StatsCpuTotal; D.StatsInterface; D.StatsBlock] in
+-  let flags = [D.GetAllDomainsStatsActive; D.GetAllDomainsStatsInactive] in
++  let what = [
++    D.StatsState;
++    D.StatsCpuTotal;
++    D.StatsBalloon;
++    D.StatsVcpu;
++    D.StatsInterface;
++    D.StatsBlock;
++  ] in
++  let who = [] in (* empty list means returns all domains *)
+ 
+   let quit = ref false in
+ 
+   while not !quit do
+-    let stats = D.get_all_domain_stats conn what_stats flags in
++    let stats = D.get_all_domain_stats conn what who in
+ 
+     if stats <> [||] then print_stats stats
+     else (
+-- 
+2.9.3
+