Merge pull request #41 from jonahbeckford/win32-binary-mode

Use binary mode to open and get size of /reference files
Octachron · Sep 27, 2024 · 64b6fd4 · 64b6fd4
2 parents 8c37f49 + 46cf4a4
commit 64b6fd4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/integrated.ml b/tests/integrated.ml
@@ -156,7 +156,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
     ""