Fixed: Configurator.ExportTestClasses: get VBProject of application

Author: josef-poetzl

binaries/accunit/x86/AccessCodeLib.AccUnit.dll

@@ -82,7 +82,7 @@ public void RemoveTestEnvironment(bool removeTestModules = false, bool exportMod
 
             if (removeTestModules)
             {
-                OfficeApplicationHelper officeApplicationHelper = new VbeOnlyApplicatonHelper(_vbProject.VBE);
+                OfficeApplicationHelper officeApplicationHelper = new VBProjectOnlyApplicatonHelper(_vbProject);
                 using (var testClassManager = new TestClassManager(officeApplicationHelper))
                 {
                     testClassManager.RemoveTestComponents(exportModulesBeforeRemoving);
@@ -110,7 +110,7 @@ public void ExportTestClasses(string exportPath = null, VBProject vbProject = nu
             if (vbProject != null)
                 _vbProject = vbProject;
 
-            OfficeApplicationHelper officeApplicationHelper = new VbeOnlyApplicatonHelper(_vbProject.VBE);
+            OfficeApplicationHelper officeApplicationHelper = new VBProjectOnlyApplicatonHelper(_vbProject);
             using (var testClassManager = new TestClassManager(officeApplicationHelper))
             {
                 testClassManager.ExportTestClasses(exportPath);
@@ -119,7 +119,7 @@ public void ExportTestClasses(string exportPath = null, VBProject vbProject = nu
 
         public void ImportTestClasses(string FileNameFilter = null, string importPath = null, VBProject VBProject = null)
         {
-            OfficeApplicationHelper officeApplicationHelper = new VbeOnlyApplicatonHelper(_vbProject.VBE);
+            OfficeApplicationHelper officeApplicationHelper = new VBProjectOnlyApplicatonHelper(_vbProject);
             using (var testClassManager = new TestClassManager(officeApplicationHelper))
             {
                 testClassManager.ImportTestComponents(FileNameFilter, importPath, true);

binaries/accunit/x86/AccessCodeLib.AccUnit.tlb

@@ -31,5 +31,5 @@
 // Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
 // indem Sie "*" wie unten gezeigt eingeben:
 // [assembly: AssemblyVersion("1.0.*")]
-[assembly: AssemblyVersion("0.8.6.0")]
-[assembly: AssemblyFileVersion("0.8.6.0")]
+[assembly: AssemblyVersion("0.8.7.0")]
+[assembly: AssemblyFileVersion("0.8.7.0")]

binaries/accunit/x86/AccessCodeLib.Common.VBIDETools.dll

@@ -130,6 +130,7 @@
     <Compile Include="VbaProjectManagement\VbeManager.cs" />
     <Compile Include="VbeAdapter.cs" />
     <Compile Include="VbeOnlyApplicatonHelper.cs" />
+    <Compile Include="VbProjectOnlyApplicatonHelper.cs" />
   </ItemGroup>
   <ItemGroup>
     <COMReference Include="Microsoft.Office.Core">

source/AccUnit/Configuration/Configurator.cs

@@ -28,5 +28,5 @@
 //      Build Number
 //      Revision
 //
-[assembly: AssemblyVersion("0.9.13.0")]
-[assembly: AssemblyFileVersion("0.9.13.0")]
+[assembly: AssemblyVersion("0.9.14.0")]
+[assembly: AssemblyFileVersion("0.9.14.0")]

source/AccUnit/Properties/AssemblyInfo.cs

@@ -0,0 +1,29 @@
+using AccessCodeLib.Common.Tools.Logging;
+using Microsoft.Vbe.Interop;
+
+namespace AccessCodeLib.Common.VBIDETools
+{
+    public class VBProjectOnlyApplicatonHelper : OfficeApplicationHelper
+    {
+        private readonly VBProject _vbProject;
+
+        public VBProjectOnlyApplicatonHelper(VBProject vbProject)
+            : base(vbProject)
+        {
+            _vbProject = vbProject;
+        }
+
+        public override VBE VBE
+        {
+            get { return _vbProject.VBE; }
+        }
+
+        protected override VBProject GetCheckedVbProject()
+        {
+            using (new BlockLogger())
+            {
+                return _vbProject;
+            }
+        }
+    }
+}