From a17cd5f8a2efde145d2c6950810688ab51b8111e Mon Sep 17 00:00:00 2001
From: Hugo Heuzard <hugo.heuzard@gmail.com>
Date: Thu, 16 Jan 2025 22:51:05 +0100
Subject: [PATCH] more

---
 .github/workflows/build-wasm_of_ocaml.yml |  2 ++
 tools/ci_setup.ml                         | 24 ++++++++++++++++++++++-
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/.github/workflows/build-wasm_of_ocaml.yml b/.github/workflows/build-wasm_of_ocaml.yml
index d2fd32ee4c..2f9c40eaf3 100644
--- a/.github/workflows/build-wasm_of_ocaml.yml
+++ b/.github/workflows/build-wasm_of_ocaml.yml
@@ -137,6 +137,7 @@ jobs:
 
       - name: Run Base tests
         if: matrix.all_jane_street_tests
+        continue-on-error: ${{ matrix.os == 'windows-latest' }}
         working-directory: ./janestreet/lib/base
         run: opam exec -- dune runtest
 
@@ -154,6 +155,7 @@ jobs:
 
       - name: Run Bignum tests
         if: matrix.all_jane_street_tests
+        continue-on-error: ${{ matrix.os == 'windows-latest' }}
         working-directory: ./janestreet/lib/bignum
         run: opam exec -- dune runtest
 
diff --git a/tools/ci_setup.ml b/tools/ci_setup.ml
index 185d5a5126..73bf09ddd8 100644
--- a/tools/ci_setup.ml
+++ b/tools/ci_setup.ml
@@ -126,8 +126,29 @@ index c6d09fb..61b1e5b 100644
      let t' = require_no_allocation (fun () -> abs t) in
 |bignum}
     )
+  ; ( "bin_prot"
+    , {|
+diff --git a/test/dune b/test/dune
+index 6c0ef2f..9968f59 100644
+--- a/test/dune
++++ b/test/dune
+@@ -5,11 +5,3 @@
+    float_array base.md5 sexplib splittable_random stdio)
+  (preprocess
+   (pps ppx_jane)))
+-
+-(rule
+- (alias runtest)
+- (deps core/blob_stability_tests.ml integers_repr_tests_64bit.ml
+-   integers_repr_tests_js.ml integers_repr_tests_wasm.ml)
+- (action
+-  (bash
+-    "diff <(\necho '869e6b3143f14201f406eac9c05c4cdb  core/blob_stability_tests.ml'\necho '2db396dfced6ae8d095f308acb4c80eb  integers_repr_tests_64bit.ml'\necho '9f7b6332177a4ae9547d37d17008d7ef  integers_repr_tests_js.ml'\necho '22f653bfba79ce30c22fe378c596df54  integers_repr_tests_wasm.ml'\n  ) <(md5sum %{deps})")))
+    |}
+    )
   ]
 
+let removes = [ "core/core/test/test_sys.ml" ]
 (****)
 
 let read_opam_file filename =
@@ -279,4 +300,5 @@ let () =
             | WSTOPPED n -> "stop", n
           in
           failwith (Printf.sprintf "%s %d while patching %s" name i dir))
-    patches
+    patches;
+  List.iter (fun p -> Sys.remove (Printf.sprintf "%s/lib/%s" jane_root p)) removes