X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=test_augeas.ml;h=c47db9a053017a6c3c01f4c8c1fea6b558c9f1a5;hb=9ab3f09e4e4989b10b2fb747e6c4d029d052ae7a;hp=1be88b7e9331a4ab9434a5c2e67f388fa00e1273;hpb=a9c904a256cb10be03995e265c8446be87b73284;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