From 5b90258153dc082f6f9d5d12165b33c72f93d911 Mon Sep 17 00:00:00 2001
From: Cyrus Najmabadi <cyrusn@microsoft.com>
Date: Thu, 9 Apr 2015 14:52:56 -0700
Subject: [PATCH] Add additional test.

---
 .../VisualBasicReferenceHighlightingTests.vb  | 22 +++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/src/EditorFeatures/Test2/ReferenceHighlighting/VisualBasicReferenceHighlightingTests.vb b/src/EditorFeatures/Test2/ReferenceHighlighting/VisualBasicReferenceHighlightingTests.vb
index 734d531c776..955310e4766 100644
--- a/src/EditorFeatures/Test2/ReferenceHighlighting/VisualBasicReferenceHighlightingTests.vb
+++ b/src/EditorFeatures/Test2/ReferenceHighlighting/VisualBasicReferenceHighlightingTests.vb
@@ -250,5 +250,27 @@ End Class
 
             VerifyHighlights(input)
         End Sub
+
+        <Fact, Trait(Traits.Feature, Traits.Features.ReferenceHighlighting)>
+        Public Sub TestWrittenReference2()
+            Dim input =
+            <Workspace>
+                <Project Language="Visual Basic" CommonReferences="true">
+                    <Document>
+Class Foo
+    Public Sub New()
+        Dim {|Definition:$$x|} As Integer
+        Foo({|WrittenReference:x|})
+    End Sub
+
+    Public Sub Foo(ByRef a as Integer)
+    End Sub
+End Class
+                    </Document>
+                </Project>
+            </Workspace>
+
+            VerifyHighlights(input)
+        End Sub
     End Class
 End Namespace
-- 
GitLab