32 lines
605 B
OpenEdge ABL
32 lines
605 B
OpenEdge ABL
|
VERSION 1.0 CLASS
|
||
|
|
BEGIN
|
||
|
|
MultiUse = -1 'True
|
||
|
|
END
|
||
|
|
Attribute VB_Name = "s_Test_sample"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = False
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
' ===== Test suite sample =======
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Private parser_ As PC_ParserDate
|
||
|
|
|
||
|
|
Public Function Setup()
|
||
|
|
' Mandatory setup function
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Public Function Teardown()
|
||
|
|
' Mandatory teardown function
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Public Function t_TestName()
|
||
|
|
On Error GoTo PROPAGATE_ERROR
|
||
|
|
|
||
|
|
Exit Function
|
||
|
|
PROPAGATE_ERROR:
|
||
|
|
Call Dev_LogError(Err.Number, Err.Description)
|
||
|
|
End Function
|