Config for tests experiment failed, revert; tiny lint fixes; don't format the ppx test target

lukstafi · lukstafi · commit bc36a00980fb · 2024-09-02T12:01:40.000+02:00
diff --git a/.ocamlformat-ignore b/.ocamlformat-ignore
@@ -0,0 +1 @@
+test_ppx/test_ppx_op_expected.ml
diff --git a/arrayjit/lib/backends.ml b/arrayjit/lib/backends.ml
@@ -1347,7 +1347,7 @@ let fresh_backend ?backend_name ?(config = Physical_devices_only) () =
   let backend =
     match
       Option.value_or_thunk backend_name ~default:(fun () ->
-          Utils.get_global_arg ~arg_name:"backend" ~default:"sync_cc")
+          Utils.get_global_arg ~arg_name:"backend" ~default:"pipes_cc")
       |> String.lowercase
     with
     | "cc" -> (module Cc_backend : Backend)
diff --git a/arrayjit/lib/cc_backend.ml b/arrayjit/lib/cc_backend.ml
@@ -25,12 +25,15 @@ type context = { label : string; arrays : ctx_arrays } [@@deriving sexp_of]
 let ctx_arrays context = context.arrays
 
 type buffer_ptr = ctx_array [@@deriving sexp_of]
-(** Alternative approach: {[
-type buffer_ptr = unit Ctypes_static.ptr
 
-let sexp_of_buffer_ptr ptr = Sexp.Atom (Ops.ptr_to_string ptr Ops.Void_prec)
-let buffer_ptr ctx_array = Ndarray.get_voidptr ctx_array
-]} *)
+(** Alternative approach:
+
+    {[
+      type buffer_ptr = unit Ctypes_static.ptr
+
+      let sexp_of_buffer_ptr ptr = Sexp.Atom (Ops.ptr_to_string ptr Ops.Void_prec)
+      let buffer_ptr ctx_array = Ndarray.get_voidptr ctx_array
+    ]} *)
 
 let buffer_ptr ctx_array = ctx_array
 
diff --git a/arrayjit/lib/gcc_backend.gccjit.ml b/arrayjit/lib/gcc_backend.gccjit.ml
@@ -29,12 +29,14 @@ type ctx_array = Ndarray.t [@@deriving sexp_of]
 type ctx_arrays = ctx_array Map.M(Tn).t [@@deriving sexp_of]
 
 type buffer_ptr = ctx_array [@@deriving sexp_of]
-(** Alternative approach: {[
-type buffer_ptr = unit Ctypes_static.ptr
+(** Alternative approach:
 
-let sexp_of_buffer_ptr ptr = Sexp.Atom (Ops.ptr_to_string ptr Ops.Void_prec)
-let buffer_ptr ctx_array = Ndarray.get_voidptr ctx_array
-]} *)
+    {[
+      type buffer_ptr = unit Ctypes_static.ptr
+
+      let sexp_of_buffer_ptr ptr = Sexp.Atom (Ops.ptr_to_string ptr Ops.Void_prec)
+      let buffer_ptr ctx_array = Ndarray.get_voidptr ctx_array
+    ]} *)
 
 let buffer_ptr ctx_array = ctx_array
 
diff --git a/arrayjit/lib/rand.ml b/arrayjit/lib/rand.ml
@@ -27,7 +27,7 @@ module Random_for_tests = struct
   let int high = Int32.(to_int_trunc @@ (rand_int32 () % of_int_trunc high))
 end
 
-let random_config = Utils.get_global_arg ~arg_name:"randomness_lib" ~default:"for_tests"
+let random_config = Utils.get_global_arg ~arg_name:"randomness_lib" ~default:"stdlib"
 
 let random_lib =
   match random_config with
