From: Pino Toscano <ptoscano@redhat.com>
Date: Fri, 15 Sep 2017 14:42:06 +0000 (+0200)
Subject: test_augeas: print also the values of nodes
X-Git-Tag: v0.6~22
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=9ab3f09e4e4989b10b2fb747e6c4d029d052ae7a;p=ocaml-augeas.git

test_augeas: print also the values of nodes

Easy way to exercise Augeas.get too.
---

diff --git a/test_augeas.ml b/test_augeas.ml
index 1be88b7..c47db9a 100644
--- a/test_augeas.ml
+++ b/test_augeas.ml
@@ -26,7 +26,12 @@ let () =
 
   (* Print all files recursively. *)
   let rec print path =
-    if path <> "" then print_endline path;
+    if path <> "" then (
+      let value = Augeas.get aug path in
+      match value with
+      | None -> print_endline path
+      | Some value -> Printf.printf "%s -> '%s'\n%!" path value
+    );
     let files = List.sort compare (Augeas.matches aug (path ^ "/*")) in
     List.iter print files
   in