34 lines
782 B
OpenEdge ABL
34 lines
782 B
OpenEdge ABL
|
VERSION 1.0 CLASS
|
||
|
|
BEGIN
|
||
|
|
MultiUse = -1 'True
|
||
|
|
END
|
||
|
|
Attribute VB_Name = "CDS_InfoTests"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = False
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
'================ Tests summary ============
|
||
|
|
' Shared module version: 20210306
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Public count_ As Long
|
||
|
|
Public success_ As Long
|
||
|
|
Public failed_ As Long
|
||
|
|
|
||
|
|
Public Function AddTest(bResult As Boolean)
|
||
|
|
count_ = count_ + 1
|
||
|
|
If bResult Then
|
||
|
|
success_ = success_ + 1
|
||
|
|
Else
|
||
|
|
failed_ = failed_ + 1
|
||
|
|
End If
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Public Function MergeStats(iSource As CDS_InfoTests)
|
||
|
|
If iSource Is Nothing Then _
|
||
|
|
Exit Function
|
||
|
|
count_ = count_ + iSource.count_
|
||
|
|
success_ = success_ + iSource.success_
|
||
|
|
failed_ = failed_ + iSource.failed_
|
||
|
|
End Function
|