Test delete argument

2025-01-08 06:53:22 +03:00 · 2017-12-07 16:28:48 +00:00 · 2017-12-07 16:28:48 +00:00 · 4339712da7
commit 4339712da7
parent 7aea30ec4f
1 changed files with 9 additions and 0 deletions
--- a/web/IDETest.hs
+++ b/web/IDETest.hs
@ -203,6 +203,15 @@ functionApplicationTests =
               (VariableExpression
                  (Label {labelUUID = UUID "1"})
                  (Identifier {identifierString = "x"})))))
+  , Test
+      "Delete argument"
+      (typeChars "f x" <> typeBackspace <> typeBackspace)
+      (focus
+         starterExprUUID
+         (rhsSelectedState
+            (VariableExpression
+               (Label {labelUUID = starterExprUUID})
+               (Identifier {identifierString = "f"}))))
  ]

 infixTests :: [Test]