#2894 two tests still failing

Camelcade · Sep 15, 2024 · 4762ed9 · 4762ed9
1 parent 8720773
commit 4762ed9
Showing 1 changed file with 40 additions and 0 deletions.
diff --git a/plugin/src/test/java/intellilang/PerlQuickEditTest.kt b/plugin/src/test/java/intellilang/PerlQuickEditTest.kt
@@ -141,6 +141,46 @@ class PerlQuickEditTest : PerlLightTestCase() {
     )
   }
 
+  @Test
+  fun testEmptyHeredoc() {
+    val (originalEditor, fragmentFile) = initFileWithTestSample(
+      """
+      use v5.36;
+      
+      sub foo{
+          say <<~HTML;
+          <caret>
+          HTML
+      }""".trimIndent(),
+      ""
+    )
+
+    myFixture.type("\n hello\n  there\n")
+    assertFalse(myFixture.editor.isDisposed)
+    assertEquals(
+      """
+      
+       hello
+        there
+        
+      """.trimIndent(), myFixture.editor.document.text.trim().replace(Regex("[ \t]+\n"), "\n")
+    )
+
+    assertEquals(
+      """
+      use v5.36;
+      
+      sub foo{
+          say <<~HTML;
+          
+           hello
+            there
+            
+          HTML
+      }""".trimIndent(), originalEditor.document.text
+    )
+  }
+
   @Test
   fun testReplaceHeredoc() {
     val (originalEditor, fragmentFile) = initFileWithTestSample()