X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=test_augeas.ml;h=c47db9a053017a6c3c01f4c8c1fea6b558c9f1a5;hb=refs%2Fheads%2Fmaster;hp=1be88b7e9331a4ab9434a5c2e67f388fa00e1273;hpb=9c83ccd0bc4c7ad0a699096089d4fe6c13d560a3;p=ocaml-augeas.git

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