Get tests working on Windows (#5)

hcarty · May 5, 2020 · 1af1317 · 1af1317
1 parent 1c4c25c
commit 1af1317
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 15 deletions.
diff --git a/examples/ic.expected b/examples/ic.expected
@@ -1,7 +1,7 @@
 let () =
+  set_binary_mode_out stdout true;
   let ic = open_in_bin "ic.ml" in
   [%defer close_in ic];
   let length = in_channel_length ic in
   let bytes = really_input_string ic length in
-  print_endline bytes
-
+  print_string bytes
diff --git a/examples/ic.ml b/examples/ic.ml
@@ -1,6 +1,7 @@
 let () =
+  set_binary_mode_out stdout true;
   let ic = open_in_bin "ic.ml" in
   [%defer close_in ic];
   let length = in_channel_length ic in
   let bytes = really_input_string ic length in
-  print_endline bytes
+  print_string bytes
diff --git a/examples/ic_lwt.expected b/examples/ic_lwt.expected
@@ -1,8 +1 @@
-let promise =
-  let%lwt ic = Lwt_io.open_file ~mode:Lwt_io.input "ic_lwt.ml" in
-  [%defer.lwt Lwt_io.close ic];
-  let%lwt bytes = Lwt_io.read ic in
-  Lwt_io.printl bytes
-
-let () = Lwt_main.run promise
-
+Hello world
diff --git a/examples/ic_lwt.ml b/examples/ic_lwt.ml
@@ -1,7 +1,5 @@
 let promise =
-  let%lwt ic = Lwt_io.open_file ~mode:Lwt_io.input "ic_lwt.ml" in
-  [%defer.lwt Lwt_io.close ic];
-  let%lwt bytes = Lwt_io.read ic in
-  Lwt_io.printl bytes
+  [%defer.lwt Lwt_io.write Lwt_io.stdout " world"];
+  Lwt_io.write Lwt_io.stdout "Hello"
 
 let () = Lwt_main.run promise