test/html: Fix escaping of filenames containing '

Author: Julow

test/html/test.ml

@@ -176,7 +176,7 @@ let diff =
   fun output ->
     let actual_file = Env.path `scratch // output in
     let expected_file = Env.path `expect // output in
-    let cmd = sprintf "diff -N -u -b %s %s" expected_file actual_file in
+    let cmd = sprintf "diff -N -u -b %S %S" expected_file actual_file in
     match Sys.command cmd with
     | 0 -> ()
     | 1 when !already_failed ->

test/html/tidy.ml

@@ -30,7 +30,7 @@ let validate file =
         "-ashtml";
       ]
   in
-  let cmd = Printf.sprintf "tidy %s %s" options file in
+  let cmd = Printf.sprintf "tidy %s %S" options file in
   let ((_, _, stderr) as proc) = Unix.open_process_full cmd [||] in
 
   let errors_and_warnings =