ounit byte as string

Author: bobzhang

jscomp/ounit/oUnit.ml

@@ -231,11 +231,11 @@ let assert_command
            (* Dump process output to stderr *)
            begin
              let chn = open_in fn_out in
-             let buff = String.make 4096 'X' in
+             let buff = Bytes.make 4096 'X' in
              let len = ref (-1) in
                while !len <> 0 do 
-                 len := input chn buff 0 (String.length buff);
-                 OUnitLogger.printf !global_logger "%s" (String.sub buff 0 !len);
+                 len := input chn buff 0 (Bytes.length buff);
+                 OUnitLogger.printf !global_logger "%s" (Bytes.to_string @@ Bytes.sub buff 0 !len);
                done;
                close_in chn
            end;