122 lines
4.1 KiB
Plaintext
122 lines
4.1 KiB
Plaintext
Sub CheckError( iExpError )
|
|
If Err.Number <> iExpError Then
|
|
wscript.echo "Expected 0x" & Hex(iExpError) & ", Got 0x" & Hex(Err.Number)
|
|
description = trim (Err.Description)
|
|
do while chr(10) = Right(description,1) or chr(13) = Right(description,1)
|
|
description = Left(description,len(description) - 1)
|
|
loop
|
|
wscript.echo " " & Err.Source, description
|
|
cErrors = cErrors + 1
|
|
Else
|
|
' wscript.echo ("No Error")
|
|
End If
|
|
|
|
if Err.Number <> 0 then Err.Clear
|
|
End Sub
|
|
|
|
Sub DefineColumnMessage( strColumn )
|
|
wscript.echo ("<LI>Query.DefineColumn(""" & strColumn & """)")
|
|
End Sub
|
|
|
|
cErrors = 0
|
|
|
|
On Error Resume Next
|
|
wscript.Echo "Bad parameter tests for Query.DefineColumn"
|
|
' <p>HITS=15 (count of rows in the table)
|
|
' <TABLE BORDER>
|
|
' <TH>Action/Error Number</TH><TH>Error Source</TH><TH>Error Description</TH>
|
|
' <TR><TD>Same property twice</TD></TR>
|
|
|
|
|
|
set Q1=wscript.CreateObject("IXSSO.Query")
|
|
strNewColumn = "terryla_error_test(DBTYPE_I4, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q1.DefineColumn(strNewColumn)
|
|
CheckError( 0 )
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q1.DefineColumn(strNewColumn)
|
|
CheckError( 0 )
|
|
|
|
' <TR><TD>Long property name</TD></TR>
|
|
strNewColumn = "dcsourcetypecategory(dbtype_wstr|dbtype_byref) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 dc.source.type.category"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q1.DefineColumn(strNewColumn)
|
|
CheckError( 0 )
|
|
|
|
' <TR><TD>No property specifier</TD></TR>
|
|
|
|
set Q2=wscript.CreateObject("IXSSO.Query")
|
|
strNewColumn = "terryla_error_test(DBTYPE_I4, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q2.DefineColumn(strNewColumn)
|
|
CheckError( &h8004165A )
|
|
|
|
' <TR><TD>Expecting property name</TD></TR>
|
|
|
|
set Q3=wscript.CreateObject("IXSSO.Query")
|
|
strNewColumn = "(DBTYPE_I4, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q3.DefineColumn(strNewColumn)
|
|
CheckError( &h80041653 )
|
|
|
|
' <TR><TD>Invalid GUID (BUBBA)</TD></TR>
|
|
|
|
set Q4=wscript.CreateObject("IXSSO.Query")
|
|
strNewColumn = "terryla_error_test(DBTYPE_I4, 1) = CF2BUBBA-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q4.DefineColumn(strNewColumn)
|
|
CheckError( &h80041659 )
|
|
|
|
' <TR><TD>Invalid GUID (missing part)</TD></TR>
|
|
|
|
set Q5=wscript.CreateObject("IXSSO.Query")
|
|
strNewColumn = "terryla_error_test(DBTYPE_I4, 1) = CF2EAF90-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q5.DefineColumn(strNewColumn)
|
|
CheckError( &h80041659 )
|
|
|
|
' <TR><TD>Unrecognized property type (BUBBA)</TD></TR>
|
|
|
|
set Q6=wscript.CreateObject("IXSSO.Query")
|
|
strNewColumn = "terryla_error_test(DBTYPE_BUBBA, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q6.DefineColumn(strNewColumn)
|
|
CheckError( &h80041655 )
|
|
|
|
' <TR><TD>Illegal character in friendly name</TD></TR>
|
|
|
|
set Q7=wscript.CreateObject("IXSSO.Query")
|
|
strNewColumn = "terryla!scope_test(DBTYPE_I4, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q7.DefineColumn(strNewColumn)
|
|
CheckError( &h80041658 )
|
|
|
|
strNewColumn = "terryla.scope_test(DBTYPE_I4, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q7.DefineColumn(strNewColumn)
|
|
CheckError( &h80041659 )
|
|
|
|
strNewColumn = """terryla!scope_test""(DBTYPE_I4, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q7.DefineColumn(strNewColumn)
|
|
CheckError( &h0 )
|
|
|
|
strNewColumn = """terryla.scope_test""(DBTYPE_I4, 1) = CF2EAF90-9311-11CF-BF8C-0020AFE50508 terryla_error_test"
|
|
'DefineColumnMessage(strNewColumn)
|
|
Q7.DefineColumn(strNewColumn)
|
|
CheckError( &h0 )
|
|
|
|
if cErrors <> 0 then
|
|
wscript.Echo "FAIL"
|
|
else
|
|
wscript.Echo "PASS"
|
|
end if
|
|
|
|
set Q1 = nothing
|
|
set Q2 = nothing
|
|
set Q3 = nothing
|
|
set Q4 = nothing
|
|
set Q5 = nothing
|
|
set Q6 = nothing
|
|
set Q7 = nothing
|