Add test for pipe operator

grain-lang · Jul 20, 2024 · cae92f1 · cae92f1
1 parent 6e188ff
commit cae92f1
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/compiler/test/suites/functions.re b/compiler/test/suites/functions.re
@@ -504,6 +504,15 @@ truc()|},
     |},
     "0\n1\n2\n3\n",
   );
+  assertRun(
+    "partial13",
+    {|
+      let (|>) = (x, f) => f(x)
+      let add = (x, y) => x + y
+      print(1 |> partial add(2, _) |> partial add(3, _))
+    |},
+    "6\n",
+  );
 
   assertCompileError(
     "partial_err1",