Use binary mode to open and get size of /reference files

Fixes #39
Octachron · Sep 27, 2024 · 46cf4a4 · 46cf4a4
1 parent 189a434
commit 46cf4a4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/integrated.ml b/tests/integrated.ml
@@ -155,7 +155,7 @@ let refname name =
 
 let reference name =
   if Sys.file_exists name then
-    let inc = open_in name in
+    let inc = open_in_bin name in
     really_input_string inc (in_channel_length inc)
   else
     ""