From 9f879c2e11decd257e1265482603a6b841fb917c Mon Sep 17 00:00:00 2001 From: Sora Morimoto Date: Tue, 19 Nov 2024 05:46:15 +0900 Subject: [PATCH] Cleanup Signed-off-by: Sora Morimoto --- .github/workflows/workflow.yml | 54 +----- Makefile | 4 +- docs/dune | 2 +- dune-project | 8 +- lwt.opam | 1 + lwt_ppx.opam | 1 + lwt_react.opam | 1 + lwt_retry.opam | 6 +- src/core/dune | 16 +- src/core/lwt.ml | 4 +- src/ppx/dune | 20 +-- src/react/dune | 16 +- src/retry/dune | 16 +- src/unix/dune | 319 +++++++++++++++++---------------- src/unix/lwt_io.ml | 6 +- src/unix/lwt_process.cppo.ml | 2 +- src/unix/lwt_unix.cppo.ml | 4 +- test/core/dune | 4 +- test/core/test_lwt.ml | 10 +- test/ppx/dune | 4 +- test/ppx/main.ml | 2 + test/ppx_let/dune | 3 +- test/unix/dune | 3 +- test/unix/test_lwt_io.ml | 2 +- test/unix/test_lwt_unix.ml | 8 +- 25 files changed, 218 insertions(+), 298 deletions(-) diff --git a/.github/workflows/workflow.yml b/.github/workflows/workflow.yml index ff1e49e194..00d33feae3 100644 --- a/.github/workflows/workflow.yml +++ b/.github/workflows/workflow.yml @@ -28,51 +28,16 @@ jobs: libev: - true - false - ppx: - - true - local-packages: - - | - *.opam include: - os: ubuntu-latest ocaml-compiler: ocaml-variants.5.2.0+options,ocaml-option-flambda,ocaml-option-musl,ocaml-option-static,ocaml-option-no-compression libev: false - ppx: true - local-packages: | - *.opam - os: macos-latest - ocaml-compiler: "5.2" - libev: true - ppx: true - local-packages: | - *.opam - - os: windows-latest ocaml-compiler: "5.2" libev: false - ppx: true - local-packages: | - *.opam - - os: ubuntu-latest - ocaml-compiler: "5.2" - libev: true - ppx: false - local-packages: | - *.opam - !lwt_ppx.opam - - os: macos-latest - ocaml-compiler: "5.2" - libev: true - ppx: false - local-packages: | - *.opam - !lwt_ppx.opam - os: windows-latest ocaml-compiler: "5.2" libev: false - ppx: false - local-packages: | - *.opam - !lwt_ppx.opam runs-on: ${{ matrix.os }} @@ -84,37 +49,26 @@ jobs: uses: ocaml/setup-ocaml@v3 with: ocaml-compiler: ${{ matrix.ocaml-compiler }} - opam-local-packages: ${{ matrix.local-packages }} - run: opam install conf-libev if: ${{ matrix.libev == true }} - - run: opam install lwt_react lwt --deps-only --with-test - - - run: opam install lwt_ppx --deps-only --with-test - if: ${{ matrix.ppx == true }} - - - run: opam exec -- dune build --only-packages lwt_react,lwt + - run: opam install . --deps-only --with-test - - run: opam exec -- dune build --only-packages lwt_ppx - if: ${{ matrix.ppx == true }} + - run: opam exec -- dune build - - run: opam exec -- dune runtest --only-packages lwt_react,lwt + - run: opam exec -- dune runtest --instrument-with bisect_ppx --force - - run: opam exec -- dune runtest --only-packages lwt_ppx - if: ${{ matrix.ppx == true }} + - run: opam exec -- bisect-ppx-report summary --per-file lint-opam: runs-on: ubuntu-latest - steps: - name: Checkout tree uses: actions/checkout@v4 - - name: Set-up OCaml uses: ocaml/setup-ocaml@v3 with: ocaml-compiler: "5.2" dune-cache: true - - uses: ocaml/setup-ocaml/lint-opam@v3 diff --git a/Makefile b/Makefile index 7a40d9062e..022597d5ef 100644 --- a/Makefile +++ b/Makefile @@ -68,9 +68,7 @@ EXPECTED_FILES := \ .PHONY: coverage coverage : - rm -rf _build/default/test/ppx_expect - find _build -name '*.coverage' | xargs rm -f - BISECT_ENABLE=yes dune runtest --force + dune runtest --instrument-with bisect_ppx --force bisect-ppx-report html $(EXPECTED_FILES) bisect-ppx-report summary @echo See _coverage/index.html diff --git a/docs/dune b/docs/dune index cb49e843ee..380ec02289 100644 --- a/docs/dune +++ b/docs/dune @@ -1,3 +1,3 @@ (documentation (package lwt) - (mld_files :standard)) + (mld_files :standard)) diff --git a/dune-project b/dune-project index b233ce5e1c..5c32ef3df4 100644 --- a/dune-project +++ b/dune-project @@ -21,7 +21,8 @@ "Shon Feder ") (depends (ocaml (>= 4.08)) - (lwt (>= 5.3.0)))) + (lwt (>= 5.3.0)) + (bisect_ppx :with-test))) (package (name lwt_ppx) @@ -30,6 +31,7 @@ (ocaml (>= 4.08)) (ppxlib (>= 0.16.0)) (ppx_let :with-test) + (bisect_ppx :with-test) lwt)) (package @@ -39,7 +41,8 @@ (ocaml (>= 4.08)) (cppo (and :build (>= 1.1.0))) (lwt (>= 3.0.0)) - (react (>= 1.0.0)))) + (react (>= 1.0.0)) + (bisect_ppx :with-test))) (package (name lwt) @@ -58,6 +61,7 @@ synchronization primitives. Code can be run in parallel on an opt-in basis. (cppo (and :build (>= 1.1.0))) (ocamlfind (and :dev (>= 1.7.3-1))) (odoc (and :with-doc (>= 2.3.0))) + (bisect_ppx :with-test) dune-configurator ocplib-endian) (depopts base-threads base-unix conf-libev)) diff --git a/lwt.opam b/lwt.opam index bc59b1d1e0..93a3ed64cb 100644 --- a/lwt.opam +++ b/lwt.opam @@ -25,6 +25,7 @@ depends: [ "cppo" {build & >= "1.1.0"} "ocamlfind" {dev & >= "1.7.3-1"} "odoc" {with-doc & >= "2.3.0"} + "bisect_ppx" {with-test} "dune-configurator" "ocplib-endian" ] diff --git a/lwt_ppx.opam b/lwt_ppx.opam index 68b2faf99d..57b2c210f5 100644 --- a/lwt_ppx.opam +++ b/lwt_ppx.opam @@ -15,6 +15,7 @@ depends: [ "ocaml" {>= "4.08"} "ppxlib" {>= "0.16.0"} "ppx_let" {with-test} + "bisect_ppx" {with-test} "lwt" "odoc" {with-doc} ] diff --git a/lwt_react.opam b/lwt_react.opam index 975424697c..c506050bdd 100644 --- a/lwt_react.opam +++ b/lwt_react.opam @@ -15,6 +15,7 @@ depends: [ "cppo" {build & >= "1.1.0"} "lwt" {>= "3.0.0"} "react" {>= "1.0.0"} + "bisect_ppx" {with-test} "odoc" {with-doc} ] build: [ diff --git a/lwt_retry.opam b/lwt_retry.opam index bf8413e56f..879deec73e 100644 --- a/lwt_retry.opam +++ b/lwt_retry.opam @@ -10,12 +10,14 @@ homepage: "https://github.com/ocsigen/lwt" doc: "https://ocsigen.org/lwt" bug-reports: "https://github.com/ocsigen/lwt/issues" depends: [ - "dune" {>= "2.0"} + "dune" {>= "2.7"} "ocaml" {>= "4.08"} "lwt" {>= "5.3.0"} + "bisect_ppx" {with-test} + "odoc" {with-doc} ] build: [ - ["dune" "subst"] {pinned} + ["dune" "subst"] {dev} [ "dune" "build" diff --git a/src/core/dune b/src/core/dune index 9b890d1855..dab7ccc8db 100644 --- a/src/core/dune +++ b/src/core/dune @@ -1,21 +1,9 @@ -(* -*- tuareg -*- *) - -let preprocess = - match Sys.getenv "BISECT_ENABLE" with - | "yes" -> "(preprocess (pps bisect_ppx))" - | _ -> "" - | exception _ -> "" - -let () = Jbuild_plugin.V1.send @@ {| - (library (public_name lwt) (synopsis "Monadic promises and concurrent I/O") (wrapped false) - |} ^ preprocess ^ {| - (flags (:standard -w +A-29))) + (instrumentation + (backend bisect_ppx))) (documentation (package lwt)) - -|} diff --git a/src/core/lwt.ml b/src/core/lwt.ml index be6f5128fb..f69a71452c 100644 --- a/src/core/lwt.ml +++ b/src/core/lwt.ml @@ -830,14 +830,14 @@ struct | Regular_callback_list_empty, _ -> l2 | _, Regular_callback_list_empty -> l1 | _, _ -> Regular_callback_list_concat (l1, l2) - end [@ocaml.warning "-4"] + end let concat_cancel_callbacks l1 l2 = begin match l1, l2 with | Cancel_callback_list_empty, _ -> l2 | _, Cancel_callback_list_empty -> l1 | _, _ -> Cancel_callback_list_concat (l1, l2) - end [@ocaml.warning "-4"] + end (* In a callback list, filters out cells of explicitly removable callbacks that have been removed. *) diff --git a/src/ppx/dune b/src/ppx/dune index 34f7513dd3..1a48fc9380 100644 --- a/src/ppx/dune +++ b/src/ppx/dune @@ -1,22 +1,10 @@ -(* -*- tuareg -*- *) - -let bisect_ppx = - match Sys.getenv "BISECT_ENABLE" with - | "yes" -> "bisect_ppx" - | _ -> "" - | exception _ -> "" - -let () = Jbuild_plugin.V1.send @@ {| - (library - (name ppx_lwt) (public_name lwt_ppx) (synopsis "Lwt PPX syntax extension") - (modules ppx_lwt) (libraries ppxlib) (ppx_runtime_libraries lwt) (kind ppx_rewriter) - (preprocess (pps ppxlib.metaquot|} ^ bisect_ppx ^ {|)) - (flags (:standard -w +A-4))) - -|} + (preprocess + (pps ppxlib.metaquot)) + (instrumentation + (backend bisect_ppx))) diff --git a/src/react/dune b/src/react/dune index 116f8454e5..be26a6c340 100644 --- a/src/react/dune +++ b/src/react/dune @@ -1,19 +1,7 @@ -(* -*- tuareg -*- *) - -let preprocess = - match Sys.getenv "BISECT_ENABLE" with - | "yes" -> "(preprocess (pps bisect_ppx))" - | _ -> "" - | exception _ -> "" - -let () = Jbuild_plugin.V1.send @@ {| - (library (public_name lwt_react) (synopsis "Reactive programming helpers for Lwt") (wrapped false) (libraries lwt react) - |} ^ preprocess ^ {| - (flags (:standard -w +A))) - -|} + (instrumentation + (backend bisect_ppx))) diff --git a/src/retry/dune b/src/retry/dune index 2a09d3d6e5..0dd136a478 100644 --- a/src/retry/dune +++ b/src/retry/dune @@ -1,19 +1,7 @@ -(* -*- tuareg -*- *) - -let preprocess = - match Sys.getenv "BISECT_ENABLE" with - | "yes" -> "(preprocess (pps bisect_ppx))" - | _ -> "" - | exception _ -> "" - -let () = Jbuild_plugin.V1.send @@ {| - (library (public_name lwt_retry) (synopsis "A utility for retrying Lwt computations") (wrapped false) (libraries lwt lwt.unix) - |} ^ preprocess ^ {| - (flags (:standard -w +A))) - -|} + (instrumentation + (backend bisect_ppx))) diff --git a/src/unix/dune b/src/unix/dune index 830eb256af..a5c6a3977c 100644 --- a/src/unix/dune +++ b/src/unix/dune @@ -1,189 +1,196 @@ -(* -*- tuareg -*- *) - -let preprocess = - match Sys.getenv "BISECT_ENABLE" with - | "yes" -> "(preprocess (pps bisect_ppx))" - | _ -> "" - | exception _ -> "" - -let () = Jbuild_plugin.V1.send @@ {| - (rule (targets lwt_process.ml) - (deps (:ml lwt_process.cppo.ml)) + (deps + (:ml lwt_process.cppo.ml)) (action - (chdir %{project_root} + (chdir + %{project_root} (run %{bin:cppo} -V OCAML:%{ocaml_version} %{ml} -o %{targets})))) (rule (targets lwt_unix.ml) - (deps (:ml lwt_unix.cppo.ml)) + (deps + (:ml lwt_unix.cppo.ml)) (action - (chdir %{project_root} + (chdir + %{project_root} (run %{bin:cppo} -V OCAML:%{ocaml_version} %{ml} -o %{targets})))) (rule (targets lwt_unix.mli) - (deps (:ml lwt_unix.cppo.mli)) + (deps + (:ml lwt_unix.cppo.mli)) (action - (chdir %{project_root} + (chdir + %{project_root} (run %{bin:cppo} -V OCAML:%{ocaml_version} %{ml} -o %{targets})))) (rule (mode fallback) (targets discover_arguments) - (action (with-stdout-to %{targets} (echo "")))) + (action + (with-stdout-to + %{targets} + (echo "")))) (rule (targets - unix_c_flags.sexp unix_c_library_flags.sexp lwt_features.h lwt_features.ml) - (deps (:exe config/discover.exe) discover_arguments) - (action (run %{exe}))) + unix_c_flags.sexp + unix_c_library_flags.sexp + lwt_features.h + lwt_features.ml) + (deps + (:exe config/discover.exe) + discover_arguments) + (action + (run %{exe}))) (copy_files unix_c/*) + (copy_files windows_c/*.c) (library (name lwt_unix) (public_name lwt.unix) (synopsis "Unix support for Lwt") - (optional) (wrapped false) (libraries bigarray lwt ocplib-endian.bigstring threads unix) - |} ^ preprocess ^ {| (install_c_headers lwt_features lwt_config lwt_unix) (foreign_stubs - (language c) - (names - lwt_unix_stubs - lwt_libev_stubs - lwt_process_stubs - unix_readable - unix_writable - unix_madvise - unix_get_page_size - windows_get_page_size - unix_mincore - unix_read - unix_pread - windows_read - windows_pread - unix_bytes_read - windows_bytes_read - unix_write - unix_pwrite - windows_write - windows_pwrite - unix_bytes_write - windows_bytes_write - unix_readv_writev_utils - unix_iov_max - unix_writev - unix_writev_job - unix_readv - unix_readv_job - unix_send - unix_bytes_send - unix_recv - unix_bytes_recv - unix_recvfrom - unix_bytes_recvfrom - unix_sendto - unix_sendto_byte - unix_bytes_sendto - unix_bytes_sendto_byte - unix_recv_send_utils - unix_recv_msg - unix_send_msg - unix_send_msg_byte - unix_get_credentials - unix_mcast_utils - unix_mcast_set_loop - unix_mcast_set_ttl - unix_mcast_modify_membership - unix_wait4 - unix_get_cpu - unix_get_affinity - unix_set_affinity - unix_guess_blocking_job - unix_wait_mincore_job - unix_open_job - unix_read_job - unix_pread_job - windows_read_job - windows_pread_job - unix_bytes_read_job - windows_bytes_read_job - unix_write_job - windows_write_job - unix_pwrite_job - windows_pwrite_job - unix_bytes_write_job - windows_bytes_write_job - unix_stat_job_utils - unix_stat_job - unix_stat_64_job - unix_lstat_job - unix_lstat_64_job - unix_fstat_job - unix_fstat_64_job - unix_utimes_job - unix_isatty_job - unix_opendir_job - unix_closedir_job - unix_valid_dir - unix_invalidate_dir - unix_rewinddir_job - unix_readdir_job - unix_readdir_n_job - unix_readlink_job - unix_lockf_job - unix_getlogin_job - unix_get_pw_gr_nam_id_job - unix_get_network_information_utils - unix_gethostname_job - unix_gethostbyname_job - unix_gethostbyaddr_job - unix_getprotoby_getservby_job - unix_getaddrinfo_job - unix_getnameinfo_job - unix_bind_job - unix_getcwd_job - unix_termios_conversion - unix_tcgetattr_job - unix_tcsetattr_job - windows_is_socket - windows_fsync_job - windows_system_job - windows_not_available - unix_not_available - unix_access_job - unix_chdir_job - unix_chmod_job - unix_chown_job - unix_chroot_job - unix_close_job - unix_fchmod_job - unix_fchown_job - unix_fdatasync_job - unix_fsync_job - unix_ftruncate_job - unix_link_job - unix_lseek_job - unix_mkdir_job - unix_mkfifo_job - unix_rename_job - unix_rmdir_job - unix_symlink_job - unix_tcdrain_job - unix_tcflow_job - unix_tcflush_job - unix_tcsendbreak_job - unix_truncate_job - unix_unlink_job - unix_somaxconn - windows_somaxconn - unix_accept4) - (flags (:include unix_c_flags.sexp))) - (c_library_flags (:include unix_c_library_flags.sexp))) -|} + (language c) + (names + lwt_unix_stubs + lwt_libev_stubs + lwt_process_stubs + unix_readable + unix_writable + unix_madvise + unix_get_page_size + windows_get_page_size + unix_mincore + unix_read + unix_pread + windows_read + windows_pread + unix_bytes_read + windows_bytes_read + unix_write + unix_pwrite + windows_write + windows_pwrite + unix_bytes_write + windows_bytes_write + unix_readv_writev_utils + unix_iov_max + unix_writev + unix_writev_job + unix_readv + unix_readv_job + unix_send + unix_bytes_send + unix_recv + unix_bytes_recv + unix_recvfrom + unix_bytes_recvfrom + unix_sendto + unix_sendto_byte + unix_bytes_sendto + unix_bytes_sendto_byte + unix_recv_send_utils + unix_recv_msg + unix_send_msg + unix_send_msg_byte + unix_get_credentials + unix_mcast_utils + unix_mcast_set_loop + unix_mcast_set_ttl + unix_mcast_modify_membership + unix_wait4 + unix_get_cpu + unix_get_affinity + unix_set_affinity + unix_guess_blocking_job + unix_wait_mincore_job + unix_open_job + unix_read_job + unix_pread_job + windows_read_job + windows_pread_job + unix_bytes_read_job + windows_bytes_read_job + unix_write_job + windows_write_job + unix_pwrite_job + windows_pwrite_job + unix_bytes_write_job + windows_bytes_write_job + unix_stat_job_utils + unix_stat_job + unix_stat_64_job + unix_lstat_job + unix_lstat_64_job + unix_fstat_job + unix_fstat_64_job + unix_utimes_job + unix_isatty_job + unix_opendir_job + unix_closedir_job + unix_valid_dir + unix_invalidate_dir + unix_rewinddir_job + unix_readdir_job + unix_readdir_n_job + unix_readlink_job + unix_lockf_job + unix_getlogin_job + unix_get_pw_gr_nam_id_job + unix_get_network_information_utils + unix_gethostname_job + unix_gethostbyname_job + unix_gethostbyaddr_job + unix_getprotoby_getservby_job + unix_getaddrinfo_job + unix_getnameinfo_job + unix_bind_job + unix_getcwd_job + unix_termios_conversion + unix_tcgetattr_job + unix_tcsetattr_job + windows_is_socket + windows_fsync_job + windows_system_job + windows_not_available + unix_not_available + unix_access_job + unix_chdir_job + unix_chmod_job + unix_chown_job + unix_chroot_job + unix_close_job + unix_fchmod_job + unix_fchown_job + unix_fdatasync_job + unix_fsync_job + unix_ftruncate_job + unix_link_job + unix_lseek_job + unix_mkdir_job + unix_mkfifo_job + unix_rename_job + unix_rmdir_job + unix_symlink_job + unix_tcdrain_job + unix_tcflow_job + unix_tcflush_job + unix_tcsendbreak_job + unix_truncate_job + unix_unlink_job + unix_somaxconn + windows_somaxconn + unix_accept4) + (flags + (:include unix_c_flags.sexp))) + (c_library_flags + (:include unix_c_library_flags.sexp)) + (instrumentation + (backend bisect_ppx))) diff --git a/src/unix/lwt_io.ml b/src/unix/lwt_io.ml index 8b3033faec..e7224b1602 100644 --- a/src/unix/lwt_io.ml +++ b/src/unix/lwt_io.ml @@ -231,7 +231,7 @@ let perform_io : type mode. mode _channel -> int Lwt.t = fun ch -> (function | Unix.Unix_error (Unix.EPIPE, _, _) -> Lwt.return 0 - | exn -> Lwt.reraise exn) [@ocaml.warning "-4"] + | exn -> Lwt.reraise exn) else perform ch.buffer ptr len in @@ -1549,7 +1549,7 @@ let close_socket fd = (function (* Occurs if the peer closes the connection first. *) | Unix.Unix_error (Unix.ENOTCONN, _, _) -> Lwt.return_unit - | exn -> Lwt.reraise exn) [@ocaml.warning "-4"]) + | exn -> Lwt.reraise exn)) (fun () -> Lwt_unix.close fd) @@ -1661,7 +1661,7 @@ let establish_server_generic Unix.unlink path | _ -> () - end [@ocaml.warning "-4"]; + end; Lwt.wakeup_later notify_listening_socket_closed (); Lwt.return_unit diff --git a/src/unix/lwt_process.cppo.ml b/src/unix/lwt_process.cppo.ml index ceb86be232..3990c8269b 100644 --- a/src/unix/lwt_process.cppo.ml +++ b/src/unix/lwt_process.cppo.ml @@ -378,7 +378,7 @@ let read_opt read ic = (function | Unix.Unix_error (Unix.EPIPE, _, _) | End_of_file -> Lwt.return_none - | exn -> Lwt.reraise exn) [@ocaml.warning "-4"] + | exn -> Lwt.reraise exn) let recv_chars pr = let ic = pr#stdout in diff --git a/src/unix/lwt_unix.cppo.ml b/src/unix/lwt_unix.cppo.ml index 5edb4b83d0..975b5e3fb6 100644 --- a/src/unix/lwt_unix.cppo.ml +++ b/src/unix/lwt_unix.cppo.ml @@ -1034,7 +1034,7 @@ let file_exists name = (fun e -> match e with | Unix.Unix_error _ -> Lwt.return_false - | _ -> Lwt.reraise e) [@ocaml.warning "-4"] + | _ -> Lwt.reraise e) external utimes_job : string -> float -> float -> unit job = "lwt_unix_utimes_job" @@ -1140,7 +1140,7 @@ struct (fun e -> match e with | Unix.Unix_error _ -> Lwt.return_false - | _ -> Lwt.reraise e) [@ocaml.warning "-4"] + | _ -> Lwt.reraise e) end diff --git a/test/core/dune b/test/core/dune index b03d5ef183..1a3c883ab3 100644 --- a/test/core/dune +++ b/test/core/dune @@ -1,6 +1,4 @@ (test (name main) (package lwt) - (libraries lwttester) - (preprocess (future_syntax)) - (flags (:standard -w +A-40-42))) + (libraries lwttester)) diff --git a/test/core/test_lwt.ml b/test/core/test_lwt.ml index 2ba5ab5641..b2faf6d565 100644 --- a/test/core/test_lwt.ml +++ b/test/core/test_lwt.ml @@ -2330,7 +2330,7 @@ let choose_tests = suite "choose" [ | Lwt.Fail Exception -> repeat (n - 1) | Lwt.Return "bar" -> false | _ -> assert false - end [@ocaml.warning "-4"]; + end in let count = 100 in Lwt.return (repeat count) @@ -2439,7 +2439,7 @@ let nchoose_split_tests = suite "nchoose_split" [ begin match Lwt.state p with | Lwt.Return (["foo"; "bar"], [_]) -> Lwt.return_true | _ -> Lwt.return_false - end [@ocaml.warning "-4"] + end end; test "fulfilled, rejected" begin fun () -> @@ -2465,7 +2465,7 @@ let nchoose_split_tests = suite "nchoose_split" [ begin match Lwt.state p with | Lwt.Return (["foo"], [_]) -> Lwt.return_true | _ -> Lwt.return_false - end [@ocaml.warning "-4"] + end end; test "pending, rejected 2" begin fun () -> @@ -2482,7 +2482,7 @@ let nchoose_split_tests = suite "nchoose_split" [ begin match Lwt.state p with | Lwt.Return ([(); ()], [_]) -> Lwt.return_true | _ -> Lwt.return_false - end [@ocaml.warning "-4"] + end end; test "diamond, rejected" begin fun () -> @@ -3036,7 +3036,7 @@ let pick_tests = suite "pick" [ && repeat (n - 1) | Lwt.Return "bar" -> false | _ -> assert false - end [@ocaml.warning "-4"]; + end in let count = 100 in Lwt.return (repeat count) diff --git a/test/ppx/dune b/test/ppx/dune index 30d4d19573..227d21f279 100644 --- a/test/ppx/dune +++ b/test/ppx/dune @@ -2,5 +2,5 @@ (name main) (package lwt_ppx) (libraries lwttester) - (preprocess (pps lwt_ppx)) - (flags (:standard -warn-error -22))) + (preprocess + (pps lwt_ppx))) diff --git a/test/ppx/main.ml b/test/ppx/main.ml index aa12da2513..18db4bdade 100644 --- a/test/ppx/main.ml +++ b/test/ppx/main.ml @@ -6,7 +6,9 @@ open Lwt local module inside the tester function, because that function is run inside an outer call to Lwt_main.run, and nested calls to Lwt_main.run are not allowed. *) +[@@@ocaml.warning "-22"] let%lwt structure_let_result = Lwt.return_true +[@@@ocaml.warning "+22"] let suite = suite "ppx" [ test "let" diff --git a/test/ppx_let/dune b/test/ppx_let/dune index 87529263bf..7915e092a3 100644 --- a/test/ppx_let/dune +++ b/test/ppx_let/dune @@ -1,5 +1,6 @@ (test (name test) (package lwt_ppx) ;; technically not part of lwt_ppx, but we want it tested and the dependency to ppxlib is already there - (preprocess (pps ppx_let)) + (preprocess + (pps ppx_let)) (libraries lwt lwt.unix)) diff --git a/test/unix/dune b/test/unix/dune index 9dc1df6431..009be82429 100644 --- a/test/unix/dune +++ b/test/unix/dune @@ -23,8 +23,7 @@ (package lwt) (libraries lwttester tester) (modules main) - (deps bytes_io_data %{exe:dummy.exe}) -) + (deps bytes_io_data %{exe:dummy.exe})) (test (name ocaml_runtime_exc_1) diff --git a/test/unix/test_lwt_io.ml b/test/unix/test_lwt_io.ml index f902f5e3ed..b94a9625aa 100644 --- a/test/unix/test_lwt_io.ml +++ b/test/unix/test_lwt_io.ml @@ -320,7 +320,7 @@ let suite = suite "lwt_io" [ exceptions_observed := !exceptions_observed + 1; Lwt.return_unit | exn -> - Lwt.reraise exn) [@ocaml.warning "-4"] + Lwt.reraise exn) in let fd_r, fd_w = Lwt_unix.pipe () in diff --git a/test/unix/test_lwt_unix.ml b/test/unix/test_lwt_unix.ml index 609ca3c2a0..a4e747aa32 100644 --- a/test/unix/test_lwt_unix.ml +++ b/test/unix/test_lwt_unix.ml @@ -172,7 +172,7 @@ let utimes_tests = [ (function | Unix.Unix_error (Unix.ENOENT, "utimes", _) -> Lwt.return_unit | Unix.Unix_error (Unix.EUNKNOWNERR _, "utimes", _) -> Lwt.return_unit - | e -> Lwt.reraise e) [@ocaml.warning "-4"] >>= fun () -> + | e -> Lwt.reraise e) >>= fun () -> Lwt.return_true); ] @@ -305,7 +305,7 @@ let readdir_tests = (function | Unix.Unix_error (Unix.EBADF, tag', _) when tag' = tag -> Lwt.return_true - | exn -> Lwt.reraise exn) [@ocaml.warning "-4"] + | exn -> Lwt.reraise exn) in Lwt_list.for_all_s (fun (tag, t) -> expect_ebadf tag t) @@ -973,7 +973,7 @@ let bind_tests = of /proc/version, reading it, and checking its contents for the string "WSL". *) raise Skip - | e -> Lwt.reraise e) [@ocaml.warning "-4"] + | e -> Lwt.reraise e) in Lwt.finalize @@ -1014,7 +1014,7 @@ let bind_tests = Lwt.return_false) (function | Unix.Unix_error (Unix.EBADF, _, _) -> Lwt.return_true - | e -> Lwt.reraise e) [@ocaml.warning "-4"]); + | e -> Lwt.reraise e)); test "bind: aborted" (fun () ->