WI #2728 Do not suggest alphanumeric variables after CALL (#2774)

* WI #2728 Do not suggest alphanumeric variables after CALL

---------

Co-authored-by: efr15 <[email protected]>

Author: efr15

TypeCobol.LanguageServer.Test/LSRTest.cs

@@ -300,13 +300,6 @@ public void CompletionAfterAddTo()
             LSRTestHelper.Test("CompletionAfterAddTo", LsrTestingOptions.NoLsrTesting, true, false, true);
         }
 
-        [TestMethod]
-        [TestCategory("Completion")]
-        public void ProcedureCompletion()
-        {
-            LSRTestHelper.Test("ProcedureCompletion", LsrTestingOptions.NoLsrTesting, true, false, false, null, null, "CustomDependencies");
-        }
-
         [TestMethod]
         [TestCategory("Completion")]
         public void PerformCompletion()
@@ -388,45 +381,52 @@ public void ProcedureCompletionCaseInsensitive()
 
         [TestMethod]
         [TestCategory("Completion")]
-        public void ProcedureCompletionInputInoutOutput()
+        public void ProcedureCompletionInputInoutOutput_NoContext()
         {
-            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput", LsrTestingOptions.NoLsrTesting, true);
+            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput-NoContext", LsrTestingOptions.NoLsrTesting, true);
         }
 
         [TestMethod]
         [TestCategory("Completion")]
-        public void ProcedureCompletionInputInoutOutput_Case()
+        public void ProcedureCompletionNoParam()
         {
-            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput-Case", LsrTestingOptions.NoLsrTesting, true);
+            LSRTestHelper.Test("ProcedureCompletionNoParam", LsrTestingOptions.NoLsrTesting);
         }
 
         [TestMethod]
         [TestCategory("Completion")]
-        public void ProcedureCompletionInputInoutOutput_NoContext()
+        public void ProcedureCompletionPotentialChildrenWithNoName()
         {
-            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput-NoContext", LsrTestingOptions.NoLsrTesting, true);
+            LSRTestHelper.Test("ProcedureCompletionPotentialChildrenWithNoName", LsrTestingOptions.NoLsrTesting, true);
         }
 
+#if EUROINFO_RULES
         [TestMethod]
         [TestCategory("Completion")]
-        public void ProcedureCompletionNoParam()
+        public void CompletionUsingCopy()
         {
-            LSRTestHelper.Test("ProcedureCompletionNoParam", LsrTestingOptions.NoLsrTesting);
+            LSRTestHelper.Test("CompletionUsingCopy", LsrTestingOptions.NoLsrTesting, true, false, false, "CopyFolder");
         }
 
         [TestMethod]
         [TestCategory("Completion")]
-        public void ProcedureCompletionPotentialChildrenWithNoName()
+        public void ProcedureCompletion()
         {
-            LSRTestHelper.Test("ProcedureCompletionPotentialChildrenWithNoName", LsrTestingOptions.NoLsrTesting, true);
+            LSRTestHelper.Test("ProcedureCompletion_EI", LsrTestingOptions.NoLsrTesting, true, false, false, null, null, "CustomDependencies");
         }
 
-#if EUROINFO_RULES
         [TestMethod]
         [TestCategory("Completion")]
-        public void CompletionUsingCopy()
+        public void ProcedureCompletionInputInoutOutput()
         {
-            LSRTestHelper.Test("CompletionUsingCopy", LsrTestingOptions.NoLsrTesting, true, false, false, "CopyFolder");
+            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput_EI", LsrTestingOptions.NoLsrTesting, true);
+        }
+
+        [TestMethod]
+        [TestCategory("Completion")]
+        public void ProcedureCompletionInputInoutOutput_Case()
+        {
+            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput-Case_EI", LsrTestingOptions.NoLsrTesting, true);
         }
 
         [TestMethod]
@@ -444,6 +444,27 @@ public void EI_ExtractRemarksData()
             LSRTestHelper.Test("EI_ExtractRemarksData_CPYInsideCPX", LsrTestingOptions.NoLsrTesting, true, false, false, "CopyFolder");
             LSRTestHelper.Test("EI_ExtractRemarksData_DebugLines", LsrTestingOptions.NoLsrTesting, true);
         }
+#else
+        [TestMethod]
+        [TestCategory("Completion")]
+        public void ProcedureCompletion()
+        {
+            LSRTestHelper.Test("ProcedureCompletion", LsrTestingOptions.NoLsrTesting, true, false, false, null, null, "CustomDependencies");
+        }
+
+        [TestMethod]
+        [TestCategory("Completion")]
+        public void ProcedureCompletionInputInoutOutput()
+        {
+            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput", LsrTestingOptions.NoLsrTesting, true);
+        }
+
+        [TestMethod]
+        [TestCategory("Completion")]
+        public void ProcedureCompletionInputInoutOutput_Case()
+        {
+            LSRTestHelper.Test("ProcedureCompletionInputInoutOutput-Case", LsrTestingOptions.NoLsrTesting, true);
+        }
 #endif
 
         [TestMethod]

TypeCobol.LanguageServer.Test/LSRTests/ProcedureCompletionInputInoutOutput-Case_EI/input/ProcedureCompletionInputInoutOutput-Case.tlsp

@@ -0,0 +1,6 @@
+{
+  "success": true,
+  "diff_index": [
+    -1
+  ]
+}