search for: 34edf9d

String.make can be used instead, and that function has been around since at least RHEL 6 era OCaml. --- generator/utils.ml | 9 +-------- generator/utils.mli | 3 --- 2 files changed, 1 insertion(+), 11 deletions(-) diff --git a/generator/utils.ml b/generator/utils.ml index 34edf9d..6fb04dc 100644 --- a/generator/utils.ml +++ b/generator/utils.ml @@ -356,14 +356,7 @@ let pod2text ?width ?(trim = true) ?(discard = true) name longdesc = (* Compare two actions (for sorting). *) let action_compare { name = n1 } { name = n2 } = compare n1 n2 -let chars c n = - let str = Strin...

...mmand sequence and expect either nothing to fail, + * or that the last command only can fail with ENOTSUP. + *) + | TestRunOrUnsupported of seq + (* Test prerequisites. *) and c_api_test_prereq = (* Test always runs. *) diff --git a/generator/utils.ml b/generator/utils.ml index 6eff6ad..34edf9d 100644 --- a/generator/utils.ml +++ b/generator/utils.ml @@ -266,7 +266,8 @@ let seq_of_test = function | TestResultDevice (s, _) | TestResultTrue s | TestResultFalse s - | TestLastFail s -> s + | TestLastFail s + | TestRunOrUnsupported s -> s let c_quote str = let str = rep...

Previously posted: https://www.redhat.com/archives/libguestfs/2015-December/msg00038.html Inspection now really succeeds on a small number of simple guests. To test it out: $ ./run guestfish -v -x -a /tmp/centos-6.img ><fs> run ><fs> debug sh "guestfs-inspection --verbose" Rich.