update tests with single line comments

Author: dxu

formatTest/typeCheckedTests/expected_output/attributes.re

@@ -15,29 +15,44 @@ type itemText = int [@@itemAttributeOnTypeDef];
 
 type nodeText = int;
 
-type nodeAndItemText = int [@@itemAttributeOnTypeDef];
+type nodeAndItemText = int
+[@@itemAttributeOnTypeDef];
 
 type itemDoc = int [@@itemAttributeOnTypeDef];
 
 type nodeDoc = int [@@itemAttributeOnTypeDef];
 
-type nodeAndItemDoc = int [@@itemAttributeOnTypeDef];
+type nodeAndItemDoc = int
+[@@itemAttributeOnTypeDef];
 
 type x = int [@@itemAttributeOnTypeDef];
 
 type attributedInt = int [@onTopLevelTypeDef];
 
-type attributedIntsInTuple = (int [@onInt], float [@onFloat]) [@@onTopLevelTypeDef];
+type attributedIntsInTuple = (
+  int [@onInt],
+  float [@onFloat]
+)
+[@@onTopLevelTypeDef];
 
 type myDataType 'x 'y = | MyDataType of 'x 'y;
 
 type myType =
-  (myDataType ((option int) [@onOptionInt]) ((option float) [@onOption])) [@onEntireType];
+  (
+    myDataType
+      ((option int) [@onOptionInt])
+      ((option float) [@onOption])
+  )
+  [@onEntireType];
 
-let thisInst: myType = MyDataType (Some 10) (Some 10.0) [@attOnEntireDatatype];
+let thisInst: myType =
+  MyDataType (Some 10) (Some 10.0)
+  [@attOnEntireDatatype];
 
 let thisInst: myType =
-  MyDataType (Some 10 [@onFirstParam]) (Some 10.0) [@attOnEntireDatatype];
+  MyDataType
+    (Some 10 [@onFirstParam]) (Some 10.0)
+  [@attOnEntireDatatype];
 
 let x = "hello" [@onHello];
 
@@ -112,7 +127,8 @@ let res =
 
 let add a b => ((a [@onA]) + b) [@onEverything];
 
-let add a b => ((a [@onA]) + (b [@onB])) [@onEverything];
+let add a b =>
+  ((a [@onA]) + (b [@onB])) [@onEverything];
 
 let add a b => a + (b [@onB]);
 
@@ -126,25 +142,34 @@ let both a b => (a && b) [@onEverything];
 
 let thisVal = 10;
 
-let x = 20 + (- (add thisVal thisVal [@onFunctionCall]));
+let x = 20 + (
+  - (add thisVal thisVal [@onFunctionCall])
+);
 
-let x = (20 + (- (add thisVal thisVal))) [@onEverything];
+let x =
+  (20 + (- (add thisVal thisVal)))
+    [@onEverything];
 
 let x = - (add thisVal thisVal [@onFunctionCall]);
 
 let x = (- (add thisVal thisVal)) [@onEverything];
 
 let bothTrue x y => {contents: x && y};
 
-let something = !(bothTrue true true) [@onEverythingToRightOfEquals];
+let something =
+  !(bothTrue true true)
+    [@onEverythingToRightOfEquals];
 
-let res = add 2 4 [@appliesToEntireFunctionApplication];
+let res =
+  add 2 4 [@appliesToEntireFunctionApplication];
 
 add 2 4 [@appliesToEntireFunctionApplication];
 
 let myObj = {method p () => {method z () => 10}};
 
