CR: move new tests to tests-jsoo/lib-effects

Author: OlivierNicole

compiler/tests-ocaml/lib-effects/assume_no_perform.ml renamed to compiler/tests-jsoo/lib-effects/assume_no_perform.ml

@@ -8,18 +8,16 @@ let () =
   try_with
     (fun () ->
       Js_of_ocaml.Effect_js.assume_no_perform (fun () ->
-        try_with
-          (fun () -> ())
-          ()
-          { effc = (fun (type a) (_ : a Effect.t) -> None) };
-      );
-      perform Dummy
-    )
+          try_with (fun () -> ()) () { effc = (fun (type a) (_ : a Effect.t) -> None) });
+      perform Dummy)
     ()
     { effc =
         (fun (type a) (e : a Effect.t) ->
           match e with
           | Dummy ->
-              Some (fun (k : (a, _) continuation) -> print_endline "ok"; continue k ())
+              Some
+                (fun (k : (a, _) continuation) ->
+                  print_endline "ok";
+                  continue k ())
           | _ -> None)
     }

compiler/tests-ocaml/lib-effects/assume_no_perform_nested_handler.ml renamed to compiler/tests-jsoo/lib-effects/assume_no_perform_nested_handler.ml

@@ -8,10 +8,8 @@ let must_raise () =
   try_with
     (fun () ->
       Js_of_ocaml.Effect_js.assume_no_perform (fun () ->
-        (* Should raise [Effect.Unhandled] despite the installed handler *)
-        perform Dummy
-      )
-    )
+          (* Should raise [Effect.Unhandled] despite the installed handler *)
+          perform Dummy))
     ()
     { effc =
         (fun (type a) (e : a Effect.t) ->
@@ -22,5 +20,7 @@ let must_raise () =
 
 let () =
   try
-    must_raise (); print_endline "failed"; exit 2
+    must_raise ();
+    print_endline "failed";
+    exit 2
   with Effect.Unhandled Dummy -> print_endline "ok"

compiler/tests-ocaml/lib-effects/assume_no_perform_unhandled.ml renamed to compiler/tests-jsoo/lib-effects/assume_no_perform_unhandled.ml

@@ -0,0 +1,40 @@
+(env
+ (with-effects
+  (flags
+   (:standard -w -38))
+  (js_of_ocaml
+   (flags
+    (:standard --effects=double-translation))
+   ;; separate compilation doesn't yet work when using
+   ;; '--effect=double-translation' since Dune doesn't know it should compile a
+   ;; different version of the dependencies.
+   ;; TODO: remove once support in ocaml/dune#11222 is released.
+   (compilation_mode whole_program)))
+ (_
+  (flags
+   (:standard -w -38))
+  (js_of_ocaml
+   (flags
+    (:standard --effects=double-translation))
+   ;; separate compilation doesn't yet work when using
+   ;; '--effect=double-translation' since Dune doesn't know it should compile a
+   ;; different version of the dependencies.
+   ;; TODO: remove once support in ocaml/dune#11222 is released.
+   (compilation_mode whole_program))))
+
+(copy_files# ../*.ml)
+
+(tests
+ (build_if
+  (>= %{ocaml_version} 5))
+ (names
+  assume_no_perform
+  assume_no_perform_unhandled
+  assume_no_perform_nested_handler)
+ (libraries js_of_ocaml)
+ (action
+  (ignore-outputs
+   (with-accepted-exit-codes
+    0
+    (run node %{test}))))
+ (modes js))

compiler/tests-jsoo/lib-effects/double-translation/dune

@@ -10,5 +10,30 @@
   (>= %{ocaml_version} 5))
  (inline_tests
   (modes js wasm best))
+ (modules
+  (:standard
+   \
+   assume_no_perform
+   assume_no_perform_unhandled
+   assume_no_perform_nested_handler))
  (preprocess
   (pps ppx_expect)))
+
+(tests
+ (build_if
+  (>= %{ocaml_version} 5))
+ (names
+  assume_no_perform
+  assume_no_perform_unhandled
+  assume_no_perform_nested_handler)
+ (modules
+  assume_no_perform
+  assume_no_perform_unhandled
+  assume_no_perform_nested_handler)
+ (libraries js_of_ocaml)
+ (action
+  (ignore-outputs
+   (with-accepted-exit-codes
+    0
+    (run node %{test}))))
+ (modes js wasm))

compiler/tests-jsoo/lib-effects/dune

@@ -52,12 +52,7 @@
   test_lazy
   used_cont)
  (modules
-  (:standard
-   \
-   unhandled_unlinked
-   assume_no_perform
-   assume_no_perform_unhandled
-   assume_no_perform_nested_handler))
+  (:standard \ unhandled_unlinked))
  (modes js))
 
 (tests
@@ -72,18 +67,3 @@
     (run node %{test}))
    (run cat)))
  (modes js))
-
-(tests
- (build_if
-  (>= %{ocaml_version} 5))
- (names
-  assume_no_perform
-  assume_no_perform_unhandled
-  assume_no_perform_nested_handler)
- (libraries js_of_ocaml)
- (action
-  (ignore-outputs
-   (with-accepted-exit-codes
-    0
-    (run node %{test}))))
- (modes js))

compiler/tests-ocaml/lib-effects/double-translation/dune

@@ -34,12 +34,7 @@
   test_lazy
   used_cont)
  (modules
-  (:standard
-   \
-   unhandled_unlinked
-   assume_no_perform
-   assume_no_perform_unhandled
-   assume_no_perform_nested_handler))
+  (:standard \ unhandled_unlinked))
  (modes js wasm))
 
 (tests
@@ -54,18 +49,3 @@
     (run node %{test}))
    (run cat)))
  (modes js wasm))
-
-(tests
- (build_if
-  (>= %{ocaml_version} 5))
- (names
-  assume_no_perform
-  assume_no_perform_unhandled
-  assume_no_perform_nested_handler)
- (libraries js_of_ocaml)
- (action
-  (ignore-outputs
-   (with-accepted-exit-codes
-    0
-    (run node %{test}))))
- (modes js wasm))