New normalizer

effekt/jvm/src/main/scala/effekt/EffektConfig.scala

@@ -200,6 +200,19 @@ class EffektConfig(args: Seq[String]) extends REPLConfig(args.takeWhile(_ != "--
     group = debugging
   )
 
+  // Experimental
+  // ------------
+
+  lazy val newNormalizer = toggle(
+    "new-normalizer",
+    descrYes = "Use the new normalizer implementation",
+    descrNo = "Use the old normalizer implementation",
+    default = Some(false),
+    noshort = true,
+    prefix = "no-",
+    group = group("Experimental Features")
+  )
+
   /**
    * Tries to find the path to the standard library. Proceeds in the following
    * order:

effekt/jvm/src/test/scala/effekt/core/CoreTests.scala

@@ -28,6 +28,21 @@ trait CoreTests extends munit.FunSuite {
         |""".stripMargin
     })
 
+  def shouldBeEqual(obtained: Toplevel, expected: Toplevel, clue: => Any)(using Location) =
+    assertEquals(obtained, expected, {
+      s"""${clue}
+         |=====================
+         |Got:
+         |----
+         |${effekt.core.PrettyPrinter.format(obtained).layout}
+         |
+         |Expected:
+         |---------
+         |${effekt.core.PrettyPrinter.format(expected).layout}
+         |
+         |""".stripMargin
+    })
+
   def shouldBeEqual(obtained: Stmt, expected: Stmt, clue: => Any)(using Location) =
     assertEquals(obtained, expected, {
       s"""${clue}
@@ -55,6 +70,7 @@ trait CoreTests extends munit.FunSuite {
     assertEquals(obtainedPrinted, expectedPrinted)
     shouldBeEqual(obtainedRenamed, expectedRenamed, clue)
   }
+
   def assertAlphaEquivalentStatements(obtained: Stmt,
                             expected: Stmt,
                             clue: => Any = "values are not alpha-equivalent",