Fix VBA heuristic for Access Option Compare statement (github-linguis…

…t#6742)

* Fix VBA heuristic for Access Option Compare statement

* Add VBA sample

* Add Binary option

lib/linguist/heuristics.yml

@@ -887,7 +887,7 @@ named_patterns:
   - '^[ ]*#If Win64\b'
   - '^[ ]*(?:Dim|Const) [0-9a-zA-Z_]*[ ]*As Long(?:Ptr|Long)\b'
   # Top module declarations unique to VBA
-  - '^[ ]*Option (?:Private Module|Compare Database)\b'
+  - '^[ ]*Option (?:Private Module|Compare (?:Database|Text|Binary))\b'
   # General VBA libraries and objects
   - '(?: |\()(?:Access|Excel|Outlook|PowerPoint|Visio|Word|VBIDE)\.\w'
   - '\b(?:(?:Active)?VBProjects?|VBComponents?|Application\.(?:VBE|ScreenUpdating))\b'

samples/VBA/AccUnitLoaderConfigProcedures.bas

@@ -0,0 +1,114 @@
+Attribute VB_Name = "AccUnitLoaderConfigProcedures"
+Option Explicit
+Option Compare Text
+
+Public Sub AddAccUnitTlbReference()
+   RemoveAccUnitTlbReference
+   CurrentVbProject.References.AddFromFile CurrentAccUnitConfiguration.AccUnitDllPath & "\AccessCodeLib.AccUnit.tlb"
+End Sub
+
+Public Sub RemoveAccUnitTlbReference()
+
+   Dim ref As Reference
+   Dim RefName As String
+
+   With CurrentVbProject
+      For Each ref In .References
+On Error Resume Next
+         RefName = ref.Name
+         If Err.Number <> 0 Then
+            Err.Clear
+            RefName = vbNullString
+         End If
+On Error GoTo 0
+         If RefName = "AccUnit" Then
+            .References.Remove ref
+            Exit Sub
+         End If
+      Next
+   End With
+
+End Sub
+
+Public Sub InsertFactoryModule()
+
+   Dim Configurator As AccUnit.Configurator
+
+   With New AccUnitLoaderFactory
+      Set Configurator = .Configurator
+   End With
+
+   Configurator.InsertAccUnitLoaderFactoryModule AccUnitTlbReferenceExists, True, CurrentVbProject, Application
+   Set Configurator = Nothing
+
+On Error Resume Next
+'   Application.RunCommand acCmdCompileAndSaveAllModules
+
+End Sub
+
+Private Function AccUnitTlbReferenceExists() As Boolean
+
+   Dim ref As Reference
+   Dim RefName As String
+
+   For Each ref In CurrentVbProject.References
+On Error Resume Next
+      RefName = ref.Name
+      If Err.Number <> 0 Then
+         Err.Clear
+         RefName = vbNullString
+      End If
+On Error GoTo 0
+      If RefName = "AccUnit" Then
+         AccUnitTlbReferenceExists = True
+         Exit Function
+      End If
+   Next
+
+End Function
+
+Public Sub ImportTestClasses()
+
+   Dim Configurator As AccUnit.Configurator
+
+   With New AccUnitLoaderFactory
+      Set Configurator = .Configurator
+   End With
+
+   Configurator.InsertAccUnitLoaderFactoryModule AccUnitTlbReferenceExists, False, CurrentVbProject, Application
+   Configurator.ImportTestClasses
+   Set Configurator = Nothing
+
+On Error Resume Next
+'   Application.RunCommand acCmdCompileAndSaveAllModules
+
+End Sub
+
+Public Sub ExportTestClasses()
+
+   Dim Configurator As AccUnit.Configurator
+
+   With New AccUnitLoaderFactory
+      Set Configurator = .Configurator
+   End With
+
+   Configurator.ExportTestClasses
+   Set Configurator = Nothing
+
+End Sub
+
+Public Sub RemoveTestEnvironment(ByVal RemoveTestModules As Boolean)
+
+   Dim Configurator As AccUnit.Configurator
+
+   With New AccUnitLoaderFactory
+      Set Configurator = .Configurator
+   End With
+
+   Configurator.RemoveTestEnvironment RemoveTestModules, , CurrentVbProject
+   Set Configurator = Nothing
+
+On Error Resume Next
+'   Application.RunCommand acCmdCompileAndSaveAllModules
+
+End Sub