-let result = (myObj#p () [@attOnFirstSend])#z () [@onSecondSend];
+let result =
+  (myObj#p () [@attOnFirstSend])#z
+    () [@onSecondSend];
 
 type recordFunctions = {
   p: unit => recordFunctions [@onUnit],
@@ -153,17 +178,29 @@ type recordFunctions = {
 [@@onRecordFunctions]
 and unusedType = unit [@@onUnusedType];
 
-let rec myRecord = {p: fun () => myRecord, q: fun () => ()}
+let rec myRecord = {
+  p: fun () => myRecord,
+  q: fun () => ()
+}
 and unused = ();
 
-let result = (myRecord.p () [@attOnFirstSend]).q () [@onSecondSend];
+let result =
+  (myRecord.p () [@attOnFirstSend]).q
+    () [@onSecondSend];
 
-type variantType = | Foo of int [@onInt] | Bar of (int [@onInt]) | Baz [@@onVariantType];
+type variantType =
+  | Foo of int [@onInt]
+  | Bar of (int [@onInt])
+  | Baz
+[@@onVariantType];
 
 type gadtType 'x =
   | Foo of int :(gadtType int) [@onFirstRow]
-  | Bar of (int [@onInt]) :(gadtType unit) [@onSecondRow]
-  | Baz :(gadtType (unit [@onUnit])) [@onThirdRow]
+  | Bar of
+      (int [@onInt])
+      :(gadtType unit) [@onSecondRow]
+  | Baz
+      :(gadtType (unit [@onUnit])) [@onThirdRow]
 [@@onVariantType];
 
 [@@@floatingTopLevelStructureItem hello];
@@ -235,7 +272,10 @@ class tupleClass 'a 'b (init: ('a, 'b)) => {
 class type addablePointClassType = {
   method x: int;
   method y: int;
-  method add: addablePointClassType => addablePointClassType => int
+  method add:
+    addablePointClassType =>
+    addablePointClassType =>
+    int
 }
 [@@structureItem]
 and anotherClassType = {
@@ -244,7 +284,9 @@ and anotherClassType = {
 }
 [@@structureItem];
 
-let module NestedModule = {[@@@floatingNestedStructureItem hello];};
+let module NestedModule = {
+  [@@@floatingNestedStructureItem hello];
+};
 
 module type HasAttrs = {
   type t = int [@@onTypeDef];
@@ -261,13 +303,19 @@ type s = | S of string;
 
 let S (str [@onStr]) = S ("hello" [@onHello]);
 
-let S str [@onConstruction] = S "hello" [@onConstruction];
+let S str [@onConstruction] =
+  S "hello" [@onConstruction];
 
 type xy = | X of string | Y of string;
 
-let myFun (X hello [@onConstruction] | Y hello [@onConstruction]) => hello;
+let myFun
+    (
+      X hello [@onConstruction] |
+      Y hello [@onConstruction]
+    ) => hello;
 
-let myFun (X (hello [@onHello]) | Y (hello [@onHello])) => hello;
+let myFun
+    (X (hello [@onHello]) | Y (hello [@onHello])) => hello;
 
 /* Another bug: Cannot have an attribute on or pattern
    let myFun = fun ((X hello | Y hello) [@onOrPattern]) => hello;

formatTest/typeCheckedTests/expected_output/basics.re

@@ -1,5 +1,6 @@
 // Copyright (c) 2015-present, Facebook, Inc. All rights reserved.
-type reasonXyz = | X | Y of int int int | Z of int int | Q | R;
+type reasonXyz =
+  | X | Y of int int int | Z of int int | Q | R;
 
 let reasonBarAs =
   fun | ((Y _ | Z _) as t, _) => {
@@ -42,6 +43,8 @@ let (\+) = (+);
 
 let (\===) = (===);
 
-let expectedPrecendence = 1 + 1 \=== 1 + 1 && 1 + 1 !== 1 + 1;
+let expectedPrecendence =
+  1 + 1 \=== 1 + 1 && 1 + 1 !== 1 + 1;
 
-let expectedPrecendence = 1 \+ 1 \=== 1 \+ 1 && 1 \+ 1 !== 1 \+ 1;
+let expectedPrecendence =
+  1 \+ 1 \=== 1 \+ 1 && 1 \+ 1 !== 1 \+ 1;

formatTest/typeCheckedTests/expected_output/mlSyntax.re

@@ -2,7 +2,8 @@
 /*
  * Testing pattern matching using ml syntax to exercise nesting of cases.
  */
-type xyz = | X | Y of int int int | Z of int int | Q | R;
+type xyz =
+  | X | Y of int int int | Z of int int | Q | R;
 
 let doubleBar =
   fun | X
@@ -76,6 +77,9 @@ let nestedSome = Some (1, 2, Some (1, 2, 3));
 
 let nestedSomeSimple = Some (Some (1, 2, 3));
 
-let module EM = {/* Exception */exception E of int int;};
+let module EM = {
+  /* Exception */
+  exception E of int int;
+};
 
 exception Ealias = EM.E;

formatTest/typeCheckedTests/expected_output/mlVariants.re

@@ -1,5 +1,8 @@
 // Copyright (c) 2015-present, Facebook, Inc. All rights reserved.
-type polyVariantsInMl = [ | `IntTuple of (int, int) | `StillAnIntTuple of (int, int)];
+type polyVariantsInMl = [
+  | `IntTuple of (int, int)
+  | `StillAnIntTuple of (int, int)
+];
 
 let intTuple = `IntTuple (1, 2);
 

formatTest/typeCheckedTests/expected_output/mutation.re

@@ -37,8 +37,14 @@ switch numberToSwitchOn {
 | (-1) => ()
 | 0 => holdsAUnit.contents = ()
 | 1 => holdsAUnit.contents = holdsAnInt := 0
-| 2 => true ? holdsAUnit.contents = () : holdsABool.contents ? () : ()
-| 3 => true ? holdsAUnit := () : holdsABool.contents ? () : ()
+| 2 =>
+    true ?
+      holdsAUnit.contents = () :
+      holdsABool.contents ? () : ()
+| 3 =>
+    true ?
+      holdsAUnit := () :
+      holdsABool.contents ? () : ()
 | 4 => true ? holdsAnInt := 40 : ()
 | 5 => holdsAnInt := 40
 | _ => ()