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