Commits

camlspotter committed f210b9e

added tests

Comments (0)

Files changed (2)

+(* indented by original-2.0.4 *)
+let f = match t with
+  | p ->
+    xxx; (* ??? *)
+    yyy
+;;
+
+type t = 
+    int 
+    -> [ Foo | Bar ]
+    -> int
+
+let f = function 
+  | p ->
+    xxx; (* ??? *)
+    yyy
+  | p
+    -> 
+    xxx;
+      yyy; (* ??? *)
+  | p 
+    -> let x = 1 
+       in x
+;;
+
+let g = function
+p ->  (* ??? *)
+  xxx;
+  yyy
+  | p -> xxx;
+    yyy (* ??? *)
+  | 12 -> 
+    xxx; (* ??? *)
+    yyy
+
+let g = match 1 with
+    p -> 
+      xxx;
+      yyy
+  | p -> 
+    xxx; (* ??? *)
+    yyy (* ??? *) 
+
+let g = fun
+  p -> 
+    xxx;
+    yyy
+
+(* indented by e721ec4048e5 *)
+let f = match t with
+  | p ->
+      xxx;
+      yyy
+;;
+
+type t = 
+    int 
+    -> [ Foo | Bar ]
+    -> int
+
+let f = function 
+  | p ->
+      xxx;
+      yyy
+  | p
+    -> 
+      xxx;
+	yyy; (* ??? computed from the indentation of ->, instead of | *)
+  | p 
+    -> let x = 1 
+       in x
+;;
+
+let g = function
+p ->  (* ??? *)
+  xxx;
+  yyy
+  | p -> xxx;
+      yyy
+  | 12 -> 
+      xxx;
+      yyy
+
+let g = function
+p (* ??? *)
+->  
+  xxx;
+  yyy
+  | p
+    ->
+      xxx;
+	yyy (* ??? *)
+
+let g = match 1 with
+    p -> 
+      xxx;
+      yyy
+  | p -> 
+      xxx;
+      yyy
+
+let g = fun
+  p -> 
+    xxx;
+    yyy