gazagnaire.org / ocaml-git
Git object storage and pack files for Eio
fork

Configure Feed

Select the types of activity you want to include in your feed.

fix: use Printf.fprintf for out_channel in test_pack.ml

Fmt.pf expects a Format.formatter, not an out_channel.

Thomas Gazagnaire a2fc503f 4913930c

+3 -3
+3 -3
test/test_pack.ml
··· 218 218 let oc = open_out file in 219 219 (* Write 10KB of content - enough to trigger delta compression *) 220 220 for i = 1 to 500 do 221 - Fmt.pf oc "Line %d: This is some repetitive content.\n" i 221 + Printf.fprintf oc "Line %d: This is some repetitive content.\n" i 222 222 done; 223 223 close_out oc; 224 224 ignore (run_git tmp_dir [ "add"; "large.txt" ]); ··· 226 226 (* Modify just a few lines - this will create a delta *) 227 227 let oc = open_out file in 228 228 for i = 1 to 500 do 229 - if i = 250 then Fmt.pf oc "Line %d: MODIFIED CONTENT HERE!\n" i 230 - else Fmt.pf oc "Line %d: This is some repetitive content.\n" i 229 + if i = 250 then Printf.fprintf oc "Line %d: MODIFIED CONTENT HERE!\n" i 230 + else Printf.fprintf oc "Line %d: This is some repetitive content.\n" i 231 231 done; 232 232 close_out oc; 233 233 ignore (run_git tmp_dir [ "add"; "large.txt" ]);