Provide unique names to avoid duplicate triggering from other files

Author: SSlinky

test/fixtures/Diagnostics.bas

@@ -5,17 +5,17 @@ Attribute VB_Foo = False
 
 Option Explicit
 
-Public Sub Foo()
+Public Sub UniqueNameFoo()
     Dim i As Long
     While True
         i = i ++ 1
         i = i <> 1
     Wend
 End Sub
 
-Sub Identifier()
-Attribute Identifier.VB_Description = "Dosctring."
-Attribute Identifier.VB_Description = "Dosctring."
+Sub UniqueNameIdentifier()
+Attribute UniqueNameIdentifier.VB_Description = "Dosctring."
+Attribute UniqueNameIdentifier.VB_Description = "Dosctring."
 '   Dosctring.
 '
 '   Args:
@@ -25,7 +25,7 @@ Attribute Identifier.VB_Description = "Dosctring."
 '
 End Sub
 
-Public Enum EnumFoo
+Public Enum UniqueNameEnumFoo
     Enum1
     Enum2
     Enum3