mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

daemon: utils: New functions and tests.

Browse Source 
These utility functions will be used in the OCaml inspection code.
This commit is contained in:
Richard W.M. Jones
2017-07-17 17:01:48 +01:00
parent 2ffb8a6b25
commit 11b8a5db19
3 changed files with 38 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
daemon/daemon_utils_tests.ml
View File

@@ -46,3 +46,13 @@ let () =
let () =
assert (proc_unmangle_path "\\040" = " ");
assert (proc_unmangle_path "\\040\\040" = " ")
(* Test unix_canonical_path. *)
let () =
assert (unix_canonical_path "/" = "/");
assert (unix_canonical_path "/usr" = "/usr");
assert (unix_canonical_path "/usr/" = "/usr");
assert (unix_canonical_path "/usr/local" = "/usr/local");
assert (unix_canonical_path "///" = "/");
assert (unix_canonical_path "///usr//local//" = "/usr/local");
assert (unix_canonical_path "/usr///" = "/usr")