more tests

ionide · Dec 26, 2024 · aa92446 · aa92446
1 parent 4bb43bd
commit aa92446
Showing 1 changed file with 25 additions and 1 deletion.
diff --git a/test/FsAutoComplete.Tests.Lsp/CodeFixTests/AddMissingSeqTests.fs b/test/FsAutoComplete.Tests.Lsp/CodeFixTests/AddMissingSeqTests.fs
@@ -10,11 +10,35 @@ let tests state =
   serverTestList (nameof AddMissingSeq) state defaultConfigDto None (fun server ->
     [ let selectCodeFix = CodeFix.withTitle AddMissingSeq.title
 
-      ftestCaseAsync "first unit test for AddMissingSeq"
+      testCaseAsync "FS3873 — Adds missing seq before { start..finish } top level"
+      <| CodeFix.check
+        server
+        "$0{ 1..10 }"
+        Diagnostics.acceptAll
+        selectCodeFix
+        "seq { 1..10 }"
+
+      testCaseAsync "FS3873 — Adds missing seq before { start..finish } binding"
+      <| CodeFix.check
+        server
+        "let xs = $0{ 1;10 }"
+        Diagnostics.acceptAll
+        selectCodeFix
+        "let xs = seq { 1;10 }"
+
+      testCaseAsync "FS0740 — Adds missing seq before { x; y } top level"
       <| CodeFix.check
         server
         "$0{ 1;10 }"
         Diagnostics.acceptAll
         selectCodeFix
         "seq { 1;10 }"
+
+      testCaseAsync "FS0740 — Adds missing seq before { x; y } binding"
+      <| CodeFix.check
+        server
+        "let xs = $0{ 1;10 }"
+        Diagnostics.acceptAll
+        selectCodeFix
+        "let xs = seq { 1;10 }"
     ])