fire a result if variable is 'Set' to 'Nothing'.

Author: retailcoder

Rubberduck.Inspections/Concrete/ObjectVariableNotSetInspection.cs

@@ -44,7 +44,11 @@ protected override IEnumerable<IInspectionResult> DoGetInspectionResults()
         private bool FlagIfObjectVariableNotSet(IdentifierReference reference)
         {
             var letStmtContext = ParserRuleContextHelper.GetParent<VBAParser.LetStmtContext>(reference.Context);
-            return (reference.IsAssignment && letStmtContext != null);
+            var setStmtContext = ParserRuleContextHelper.GetParent<VBAParser.SetStmtContext>(reference.Context);
+            var setAssignmentExpression = setStmtContext?.expression()?.GetText();
+
+            return reference.IsAssignment && (letStmtContext != null 
+                   || (setAssignmentExpression?.Equals(Tokens.Nothing, StringComparison.InvariantCultureIgnoreCase) ?? false));
         }
     }
 }

RubberduckTests/Inspections/ObjectVariableNotSetInspectionTests.cs

@@ -11,6 +11,22 @@ namespace RubberduckTests.Inspections
     [TestClass]
     public class ObjectVariableNotSetInspectionTests
     {
+        [TestMethod]
+        [TestCategory("Inspections")]
+        public void ObjectVariableNotSet_OnlyAssignedToNothing_ReturnsResult()
+        {
+            var expectResultCount = 1;
+            var input =
+                @"
+Private Sub DoSomething()
+    Dim target As Object
+    target.DoSomething ' error 91
+    Set target = Nothing
+End Sub
+";
+            AssertInputCodeYieldsExpectedInspectionResultCount(input, expectResultCount);
+        }
+
         [TestMethod]
         [TestCategory("Inspections")]
         public void ObjectVariableNotSet_GivenIndexerObjectAccess_ReturnsNoResult()