v0.15~preview.125.03+403

alpha-convert · Aug 27, 2021 · 7c6c577 · 7c6c577
1 parent 19b4061
commit 7c6c577
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 10 deletions.
diff --git a/ppx_quickcheck/test/src/test_ppx_quickcheck.ml b/ppx_quickcheck/test/src/test_ppx_quickcheck.ml
@@ -241,7 +241,7 @@ module Simple_higher_order = Simple_higher_order
 module Named_higher_order = Named_higher_order
 module Optional_higher_order = Optional_higher_order
 
-let%expect_test ("higher order arrow type"[@tags "64-bits-only"]) =
+let%expect_test ("higher order arrow type" [@tags "64-bits-only"]) =
   let config = { Test.default_config with test_count = 100 } in
   let test m = test ~config ~shrinker:`atomic m in
   test

diff --git a/ppx_quickcheck/test/toplevel/errors.mlt b/ppx_quickcheck/test/toplevel/errors.mlt
@@ -59,9 +59,7 @@ Error: ppx_quickcheck: unsupported: uknown extension: arbitrary.tag
 let _ =
   [%quickcheck.observer:
     [%custom
-      ;;
-      1
-      ;;
+      1;;
       2]]
 ;;
 

diff --git a/test/src/test_generator.ml b/test/src/test_generator.ml
@@ -435,14 +435,14 @@ let%expect_test "small_strictly_positive_int" =
 
 let int = Generator.int
 
-let%expect_test ("int"[@tags "64-bits-only"]) =
+let%expect_test ("int" [@tags "64-bits-only"]) =
   test_generator Generator.int (m_int (module Int));
   [%expect {| (generator "generated 8_006 distinct values in 10_000 iterations") |}]
 ;;
 
 let int_uniform = Generator.int_uniform
 
-let%expect_test ("int_uniform"[@tags "64-bits-only"]) =
+let%expect_test ("int_uniform" [@tags "64-bits-only"]) =
   test_generator ~mode:`inexhaustive Generator.int_uniform (m_int (module Int));
   [%expect
     {|
@@ -870,14 +870,14 @@ let%expect_test "int64_log_uniform_inclusive" =
 
 let nativeint = Generator.nativeint
 
-let%expect_test ("nativeint"[@tags "64-bits-only"]) =
+let%expect_test ("nativeint" [@tags "64-bits-only"]) =
   test_generator Generator.nativeint (m_int (module Nativeint));
   [%expect {| (generator "generated 8_047 distinct values in 10_000 iterations") |}]
 ;;
 
 let nativeint_uniform = Generator.nativeint_uniform
 
-let%expect_test ("nativeint_uniform"[@tags "64-bits-only"]) =
+let%expect_test ("nativeint_uniform" [@tags "64-bits-only"]) =
   test_generator
     ~mode:`inexhaustive
     Generator.nativeint_uniform

diff --git a/test/src/test_observer.ml b/test/src/test_observer.ml
@@ -5,7 +5,7 @@ type 'a t = 'a Observer.t
 let create = Observer.create
 let observe = Observer.observe
 
-let%expect_test ("observe & create"[@tags "64-bits-only"]) =
+let%expect_test ("observe & create" [@tags "64-bits-only"]) =
   let obs =
     Observer.create (fun x ~size ~hash ->
       hash_fold_int
@@ -140,7 +140,7 @@ let%expect_test "int" =
 
 let int32 = Observer.int32
 
-let%expect_test ("int32"[@tags "64-bits-only"]) =
+let%expect_test ("int32" [@tags "64-bits-only"]) =
   test_observer Observer.int32 (m_int (module Int32));
   [%expect {| (observer transparent) |}]
 ;;
-Original file line number
+Diff line change
@@ Expand Up @@
     let _ =
       [%quickcheck.observer:
         [%custom
-          ;;
-          ;;
+;;
 ]]
     ;;
@@ Expand Down @@