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 (file)
--- 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