Allow to clear inspection listener contexts by module

Author: MDoerner

Rubberduck.CodeAnalysis/Inspections/Abstract/ParseTreeInspectionBase.cs

@@ -139,6 +139,11 @@ public virtual void ClearContexts()
             _contexts.Clear();
         }
 
+        public virtual void ClearContexts(QualifiedModuleName module)
+        {
+            _contexts.Remove(module);
+        }
+
         protected void SaveContext(ParserRuleContext context)
         {
             var module = CurrentModuleName;

Rubberduck.CodeAnalysis/Inspections/Concrete/OptionExplicitInspection.cs

@@ -69,6 +69,12 @@ public override void ClearContexts()
                 base.ClearContexts();
             }
 
+            public override void ClearContexts(QualifiedModuleName module)
+            {
+                _hasOptionExplicit.Remove(module);
+                base.ClearContexts(module);
+            }
+
             public override void EnterModuleDeclarations(VBAParser.ModuleDeclarationsContext context)
             {
                 _hasOptionExplicit[CurrentModuleName] = false;

Rubberduck.CodeAnalysis/Inspections/Concrete/UnhandledOnErrorResumeNextInspection.cs

@@ -7,6 +7,7 @@
 using Rubberduck.Parsing.Inspections.Abstract;
 using Rubberduck.Resources.Inspections;
 using Rubberduck.Parsing.VBA;
+using Rubberduck.VBEditor;
 
 namespace Rubberduck.Inspections.Concrete
 {
@@ -74,6 +75,19 @@ public override void ClearContexts()
             base.ClearContexts();
         }
 
+        public override void ClearContexts(QualifiedModuleName module)
+        {
+            var keysInModule = _unhandledContextsMap.Keys
+                .Where(context => context.ModuleName.Equals(module));
+
+            foreach (var key in keysInModule)
+            {
+                _unhandledContextsMap.Remove(key);
+            }
+
+            base.ClearContexts(module);
+        }
+
         public override void ExitModuleBodyElement(VBAParser.ModuleBodyElementContext context)
         {
             if (_unhandledContexts.Any())

Rubberduck.CodeAnalysis/Inspections/Concrete/UnreachableCaseInspection/UnreachableCaseInspection.cs

@@ -279,17 +279,19 @@ public class UnreachableCaseInspectionListener : InspectionListenerBase
         {
             private readonly IDictionary<QualifiedModuleName, List<VBAParser.EnumerationStmtContext>> _enumStmts = new Dictionary<QualifiedModuleName, List<VBAParser.EnumerationStmtContext>>();
             public IReadOnlyList<VBAParser.EnumerationStmtContext> EnumerationStmtContexts() => _enumStmts.AllValues().ToList();
-            public IReadOnlyList<VBAParser.EnumerationStmtContext> EnumerationStmtContexts(QualifiedModuleName module) => 
-                _enumStmts.TryGetValue(module, out var stmts)
-                    ? stmts
-                    : new List<VBAParser.EnumerationStmtContext>();
 
             public override void ClearContexts()
             {
                 _enumStmts.Clear();
                 base.ClearContexts();
             }
 
+            public override void ClearContexts(QualifiedModuleName module)
+            {
+                _enumStmts.Remove(module);
+                base.ClearContexts(module);
+            }
+
             public override void EnterSelectCaseStmt([NotNull] VBAParser.SelectCaseStmtContext context)
             {
                 SaveContext(context);

Rubberduck.Parsing/Inspections/Abstract/IInpsectionListener.cs

@@ -10,6 +10,7 @@ public interface IInspectionListener: IParseTreeListener
         IReadOnlyList<QualifiedContext<ParserRuleContext>> Contexts();
         IReadOnlyList<QualifiedContext<ParserRuleContext>> Contexts(QualifiedModuleName module);
         void ClearContexts();
+        void ClearContexts(QualifiedModuleName module);
         QualifiedModuleName CurrentModuleName { get; set; }
     }
 }