test: Move to PpxLib.standalone

bin/Bin.re

@@ -1,17 +1 @@
-let argv =
-  switch (Sys.argv |> Array.to_list) {
-  | [program, ...rest] =>
-    switch (List.rev(rest)) {
-    | [output_file, input_file, ...args] =>
-      List.concat([
-        [program],
-        List.rev(args),
-        [input_file, "-o", output_file, "--dump-ast"],
-      ])
-      |> Array.of_list
-    | _ => Sys.argv
-    }
-  | _ => Sys.argv
-  };
-
-let () = Migrate_parsetree.Driver.run_main(~argv, ());
+let () = Ppxlib.Driver.standalone();

package.json

@@ -52,6 +52,7 @@
     "build": "esy dune build -p ReactRulesOfHooksPpx",
     "watch": "esy dune build -p ReactRulesOfHooksPpx --watch",
     "test": "esy dune runtest",
+    "promote": "esy dune promote",
     "doc": "esy dune build @doc",
     "doc-path": "esy echo #{self.target_dir}/default/_doc/_html/index.html",
     "format": "esy dune build @fmt --auto-promote",

test/ExhaustiveDepsUseEffect.expected

@@ -1,4 +1,4 @@
-File "ExhaustiveDepsUseEffect.ml", line 3, characters 2-63:
+File "ExhaustiveDepsUseEffect.ml", line 3, characters 2-63:
 3 |   React.useEffect1 (fun () -> Js.log randomProp; None) [|show|];
-      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-Error: ExhaustiveDeps: Missing 'randomProp' in the dependency array
+      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+Error: ExhaustiveDeps: Missing 'randomProp' in the dependency array

test/dune

@@ -9,7 +9,7 @@
   ; expect the process to fail, capturing stderr
   (with-stderr-to
    %{targets}
-   (bash "! ./%{pp} -o %{input}")
+   (bash "! ./%{pp} %{input}")
   )
  )
 )
@@ -33,10 +33,12 @@
   (:input ConditionalHooks.ml)
  )
  (action
-  ; expect the process to fail, capturing stderr
-  (with-stderr-to
-   %{targets}
-   (bash "! ./%{pp} -o %{input}")
+  (progn
+   ; expect the process to fail, capturing stderr
+   (with-stderr-to
+    %{targets}
+    (bash "! ./%{pp} %{input}")
+   )
   )
  )
 )
@@ -45,9 +47,11 @@
  (targets ConditionalHooks.ml)
  (deps ConditionalHooks.re)
  (action
-  (with-stdout-to
-   %{targets}
-   (run refmt --parse=re --print=ml %{deps})
+  (progn
+   (with-stdout-to
+    %{targets}
+    (run refmt --parse=re --print=ml %{deps})
+   )
   )
  )
 )
@@ -57,7 +61,7 @@
  (alias runtest)
  (action
   (progn
-   ; (diff ExhaustiveDepsUseEffect.expected ExhaustiveDepsUseEffect.actual)
+   (diff ExhaustiveDepsUseEffect.expected ExhaustiveDepsUseEffect.actual)
    (diff ConditionalHooks.expected ConditionalHooks.actual)
   )
  )