add test of pipe "->" eats up attrs in 1 arity fn

Author: mununki

jscomp/test/res_debug.js

@@ -49,6 +49,14 @@ var bad = {
   name: bad_name
 };
 
+function identity(x) {
+  return x;
+}
+
+var ok1 = {};
+
+var bad1 = {};
+
 var v2 = newrecord;
 
 var v1 = {
@@ -73,4 +81,7 @@ exports.optionMap = optionMap;
 exports.name = name;
 exports.ok = ok;
 exports.bad = bad;
+exports.identity = identity;
+exports.ok1 = ok1;
+exports.bad1 = bad1;
 /*  Not a pure module */

jscomp/test/res_debug.res

@@ -65,4 +65,11 @@ type props<'name> = {key?: string, name?: string}
 let name = None
 
 let ok = {name: ?optionMap(name, x => x)}
-let bad = {name: ?name->optionMap(x => x)}
+let bad = {name: ?name->optionMap(x => x)}
+
+let identity = x => x
+
+let name1 = Some("ReScript")
+
+let ok1 = {name: ?identity(name1)}
+let bad1 = {name: ?name1->identity}