Fixes Untyped Functions Tests

Mock needed _HiddenModule, Input and InputB

Author: ThunderFrame

RetailCoder.VBE/Inspections/UntypedFunctionUsageInspection.cs

@@ -30,6 +30,8 @@ public UntypedFunctionUsageInspection(RubberduckParserState state)
             Tokens.Chr,
             Tokens.ChrW,
             Tokens.Format,
+            Tokens.Input,
+            Tokens.InputB,
             Tokens.LCase,
             Tokens.Left,
             Tokens.LeftB,

RubberduckTests/Inspections/UntypedFunctionUsageInspectionTests.cs

@@ -252,6 +252,15 @@ private List<Declaration> GetBuiltInDeclarations()
                 new List<IAnnotation>(),
                 new Attributes());
 
+            var hiddenModule = new ProceduralModuleDeclaration(
+                new QualifiedMemberName(new QualifiedModuleName("VBA", MockVbeBuilder.LibraryPathVBA, "_HiddenModule"), "_HiddenModule"),
+                vbaDeclaration,
+                "_HiddenModule",
+                true,
+                new List<IAnnotation>(),
+                new Attributes());
+
+
             var commandFunction = new FunctionDeclaration(
                 new QualifiedMemberName(interactionModule.QualifiedName.QualifiedModuleName, "_B_var_Command"),
                 interactionModule,
@@ -715,6 +724,80 @@ private List<Declaration> GetBuiltInDeclarations()
                 new List<IAnnotation>(),
                 new Attributes());
 
+            //*******************************************************************
+
+            var inputbFunction = new FunctionDeclaration(
+                new QualifiedMemberName(hiddenModule.QualifiedName.QualifiedModuleName, "_B_var_InputB"),
+                hiddenModule,
+                hiddenModule,
+                "Variant",
+                null,
+                null,
+                Accessibility.Global,
+                null,
+                Selection.Home,
+                false,
+                true,
+                new List<IAnnotation>(),
+                new Attributes());
+
+            var firstInputBParam = new ParameterDeclaration(
+                new QualifiedMemberName(hiddenModule.QualifiedName.QualifiedModuleName, "Number"),
+                inputbFunction,
+                "Long",
+                null,
+                null,
+                false,
+                true);
+
+            var secondInputBParam = new ParameterDeclaration(
+                new QualifiedMemberName(hiddenModule.QualifiedName.QualifiedModuleName, "FileNumber"),
+                inputbFunction,
+                "Integer",
+                null,
+                null,
+                false,
+                true);
+
+            inputbFunction.AddParameter(firstInputBParam);
+            inputbFunction.AddParameter(secondInputBParam);
+
+            var inputFunction = new FunctionDeclaration(
+                new QualifiedMemberName(hiddenModule.QualifiedName.QualifiedModuleName, "_B_var_Input"),
+                hiddenModule,
+                hiddenModule,
+                "Variant",
+                null,
+                null,
+                Accessibility.Global,
+                null,
+                Selection.Home,
+                false,
+                true,
+                new List<IAnnotation>(),
+                new Attributes());
+
+            var firstInputParam = new ParameterDeclaration(
+                new QualifiedMemberName(hiddenModule.QualifiedName.QualifiedModuleName, "Number"),
+                inputFunction,
+                "Long",
+                null,
+                null,
+                false,
+                true);
+
+            var secondInputParam = new ParameterDeclaration(
+                new QualifiedMemberName(hiddenModule.QualifiedName.QualifiedModuleName, "FileNumber"),
+                inputFunction,
+                "Integer",
+                null,
+                null,
+                false,
+                true);
+
+            inputFunction.AddParameter(firstInputParam);
+            inputFunction.AddParameter(secondInputParam);
+
             return new List<Declaration>
             {
                 vbaDeclaration,
@@ -723,6 +806,7 @@ private List<Declaration> GetBuiltInDeclarations()
                 interactionModule,
                 stringsModule,
                 dateTimeModule,
+                hiddenModule,
                 commandFunction,
                 environFunction,
                 rtrimFunction,
@@ -756,7 +840,13 @@ private List<Declaration> GetBuiltInDeclarations()
                 strFunction,
                 curDirFunction,
                 datePropertyGet,
-                timePropertyGet
+                timePropertyGet,
+                inputbFunction,
+                firstInputBParam,
+                secondInputBParam,
+                inputFunction,
+                firstInputParam,
+                secondInputParam
             };
         }
     }