Minor ctor mod

Author: BZngr

Rubberduck.Inspections/Concrete/UnreachableCaseInspection/UnreachableCaseInspectionRange.cs

@@ -37,6 +37,19 @@ public UnreachableCaseInspectionRange(VBAParser.RangeClauseContext context, IUCI
             AsFilter = FilterFactory.Create(Tokens.Long, ValueFactory);
         }
 
+        public UnreachableCaseInspectionRange(VBAParser.RangeClauseContext context, string evalTypeName, IUCIValueResults inspValues, IUnreachableCaseInspectionFactoryFactory factoryFactory)
+            : base(context, inspValues, factoryFactory)
+        {
+            _isValueRange = Context.HasChildToken(Tokens.To);
+            _isLTorGT = Context.HasChildToken(Tokens.Is);
+            _isRelationalOp = Context.TryGetChildContext<VBAParser.RelationalOpContext>(out _);
+            _isSingleValue = !(_isValueRange || _isLTorGT || _isRelationalOp);
+            IsUnreachable = false;
+            AsFilter = FilterFactory.Create(evalTypeName, ValueFactory);
+            _evalTypeName = evalTypeName;
+            AsFilter = AddFilterContent();
+        }
+
         public string EvaluationTypeName
         {
             set

Rubberduck.Inspections/Concrete/UnreachableCaseInspection/UnreachableCaseInspectionRangeFactory.cs

@@ -5,7 +5,7 @@ namespace Rubberduck.Inspections.Concrete.UnreachableCaseInspection
     public interface IUnreachableCaseInspectionRangeFactory
     {
         IUnreachableCaseInspectionRange Create(VBAParser.RangeClauseContext range, IUCIValueResults results);
-        IUnreachableCaseInspectionRange Create(string typeName, VBAParser.RangeClauseContext range, IUCIValueResults results);
+        IUnreachableCaseInspectionRange Create(VBAParser.RangeClauseContext range, string typeName, IUCIValueResults results);
         IUnreachableCaseInspectionFactoryFactory FactoryFactory { set; get; }
     }
 
@@ -16,12 +16,9 @@ public IUnreachableCaseInspectionRange Create(VBAParser.RangeClauseContext range
             return new UnreachableCaseInspectionRange(range, results, FactoryFactory);
         }
 
-        public IUnreachableCaseInspectionRange Create(string typeName, VBAParser.RangeClauseContext range, IUCIValueResults results)
+        public IUnreachableCaseInspectionRange Create(VBAParser.RangeClauseContext range, string typeName, IUCIValueResults results)
         {
-            return new UnreachableCaseInspectionRange(range, results, FactoryFactory)
-            {
-                EvaluationTypeName = typeName
-            };
+            return new UnreachableCaseInspectionRange(range, typeName, results, FactoryFactory);
         }
 
         public IUnreachableCaseInspectionFactoryFactory FactoryFactory { set; get; }

Rubberduck.Inspections/Concrete/UnreachableCaseInspection/UnreachableCaseInspectionSelectStmt.cs

@@ -51,7 +51,7 @@ public void InspectForUnreachableCases()
                 var inspectedRanges = new List<IUnreachableCaseInspectionRange>();
                 foreach (var range in caseClause.rangeClause())
                 {
-                    var inspectionRange = _inspectionRangeFactory.Create(EvaluationTypeName, range, _inspValues);
+                    var inspectionRange = _inspectionRangeFactory.Create(range, EvaluationTypeName, _inspValues);
                     if (inspectionRange.IsReachable(cummulativeRangeFilter))
                     {
                         cummulativeRangeFilter.Add(inspectionRange.AsFilter);