Added Integer Division

Author: BZngr

Rubberduck.Inspections/Concrete/UnreachableCaseInspection/ParseTreeExpressionEvaluator.cs

@@ -19,6 +19,7 @@ public class ParseTreeExpressionEvaluator : IParseTreeExpressionEvaluator
         {
             [MathSymbols.MULTIPLY] = delegate (double LHS, double RHS) { return LHS * RHS; },
             [MathSymbols.DIVIDE] = delegate (double LHS, double RHS) { return LHS / RHS; },
+            [MathSymbols.INTEGER_DIVIDE] = delegate (double LHS, double RHS) { return Math.Truncate(Convert.ToDouble(Convert.ToInt64(LHS) / Convert.ToInt64(RHS))); },
             [MathSymbols.PLUS] = delegate (double LHS, double RHS) { return LHS + RHS; },
             [MathSymbols.MINUS] = delegate (double LHS, double RHS) { return LHS - RHS; },
             [MathSymbols.EXPONENT] = Math.Pow,
@@ -146,6 +147,7 @@ internal static class MathSymbols
 
         public static string MULTIPLY => _multiply ?? LoadSymbols(VBAParser.MULT);
         public static string DIVIDE => _divide ?? LoadSymbols(VBAParser.DIV);
+        public static string INTEGER_DIVIDE => @"\";
         public static string PLUS => _plus ?? LoadSymbols(VBAParser.PLUS);
         public static string MINUS => _minusSign ?? LoadSymbols(VBAParser.MINUS);
         public static string ADDITIVE_INVERSE => MINUS;

RubberduckTests/Inspections/UnreachableCaseInspectionTests.cs

@@ -293,6 +293,15 @@ public void UciUnit_Division(string operands, string expected, string typeName)
             TestBinaryOp(MathSymbols.DIVIDE, operands, expected, typeName);
         }
 
+        [TestCase(@"9.5_\_2.4", "5", "Long")]
+        [TestCase(@"10_\_4", "2", "Long")]
+        [TestCase(@"5.423_\_1", "5", "Long")]
+        [Category("Inspections")]
+        public void UciUnit_IntegerDivision(string operands, string expected, string typeName)
+        {
+            TestBinaryOp(MathSymbols.INTEGER_DIVIDE, operands, expected, typeName);
+        }
+
         [TestCase("10.51_+_11.2", "21.71", "Double")]
         [TestCase("10_+_11.2", "21.2", "Double")]
         [TestCase("11.2_+_10", "21.2", "Double")]
@@ -2075,10 +2084,6 @@ End Select
         [Category("Inspections")]
         public void UciFunctional_IsStmtAndNegativeRangeWithConstants()
         {
-            var test1 = VBAParser.DefaultVocabulary.GetDisplayName(VBAParser.EQ);
-            var test2 = VBAParser.DefaultVocabulary.GetLiteralName(VBAParser.EQ);
-            var test3 = VBAParser.DefaultVocabulary.GetSymbolicName(VBAParser.EQ);
-
             const string inputCode =
 @"
         private const START As Long = 10
@@ -2188,6 +2193,30 @@ End Select
             CheckActualResultsEqualsExpected(inputCode, unreachable: 1);
         }
 
+        [Test]
+        [Category("Inspections")]
+        public void UciFunctional_IntegerDivision()
+        {
+            string inputCode =
+@"
+        private const START As Long = 3
+        private const FINISH As Long = 10
+
+        Sub Foo(x As Long, y As Long, z As Long)
+        Select Case z
+            Case x 
+            'OK
+            Case START
+            'OK
+            Case FINISH \ START
+            'Unreachable
+        End Select
+
+        End Sub";
+
+            CheckActualResultsEqualsExpected(inputCode, unreachable: 1);
+        }
+
         private static void CheckActualResultsEqualsExpected(string inputCode, int unreachable = 0, int mismatch = 0, int caseElse = 0)
         {
             var expected = new Dictionary<string, int>