Parsing test: remove no longer necessary flush

Author: vouillon

compiler/tests-jsoo/dune

@@ -20,16 +20,32 @@
  (preprocess
   (pps ppx_expect)))
 
+(library
+ (name jsoo_testsuite_parsing)
+ (modules test_parsing calc_parser calc_lexer)
+ (libraries unix compiler-libs.common js_of_ocaml-compiler)
+ (enabled_if
+  (>= %{ocaml_version} 5.1.1))
+ (inline_tests
+  (modes js best))
+ (preprocess
+  (pps ppx_expect)))
+
 (library
  (name jsoo_testsuite)
  (modules
-  (:standard \ test_io test_floats test_marshal_compressed))
+  (:standard
+   \
+   test_io
+   test_floats
+   test_marshal_compressed
+   test_parsing
+   calc_parser
+   calc_lexer))
  (libraries unix compiler-libs.common js_of_ocaml-compiler)
  (foreign_stubs
   (language c)
-  (names bigarray_stubs flush_stubs))
- (js_of_ocaml
-  (javascript_files runtime.js))
+  (names bigarray_stubs))
  (inline_tests
   (modes js best))
  (preprocess

compiler/tests-jsoo/flush_stubs.c

@@ -17,22 +17,15 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  *)
 
-(* see https://github.com/ocaml/ocaml/pull/12046 *)
-external flush_stdout_stderr : unit -> unit = "flush_stdout_stderr"
-
 let parse s =
-  flush_stdout_stderr ();
   try
     let lexbuf = Lexing.from_string s in
     while true do
       let result = Calc_parser.main Calc_lexer.token lexbuf in
-      flush_stdout_stderr ();
       print_int result;
       print_newline ()
     done
-  with Calc_lexer.Eof ->
-    flush_stdout_stderr ();
-    print_endline "EOF"
+  with Calc_lexer.Eof -> print_endline "EOF"
 
 let%expect_test "parsing" =
   let (old : bool) = Parsing.set_trace true in