Fix open and add regression test

Author: nicolasstucki

library/src/scala/quoted/Expr.scala

@@ -218,7 +218,7 @@ package quoted {
       content(bodyExpr, [t] => (e: Expr[t]) => (v1: Expr[T1], v2: Expr[T2]) => bodyFn[t](e.unseal, params, List(v1.unseal, v2.unseal)).seal.asInstanceOf[Expr[t]])
     }
 
-    def open[T1, T2, T3, R, X](f: Expr[(T1, T2) => R])(content: (Expr[R], [t] => Expr[t] => (Expr[T1], Expr[T2], Expr[T3]) => Expr[t]) => X)(given qctx: QuoteContext)(given DummyImplicit, DummyImplicit): X = {
+    def open[T1, T2, T3, R, X](f: Expr[(T1, T2, T3) => R])(content: (Expr[R], [t] => Expr[t] => (Expr[T1], Expr[T2], Expr[T3]) => Expr[t]) => X)(given qctx: QuoteContext)(given DummyImplicit, DummyImplicit): X = {
       import qctx.tasty.{given, _}
       val (params, bodyExpr) = paramsAndBody(f)
       content(bodyExpr, [t] => (e: Expr[t]) => (v1: Expr[T1], v2: Expr[T2], v3: Expr[T3]) => bodyFn[t](e.unseal, params, List(v1.unseal, v2.unseal, v3.unseal)).seal.asInstanceOf[Expr[t]])

tests/run-macros/quote-matching-open.check

@@ -0,0 +1,8 @@
+2
+4
+
+5
+6
+
+9
+24

tests/run-macros/quote-matching-open/Macro_1.scala

@@ -0,0 +1,15 @@
+import scala.quoted._
+
+object Macro {
+
+  inline def openTest(x: => Any): Any = ${ Macro.impl('x) }
+
+  def impl(x: Expr[Any])(given QuoteContext): Expr[Any] = {
+    x match {
+      case '{ (x: Int) => ($body: Int => Int)(x) } => Expr.open(body) { (body, close) => close(body)(Expr(2)) }
+      case '{ (x1: Int, x2: Int) => ($body: (Int, Int) => Int)(x1, x2) } => Expr.open(body) { (body, close) => close(body)(Expr(2), Expr(3)) }
+      case '{ (x1: Int, x2: Int, x3: Int) => ($body: (Int, Int, Int) => Int)(x1, x2, x3) } => Expr.open(body) { (body, close) => close(body)(Expr(2), Expr(3), Expr(4)) }
+    }
+  }
+
+}

tests/run-macros/quote-matching-open/Test_2.scala

@@ -0,0 +1,15 @@
+object Test {
+  import Macro._
+
+  def main(args: Array[String]): Unit = {
+    println(openTest((x: Int) => x))
+    println(openTest((x: Int) => x * x))
+    println()
+    println(openTest((x1: Int, x2: Int) => x1 + x2))
+    println(openTest((x1: Int, x2: Int) => x1 * x2))
+    println()
+    println(openTest((x1: Int, x2: Int, x3: Int) => x1 + x2 + x3))
+    println(openTest((x1: Int, x2: Int, x3: Int) => x1 * x2 * x3))
+  }
+
+}