153 lines
5.5 KiB
OpenEdge ABL
153 lines
5.5 KiB
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
Persistable = 0 'NotPersistable
|
|
DataBindingBehavior = 0 'vbNone
|
|
DataSourceBehavior = 0 'vbNone
|
|
MTSTransactionMode = 0 'NotAnMTSObject
|
|
END
|
|
Attribute VB_Name = "adolvl2_tm"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = True
|
|
Implements ITestModule
|
|
|
|
Const casecount = 30
|
|
|
|
'Dim g_caseobj As Variant
|
|
Dim g_provobj As ModuleBase.IProviderInfo
|
|
Dim g_tm As adolvl2.adolvl2_tm
|
|
Dim g_errorobj As ModuleBase.IError
|
|
Dim tracemod As Boolean
|
|
Dim cases(casecount) As Variant
|
|
Dim numcases As Integer
|
|
|
|
Private Function ITestModule_GetDescription() As String
|
|
ITestModule_GetDescription = "ADO Provider Tests - Level 2"
|
|
End Function
|
|
Private Function ITestModule_GetName() As String
|
|
If tracemod Then
|
|
g_errorobj.Transmit "Inside: ITestModule_GetName" + Chr(13)
|
|
End If
|
|
ITestModule_GetName = "ADO Level 2 Conformance Tests"
|
|
End Function
|
|
Private Function ITestModule_GetOwnerName() As String
|
|
ITestModule_GetOwnerName = "WayneL"
|
|
End Function
|
|
Private Function ITestModule_GetVersion() As Long
|
|
ITestModule_GetVersion = 1 ' version number
|
|
End Function
|
|
Private Function ITestModule_GetCLSID() As String
|
|
ITestModule_GetCLSID = "adolvl2.adolvl2_tm"
|
|
End Function
|
|
Private Function ITestModule_Init() As Long
|
|
Set g_tm = Me
|
|
ITestModule_Init = 1
|
|
End Function
|
|
Private Function ITestModule_GetCaseCount() As Long
|
|
ITestModule_GetCaseCount = casecount
|
|
End Function
|
|
Private Function ITestModule_GetCase(ByVal lIndex As Long) As ModuleBase.ITestCases
|
|
If tracemod Then
|
|
g_errorobj.Transmit "Inside: ITestModule_GetCase(" + CStr(lIndex) + ")" + Chr(13)
|
|
End If
|
|
numcases = numcases + 1
|
|
Select Case lIndex
|
|
Case 0
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cncmdtimeout")
|
|
Case 1
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cmdactiveconn")
|
|
Case 2
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cmdcmdtext")
|
|
Case 3
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cmdcmdtimeout")
|
|
Case 4
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cmdcmdtype")
|
|
Case 5
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cmdcreateparam")
|
|
Case 6
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cmdexecute")
|
|
Case 7
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cmdprepared")
|
|
Case 8
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.fldappendchunk")
|
|
Case 9
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.fldgetchunk")
|
|
Case 10
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.fldundervalue")
|
|
Case 11
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmappendchunk")
|
|
Case 12
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmattributes")
|
|
Case 13
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmdirection")
|
|
Case 14
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmname")
|
|
Case 15
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmnumscale")
|
|
Case 16
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmprecision")
|
|
Case 17
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmsize")
|
|
Case 18
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmtype")
|
|
Case 19
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.prmvalue")
|
|
Case 20
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rscancelbatch")
|
|
Case 21
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rscursortype")
|
|
Case 22
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rsfilter")
|
|
Case 23
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rslocktype")
|
|
Case 24
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rsnextrecordset")
|
|
Case 25
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rsresync")
|
|
Case 26
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rssort")
|
|
Case 27
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rsstatus")
|
|
Case 28
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.rsupdatebatch")
|
|
Case 29
|
|
Set cases(numcases - 1) = CreateObject("adolvl2.cnnotify")
|
|
End Select
|
|
cases(numcases - 1).SetCaseError g_errorobj
|
|
cases(numcases - 1).SetCaseProvider g_provobj
|
|
Set Locprov = g_provobj
|
|
Set ITestModule_GetCase = cases(numcases - 1)
|
|
End Function
|
|
Private Function ITestModule_GetErrorInterface() As ModuleBase.IError
|
|
Set ITestModule_GetErrorInterface = g_errorobj
|
|
End Function
|
|
Private Function ITestModule_GetProviderInterface() As ModuleBase.IProviderInfo
|
|
Set ITestModule_GetProviderInterface = g_provobj
|
|
End Function
|
|
Private Sub ITestModule_SetErrorInterface(ByVal pError As ModuleBase.IError)
|
|
Set g_errorobj = pError
|
|
If tracemod Then
|
|
g_errorobj.Transmit "Inside: ITestModule_SetErrorInterface" + Chr(13)
|
|
End If
|
|
End Sub
|
|
Private Sub ITestModule_SetMallocSpyCallback(pbVoodoo As Byte)
|
|
tracemod = False
|
|
numcases = 0
|
|
'MsgBox ("ITestModule_SetMallocSpyCallback")
|
|
End Sub
|
|
Private Sub ITestModule_SetProviderInterface(ByVal pProvInfo As ModuleBase.IProviderInfo)
|
|
On Error GoTo ixx
|
|
Set g_provobj = pProvInfo
|
|
For i = 0 To numcases - 1
|
|
cases(i).SetCaseProvider g_provobj
|
|
Next i
|
|
Exit Sub
|
|
ixx:
|
|
MsgBox Err.Description
|
|
End Sub
|
|
Private Function ITestModule_Terminate() As Boolean
|
|
ITestModule_Terminate = True
|
|
End Function
|