Fix: VCS support: Add line for TestSummary.Error

Author: josef-poetzl

access-add-in/AccUnitLoader.accda

@@ -232,7 +232,7 @@ Public Function AutomatedTestRun(Optional ByRef ResultMessage As String, _
    RemoveTestEnvironment True
 
    If Not Success Then
-      ResultMessage = TestSummary.Failed & " of " & TestSummary.Total & " tests failed"
+      ResultMessage = (TestSummary.Failed + TestSummary.Error) & " of " & TestSummary.Total & " tests failed"
    ElseIf TestSummary.Ignored > 0 Then
       ResultMessage = TestSummary.Ignored & " of " & TestSummary.Total & " tests ignored"
    Else

access-add-in/source/modules/AccUnitLoaderConfigProcedures.bas

@@ -107,6 +107,7 @@ Private Sub PrintSummary(ByVal TestSummary As AccUnit.ITestSummary, Optional ByV
    Debug.Print "Tests: "; TestSummary.Total
    Debug.Print , "Passed:  "; TestSummary.Passed
    Debug.Print , "Failed:  "; TestSummary.Failed
+   Debug.Print , "Error:   "; TestSummary.Error
    Debug.Print , "Ignored: "; TestSummary.Ignored
    Debug.Print String(40, "-")
 End Sub

access-add-in/source/modules/DebugPrintTestResultReporter.cls

@@ -93,6 +93,7 @@ Private Sub PrintSummary(ByVal TestSummary As AccUnit.ITestSummary, ByVal PrintT
    PrintToFile "Tests: " & TestSummary.Total
    PrintToFile " ", "Passed:  " & TestSummary.Passed
    PrintToFile " ", "Failed:  " & TestSummary.Failed
+   PrintToFile " ", "Error:   " & TestSummary.Error
    PrintToFile " ", "Ignored: " & TestSummary.Ignored
    PrintToFile String(LineSeperatorLen, "-")
 

access-add-in/source/modules/LogFileTestResultReporter.cls

@@ -94,6 +94,7 @@ Private Sub PrintSummary(ByVal TestSummary As AccUnit.ITestSummary, ByVal PrintT
    PrintToFile "Tests: " & TestSummary.Total
    PrintToFile " ", "Passed:  " & TestSummary.Passed
    PrintToFile " ", "Failed:  " & TestSummary.Failed
+   PrintToFile " ", "Error:   " & TestSummary.Error
    PrintToFile " ", "Ignored: " & TestSummary.Ignored
    PrintToFile String(LineSeperatorLen, "-")
 

access-add-in/source/modules/MsAccessVcsTestResultReporter.cls

@@ -18,7 +18,7 @@ Option Compare Text
 Option Explicit
 
 'Version number
-Private Const APPLICATION_VERSION As String = "0.9.1005.250216"
+Private Const APPLICATION_VERSION As String = "0.9.1101.250216"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"