archive
/
windows-nt-4.0
mirror of https://github.com/lianthony/NT4.0
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Windows NT 4.0 source code leak
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
0 Tags
184 MiB
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
windows-nt-4.0/private/tapi/qa/bvt/tapi_bvt.mst

2872 lines
77 KiB
Raw Permalink Blame History

'******************************************************************************
' TAPI_BVT.mst TAPI API Build Verification Test
' Ronald Rohr
' April 15, 1996
' Status = Pre-Test Design Review, Pre-Code Review
' Version = 0.1
' This test Performs the Build Verification Test of the TAPI API
'
' A description of the Test Cases Can be found in TCM, Server: lostpup,
' Database: TAPICASES, Tree: BVT.
' Logon with ID & Password = Tapicase (read only privlages)
' TAPI Browser 2.0 (TB20.exe) is required to run this test.
'******************************************************************************
'******************************************************************************
' TEST CASE LIST (in order of execution)
'* TC - 4 lineOpen and lineClose with all privileges
'* TC - 5 lineNegotiateAPIVersion / 1.4
'* TC - 8 lineGetDevCaps
'* TC - 9 lineMakeCall - privileges = none, monitor, owner
'* TC - 10 lineMakeCall - line unavalable
'- TC - 11 lineMakeCall - to a busy number
'* TC - 13 lineDrop - with active call
'* TC - 14 lineDeallocate - w/ active call
'* TC - 15 lineShutDown - with active call
'* TC - 16 lineClose - with active call
'* TC - 21 lineSetCurrentLocation - with valid and invalid Location IDs
'* TC - 22 lineGetCountry
'* TC - 26 lineGetTranslateCaps - determine SUCCESS and validity of
'* TC - 27 lineTranslateAddress - valid and invalid addresses
'* TC - 28 lineTranslateAddress - valid and invalid credit cards
'* TC - 29 lineTranslateAddress - valid and invalid translate options
'* TC - 31 lineConfigDialog
'* TC - 32 lineTranslateDialog
' TC - 78 lineAnswer
' TC - 79 lineAccept
'* TC - 80 lineDial
'* TC - 81 lineGetID - comm & comm/datamodem
'* TC - 83 lineReply & lineCallState
'* TC - 175 lineNegotiateAPIVersion / 2.0
'* TC - 176 lineGetMessage
'* TC - 177 lineGetStatusMessage
'* TC - 178 lineGetNumRings & lineSetNumRings
'$INCLUDE 'declares.inc'
option base 0
Const TEST_SCRIPT_TITLE = "TAPI Build Verification Test" 'Test Script Name
Const TEST_SCRIPT_VERSION = "5/17/96" 'Test Script Version
Const TIMEOUT = 3 'Timeout value for MSTest APIs
Global Test_Logfile as string 'Results Log File Name
Global SlowPC as long 'Set to TRUE if Alpha or 486
dim rtn as long 'Generic long return
dim CRLFrtn as long 'location of CRLF in string
dim ErrorMessage as string 'Error Message string for On Error Procedure
dim ParamSet as long 'State of TB20 Param checkbox
dim LOpen_ID as string 'ID returned by lineOpen
dim CurCountryID as string 'Hold Current Country ID TC - 26
dim CreditCardID as string 'Hold Credit Card ID TC - 26
dim count as short 'Generic counter
dim tempstr as string 'Generic string
dim Returnstr as string 'Holds TB20 EditBox text
dim hDlg as long 'Generic handle
dim ModemName as string 'Modem Name for TC - 81, found in TC - 31
dim strhObject as string 'Used in TC - 81
dim NumRings as string 'Number of rings rtn by lineGetNumRings
'$include 'Tapilog.inc' 'required for all common file I/O procedures
'$include 'TAPI_API.inc' 'API Constant declarations used in TAPI Browser
'$include 'TAPI_BVT.inc' 'Functions and Constants used by TAPI_BVT.MST
''$include 'TAPI_TEMP.INC' 'location of functions under construction
on error goto ErrorHandler
on end EndTest
' Bounds Checker can only be run from a system that has Visual Test installed
' otherwise a run time error will occur.
' The Bounds Checker binaries cannot be redistributed.
' NUMEGA should only be defined when running in the VT environment.
'$ifdef NUMEGA
on BoundsCheckerNotify (NULL) Call BoundsChkHandler
'$endif 'NUMEGA
'$ifdef DEBUG_TEST_SCRIPT
viewport on
viewport clear
'$endif 'DEBUG_TEST_SCRIPT
viewport off
'*** Test Initialization
redim (ParamTraits) (0) as ParamAttributes
SetDefaultWaitTimeout (5)
TotalScenarios = 0
Test_Logfile = TESTMODE$
CurrentLoggingLevel = DetailCase
SetLogFileName
rtn = StartLog (DELETE_LOGFILE, TEST_SCRIPT_TITLE)
SetWndTimeout () 'Set timeouts for all platforms
'*** Verify Modem set otherwise stop test
rtn = DetectModem
if rtn = FALSE then
tempstr = "This Test Will Terminate" + CRLF + CRLF + _
"Please Set up Modem on this computer" + CRLF + _
"prior to running the TAPI BVT"
WritelogItem ("" , tempstr )
Statusbox tempstr, 0,0,0,0, TRUE, TRUE
Sleep 6
Stop 'Stop the test
endif
'*** Set Service Provider in RegEdit to unimdm.tsp
'$IFDEF Already_Validated
'$ENDIF 'Already_Validated
SetupProviders ()
'******************************************************************************
'*** TC - 4 lineOpen and lineClose with all privileges *
'******************************************************************************
'*** Start TAPI Browser
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem ("Test Case 4" , "")
TC_ID = 4
TotalScenarios = TotalScenarios + 1
redim (ParamTraits) (0) as ParamAttributes
'--- Step 2
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if Num_Dev = 0 then
WritelogItem ("lineInitialize Returned 0 devices ", "")
WritelogItem ("Configure Telephony to use Unimodem Service Provider before starting the test ", "")
WritelogItem ("This Test Will Terminate", "")
end
endif
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 3
ParamSet = SetParamState (hTB20, CHECKED)
'--- Step 4, 5 , 6, 7
ParamTraits(0).Param = "dwPrivileges"
ParamTraits(0).BitFlagList = "NONE"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "LineOpen Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "LineOpen DialOut Privilege"
teststring.Actual_Res = lOpenRtn.priv
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "DialOut" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 8 through 17
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
'All ParamTraits should be set to null
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
'All ParamTraits should be set to null
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
ParamTraits(0).Param = "dwPrivileges"
ParamTraits(0).BitFlagList = "MONITOR"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "LineOpen Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 4
teststring.TC_Num = 4
teststring.Expect_Res = "LineOpen Monitor Privilege"
teststring.Actual_Res = lOpenRtn.priv
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "Monitor" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 18 through 27
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
'All ParamTraits should be set to null
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
'All ParamTraits should be set to null
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
ParamTraits(0).Param = "dwPrivileges"
ParamTraits(0).BitFlagList = "OWNER"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
'--- Results 5
teststring.TC_Num = 5
teststring.Expect_Res = "LineOpen Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 6
teststring.TC_Num = 6
teststring.Expect_Res = "LineOpen DialInOut Privilege"
teststring.Actual_Res = lOpenRtn.priv
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "DialInOut" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 28 through 32
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
'All ParamTraits should be set to null
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 5 lineNegotiateAPIVersion / 1.4 *
'******************************************************************************
'--- Step 1 through 6
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 5" , "")
TC_ID = 5
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LNegotiateAPIVer ( (hTB20), (hTB_Ctrl), ParamSet, lNegVerRtn )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "LineNegotiateAPIVersion Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- API Version Results
teststring.Expect_Res = "x10004"
teststring.Actual_Res = lNegVerRtn.API_Ver
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = teststring.Expect_Res then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
teststring.Expect_Res = "ID's = x0"
TotalTestCases = TotalTestCases + 1
rtn = 0
for count = 0 to 3
if lNegVerRtn.ID(count) <> "x0" then
rtn = rtn + 1 'rtn is used as a fail counter
end if
next
if rtn = 0 then
teststring.Actual_Res = "ID's = x0"
teststring.Apprase = "Pass"
else
teststring.Actual_Res = "ID's <> x0"
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 7 through 10
ParamTraits(0).Param = "dwAPILowVersion"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "00030000"
ParamTraits(0).ValueList = ""
rtn = Call_LNegotiateAPIVer ( (hTB20), (hTB_Ctrl), ParamSet, lNegVerRtn )
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "INCOMPATIBLEAPIVERSION"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = LineReturnString (LINEERR_INCOMPATIBLEAPIVERSION) then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 11 through 14
ParamTraits(0).Param = "dwAPILowVersion"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "00010003"
ParamTraits(0).ValueList = ""
rtn = Call_LNegotiateAPIVer ( (hTB20), (hTB_Ctrl), ParamSet, lNegVerRtn )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "LineNegotiateAPIVersion Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- API Version Results
teststring.Expect_Res = "x10004"
teststring.Actual_Res = lNegVerRtn.API_Ver
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = teststring.Expect_Res then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
teststring.Expect_Res = "ID's = x0"
TotalTestCases = TotalTestCases + 1
rtn = 0
for count = 0 to 3
if lNegVerRtn.ID(count) <> "x0" then
rtn = rtn + 1 'rtn is used as a fail counter
end if
next
if rtn = 0 then
teststring.Actual_Res = "ID's = x0"
teststring.Apprase = "Pass"
else
teststring.Actual_Res = "ID's <> x0"
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
ParamSet = SetParamState (hTB20, UNCHECKED)
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 13 lineDrop with active call *
'******************************************************************************
'--- Step 1 through 5
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 13" , "")
TC_ID = 13
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
ReceiveState.ErrorStr = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'if rtn <= 0 then
' WritelogItem ("lineMakeCall failed error = " , ReceiveState.param1)
' WritelogItem ("" , "This Test Will Terminate")
' end
'endif
'--- Step 6
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "IDLE"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "IDLE"
teststring.Actual_Res =ReceiveState.param1
TotalTestCases = TotalTestCases + 1
if rtn = TRUE then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 7 through 10
'******************************************************************************
' TC - 14 lineDeallocate w/ active call *
'******************************************************************************
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
'rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
'Step 7 of TC 13 is in reality TC 14
WritelogItem (" " , "")
WritelogItem ("Test Case 14" , "")
TC_ID = 14
TotalScenarios = TotalScenarios + 1
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
teststring.TC_Num = 1
teststring.Expect_Res = "LineDeallocateCall Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 15 lineShutDown with active call *
'******************************************************************************
'--- Step 1 through 4
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 15" , "")
TC_ID = 15
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'if rtn = FALSE then
' WritelogItem ("lineMakeCall failed error = " ,ReceiveState.param1)
' WritelogItem ("" , "This Test Will Terminate")
' end
'endif
'--- Results 1
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
teststring.TC_Num = 1
teststring.Expect_Res = "LineShutDown Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 16 lineClose with active call *
'******************************************************************************
'--- Step 1 through 4
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 16" , "")
TC_ID = 16
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'if rtn <= 0 then
' WritelogItem ("lineMakeCall failed error = " ,ReceiveState.param1)
' WritelogItem ("" , "This Test Will Terminate")
' end
'endif
'--- Step 5
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
'--- Result 1
teststring.TC_Num = 1
teststring.Expect_Res = "LineClose Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 6, 7
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 8 lineGetDevCaps *
'******************************************************************************
'--- Step 1, 2
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 8" , "")
TC_ID = 8
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 3
rtn = Call_LGetDevCaps ( (hTB20), (hTB_Ctrl), Paramset)
'--- Result 1
teststring.TC_Num = 1
teststring.Expect_Res = "LineGetDevCaps Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Step 4
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = "dwDeviceID"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = "ffffffff"
'--- Step 5 through 8
rtn = Call_LGetDevCaps ( (hTB20), (hTB_Ctrl), Paramset)
'--- Result 2
teststring.TC_Num = 2
teststring.Expect_Res = "BADDEVICEID"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = LINEERR_BADDEVICEID then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 9, 10
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 9 lineMakeCall - Privileges = none, monitor, owner *
'******************************************************************************
'--- Step 1, 2
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 9" , "")
TC_ID = 9
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 3, 4, 5, 6
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = "dwPrivileges"
ParamTraits(0).BitFlagList = "NONE"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 7, 8
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "PROCEEDING"
teststring.Actual_Res =ReceiveState.param1
TotalTestCases = TotalTestCases + 1
if rtn = TRUE then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Step 9, 10
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "IDLE"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
'--- Step 11, 12
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
'--- Step 13 through 15
ParamTraits(0).Param = "dwPrivileges"
ParamTraits(0).BitFlagList = "MONITOR"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
'--- Steps 16, 17
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "PROCEEDING"
teststring.Actual_Res =ReceiveState.param1
TotalTestCases = TotalTestCases + 1
if rtn = TRUE then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 18 through 21
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "IDLE"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
'--- Step 22 through 24
ParamTraits(0).Param = "dwPrivileges"
ParamTraits(0).BitFlagList = "OWNER"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
'--- Steps 25, 26
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "PROCEEDING"
teststring.Actual_Res =ReceiveState.param1
TotalTestCases = TotalTestCases + 1
if rtn = TRUE then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 27 through 28
ParamSet = SetParamState (hTB20, UNCHECKED)
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "IDLE"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 10 lineMakeCall - Line unavalable *
'******************************************************************************
'--- Step 1, 2
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 10" , "")
TC_ID = 10
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 2 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 3
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("Step 3 - lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 4
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'if rtn > 0 then
' WritelogItem ("Step 4 - lineMakeCall failed error = " , ltrim$(hex$(rtn)))
' WritelogItem ("" , "This Test Will Terminate")
' end
'endif
'--- Step 5
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 5 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 6
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("Step 6 - lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Step 7
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "PROCEEDING"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
ReceiveState.ErrorStr = "LINEERR_CALLUNAVAIL"
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "LINEERR_CALLUNAVAIL"
teststring.Actual_Res =ReceiveState.ErrorStr
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = teststring.Expect_Res then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Step 8, 9
count = WListCount(_hwnd(hTB_Ctrl(TB_ResList)), TIMEOUT)
WListItemClk (_hwnd(hTB_Ctrl(TB_ResList)), "@" + ltrim$(str$(count)), TIMEOUT)
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
'--- Step 10, 11
count = WListCount(_hwnd(hTB_Ctrl(TB_ResList)), TIMEOUT)
WListItemClk (_hwnd(hTB_Ctrl(TB_ResList)), "@" + ltrim$(str$(count)), TIMEOUT)
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
'--- Step 12 through 15
ReceiveState.Msg = "LINE_CALLSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = "IDLE"
ReceiveState.param2 = ""
ReceiveState.param3 = ""
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 26 lineGetTranslateCaps - determine SUCCESS and validity of
' RUN TC-26 BEFORE TC-21 TO GET THE CURRENT LOCATION ID
'******************************************************************************
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 26" , "")
WritelogItem ("RUN TC-26 BEFORE TC-21 TO", " GET THE CURRENT LOCATION ID")
TC_ID = 26
TotalScenarios = TotalScenarios + 1
Returnstr = space$(1)
rtn = Call_LGetTranslateCaps ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
teststring.TC_Num = 1
teststring.Expect_Res = "LineGetTranslateCaps Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn > 0 then
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
else
teststring.Apprase = "Pass"
rtn = instr(1, Returnstr, "dwPermanentLocationID")
if rtn > 0 then ' Get the first location ID
rtn = instr(rtn, Returnstr, "=x")
CurCountryID = mid$(Returnstr, rtn + 2, instr(rtn, Returnstr, CRLF) - (rtn + 2) )
endif
rtn = instr(1, Returnstr, "dwPermanentCardID")
if rtn > 0 then ' Get the first Credit Card ID
rtn = instr(rtn, Returnstr, "=x")
CreditCardID = mid$(Returnstr, rtn + 2, instr(rtn, Returnstr, CRLF) - (rtn + 2) )
endif
endif
LogCase (teststring)
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 21 lineSetCurrentLocation With valid and invalid Location IDs *
'******************************************************************************
'Note: This test requires a valid Country ID which is returned by TC 26
'--- Step 1
if Val( CurCountryID) > 0 then 'continue with test
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 21" , "")
TC_ID = 21
TotalScenarios = TotalScenarios + 1
'--- Steps 2, 3
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 2 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = "dwLocation"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = CurCountryID
ParamTraits(0).ValueList = ""
Returnstr = " "
rtn = Call_LSetCurrentLocation ( (hTB20), (hTB_Ctrl), Paramset, CurCountryID, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "LineSetCurrentLoc Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn > 0 then
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
else
teststring.Apprase = "Pass"
rtn = instr(1, Returnstr, "dwPermanentLocationID")
if rtn > 0 then
rtn = instr(rtn, Returnstr, "=x")
CurCountryID = mid$(Returnstr, rtn + 2, instr(rtn, Returnstr, CRLF) - (rtn + 2) )
endif
endif
LogCase (teststring)
'--- Results 2
ReceiveState.Msg = "LINE_LINEDEVSTATE"
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = ""
ReceiveState.param2 = ""
ReceiveState.param3 = ""
do
rtn = instr(1, Returnstr, ReceiveState.Msg)
if rtn > 0 then
rtn = MsgSplitter (Returnstr, ReceiveState)
endif
loop until rtn = 0 OR ReceiveState.param1 = "REINIT"
teststring.TC_Num = 2
teststring.Expect_Res = "LINE_LINEDEVSTATE = REINIT"
teststring.Actual_Res = ReceiveState.param1
TotalTestCases = TotalTestCases + 1
if instr(1, ReceiveState.param1, "REINIT") > 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
endif
'--- Steps 8 through 11
ParamTraits(0).Param = "dwLocation"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "ffffffff"
ParamTraits(0).ValueList = ""
Returnstr = " "
rtn = Call_LSetCurrentLocation ( (hTB20), (hTB_Ctrl), Paramset, CurCountryID, Returnstr )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "Rtn LINEERR_INVALLOCATION"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = LINEERR_INVALLOCATION then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 22 lineGetCountry *
'******************************************************************************
'--- Steps 1 through 6
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 22" , "")
TC_ID = 22
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = "dwCountryID"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "0"
ParamTraits(0).ValueList = ""
Returnstr = " "
rtn = Call_LGetCountry ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "LineGetCountry Rtn SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 7 through 10
ParamTraits(0).Param = "dwCountryID"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "161"
ParamTraits(0).ValueList = ""
Returnstr = " "
rtn = Call_LGetCountry ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 11 through 14
ParamTraits(0).Param = "dwCountryID"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "ffffffff"
ParamTraits(0).ValueList = ""
Returnstr = " "
rtn = Call_LGetCountry ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "LINEERR_INVALCOUNTRYCODE"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = LINEERR_INVALCOUNTRYCODE then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Step 15
ParamSet = SetParamState (hTB20, UNCHECKED)
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 27 lineTranslateAddress - valid and invalid addresses *
'******************************************************************************
'--- Steps 1
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 27" , "")
TC_ID = 27
TotalScenarios = TotalScenarios + 1
'--- Step 2
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 2 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Steps 3 through 9 Canonical format address
ParamSet = SetParamState (hTB20, CHECKED)
redim (ParamTraits) (0 to 1) as ParamAttributes
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = "select none"
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = "+1(206)543-9876"
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 11 through 16 Dialable Format Address
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = "select none"
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = "206 777-8888"
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 17 through 22 Invalid Address
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = ""
ParamTraits(1).ValueList = "Invalid string pointer"
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "LINEERR_INVALPOINTER"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = LINEERR_INVALPOINTER then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'******************* Added to Regress Failure 49XXX ******************************
'--- Steps 11 through 16 Canonacal Format International Address with no city code
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = "select none"
'--- Test 1
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = "+852()777-8888"
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 4
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Test 2
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = "+852 ()777-8888"
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 4
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Test 3
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = "+852() 777-8888"
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 4
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Test 4
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = "+852 () 777-8888"
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 4
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Test 5
ParamTraits(1).Param = "lpszAddressIn"
ParamTraits(1).BitFlagList = ""
ParamTraits(1).ValueEdit = "+852 777-8888"
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 4
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'*********************************************************************************
'--- Steps 23 through 25 Test Case shutdown
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 28 lineTranslateAddress - valid and invalid credit cards *
'******************************************************************************
'Note: Tis test requires a valid Credit Card ID which is returned by TC - 26
'--- Steps 1 through
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 28" , "")
TC_ID = 28
TotalScenarios = TotalScenarios + 1
'--- Step 2
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 2 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Steps 3 through 7
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = "dwCard"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = CreditCardID
ParamTraits(0).ValueList = ""
redim (ParamTraits) (0) as ParamAttributes
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 8 through 11
ParamTraits(0).Param = "dwCard"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "ffffffff"
ParamTraits(0).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "LINEERR_INVALCARD"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = LINEERR_INVALCARD then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 12 through 14
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 29 lineTranslateAddress - valid and invalid translate options *
'******************************************************************************
'--- Steps 1 through 6
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 29" , "")
TC_ID = 29
TotalScenarios = TotalScenarios + 1
'--- Step 2
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 2 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
'--- Steps 3 through 7
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = "select none"
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 8 through 12
redim (ParamTraits) (0 to 1) as ParamAttributes
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = "CARDOVERRIDE"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
ParamTraits(1).Param = ""
ParamTraits(1).BitFlagList = "CANCELCALLWAITING"
ParamTraits(1).ValueEdit = ""
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 13 through 17
redim (ParamTraits) (0) as ParamAttributes
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = "FORCELOCAL"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 18 through 22
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = "FORCELD"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 4
teststring.TC_Num = 4
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 23 through 28
redim (ParamTraits) (0 TO 1) as ParamAttributes
ParamTraits(0).Param = "dwTranslateOptions"
ParamTraits(0).BitFlagList = "FORCELOCAL"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
ParamTraits(1).Param = ""
ParamTraits(1).BitFlagList = "FORCELD"
ParamTraits(1).ValueEdit = ""
ParamTraits(1).ValueList = ""
rtn = Call_LTranslateAddress ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 5
teststring.TC_Num = 5
teststring.Expect_Res = "LINEERR_INVALPARAM"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = LINEERR_INVALPARAM then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 29 through 31
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 31 lineConfigDialog verify popup *
'******************************************************************************
'--- Step 1
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 31" , "")
TC_ID = 31
TotalScenarios = TotalScenarios + 1
'--- Step 2
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 2 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamSet = SetParamState (hTB20, UNCHECKED)
'--- Step 3, 4
hDlg = 0
rtn = Call_LConfigDialog ( (hTB20), (hTB_Ctrl), Paramset, hDlg, ModemName )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "Valid Modem Prop. Handle"
teststring.Actual_Res = ltrim$(hex$(hDlg))
TotalTestCases = TotalTestCases + 1
if hDlg <> 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Step 5, 6
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 32 lineTranslateDialog verify popup *
'******************************************************************************
'--- Step 1 through 3
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 32" , "")
TC_ID = 32
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
hDlg = 0
rtn = Call_LTranslateDialog ( (hTB20), (hTB_Ctrl), hDlg, Paramset )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "Valid Dialing Prop. Handle"
teststring.Actual_Res = ltrim$(hex$(hDlg))
TotalTestCases = TotalTestCases + 1
if hDlg <> 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 5 through 7
'--- Results 3
'--- Step 8
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 80 lineDial *
'******************************************************************************
'--- Step 1 through 2
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 80" , "")
TC_ID = 80
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 5 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("Step 6 - lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamSet = SetParamState (hTB20, CHECKED)
'--- Step 3
redim (ParamTraits) (0) as ParamAttributes
ParamTraits(0).Param = "lpszDestAddress"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = "NULL pointer"
ReceiveState.Msg = ""
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = ""
ReceiveState.param2 = ""
ReceiveState.param3 = ""
ReceiveState.ErrorStr = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
ParamTraits(0).Param = "lpszDestAddress"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "55555"
ParamTraits(0).ValueList = ""
rtn = Call_LDial ( (hTB20), (hTB_Ctrl), ParamSet, hDlg )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "Valid Call Status Handle"
teststring.Actual_Res = ltrim$(hex$(hDlg))
TotalTestCases = TotalTestCases + 1
if hDlg <> 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 5 through 7
sleep .1 'param checkbox will not change if covered by the call
'status box. The delay allows the dialog to disappear
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 81 lineGetID - comm & comm/datamodem *
'******************************************************************************
'Note: This test case is dependent on TC 31 returning a valid modem name
' The test cannot run without it
'--- Step 1 through 2
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 81" , "")
TC_ID = 81
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 5 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamSet = SetParamState (hTB20, CHECKED)
redim (ParamTraits) (0) as ParamAttributes
ParamTraits(0).Param = "dwPrivileges"
ParamTraits(0).BitFlagList = "OWNER"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("Step 6 - lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamTraits(0).Param = "lpszDeviceClass"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "comm"
ParamTraits(0).ValueList = ""
rtn = Call_LGetID ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 1
teststring.TC_Num = 2
teststring.Expect_Res = "dwStringFormat = ASCII"
rtn = instr(1, Returnstr, "dwStringFormat")
CRLFrtn = instr(rtn, Returnstr, CRLF)
rtn = instr(rtn, Returnstr, ",")
tempstr = ltrim$(mid$(Returnstr , rtn + 1, CRLFrtn - (rtn + 1)))
teststring.Actual_Res = tempstr
TotalTestCases = TotalTestCases + 1
if tempstr = "ASCII" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 1
teststring.TC_Num = 3
teststring.Expect_Res = ModemName ' Returned in TC 31
teststring.Actual_Res = GetModemName ( Returnstr, strhObject)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = ModemName then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'*************************************************************************************
ParamTraits(0).Param = "lpszDeviceClass"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "ndis"
ParamTraits(0).ValueList = ""
rtn = Call_LGetID ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 2
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 2
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "dwStringFormat = BINARY"
rtn = instr(1, Returnstr, "dwStringFormat")
CRLFrtn = instr(rtn, Returnstr, CRLF)
rtn = instr(rtn, Returnstr, ",")
tempstr = ltrim$(mid$(Returnstr , rtn + 1, CRLFrtn - (rtn + 1)))
teststring.Actual_Res = tempstr
TotalTestCases = TotalTestCases + 1
if tempstr = "BINARY" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'*************************************************************************************
'--- Test 3
ParamTraits(0).Param = "lpszDeviceClass"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "comm/datamodem"
ParamTraits(0).ValueList = ""
rtn = Call_LGetID ( (hTB20), (hTB_Ctrl), Paramset, Returnstr )
'--- Results 3
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "SUCCESS"
teststring.Actual_Res = LineReturnString ( rtn )
TotalTestCases = TotalTestCases + 1
if rtn = 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 3
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "dwStringFormat = BINARY"
rtn = instr(1, Returnstr, "dwStringFormat")
CRLFrtn = instr(rtn, Returnstr, CRLF)
rtn = instr(rtn, Returnstr, ",")
tempstr = ltrim$(mid$(Returnstr , rtn + 1, CRLfrtn - (rtn + 1)))
teststring.Actual_Res = tempstr
TotalTestCases = TotalTestCases + 1
if tempstr = "BINARY" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = ModemName ' Returned in TC 31
teststring.Actual_Res = GetModemName ( Returnstr, strhObject)
teststring.Actual_Res = right$(teststring.Actual_Res, len(teststring.Actual_Res) -4)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = ModemName then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Step 5
'Delete leading zeros from strhObject
strhObject = ltrim$(Hex$(Val("&h"+ strhObject)))
ParamTraits(0).Param = "hObject"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = strhObject
ParamTraits(0).ValueList = ""
rtn = TCloseHandle ((hTB20), (hTB_Ctrl), ParamSet, returnstr)
teststring.TC_Num = teststring.TC_Num + 1
teststring.Expect_Res = "Handle " + strhObject + " Closed"
CRLFrtn = instr(1, returnstr, CRLF)
if CRLFrtn = 0 then
teststring.Actual_Res = returnstr
else
teststring.Actual_Res = left$(returnstr, len(returnstr) - (len(returnstr) - CRLFrtn - 1))
endif
TotalTestCases = TotalTestCases + 1
if rtn = True then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 6, 7
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 83 lineReply & lineCallState *
'******************************************************************************
'--- Step 1
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 83" , "")
TC_ID = 83
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
'--- Steps 2 through 4
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 5 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("Step 5 - lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
'--- Steps 5 and 6
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("Step 6 - lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ReceiveState.Msg = ""
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = ""
ReceiveState.param2 = ""
ReceiveState.param3 = ""
ReceiveState.ErrorStr = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "LINE_REPLY or LINE_CALLSTATE"
TotalTestCases = TotalTestCases + 1
rtn = 0
rtn = instr (1, returnstr, "LINE_REPLY")
if rtn > 0 then
teststring.Actual_Res = "LINE_REPLY"
teststring.Apprase = "Pass"
else
rtn = instr (1, returnstr, "LINE_CALLSTATE")
if rtn > 0 then
teststring.Actual_Res = "LINE_CALLSTATE"
teststring.Apprase = "Pass"
else
teststring.Actual_Res = ""
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
endif
LogCase (teststring)
'--- Steps 7 through 10
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 175 lineNegotiateAPIVersion / 2.0 *
'******************************************************************************
'--- Step 1 through 5
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 175" , "")
TC_ID = 175
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitializeEx ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev, returnstr )
if rtn > 0 then
WritelogItem ("lineInitializeEx failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
if Num_Dev = 0 then
WritelogItem ("lineInitializeEx returned 0 devices = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LNegotiateAPIVer ( (hTB20), (hTB_Ctrl), ParamSet, lNegVerRtn )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "LineNegotiateAPIVersion Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- API Version Results
teststring.Expect_Res = "x20000"
teststring.Actual_Res = lNegVerRtn.API_Ver
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = teststring.Expect_Res then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
teststring.Expect_Res = "ID's = x0"
TotalTestCases = TotalTestCases + 1
rtn = 0
for count = 0 to 3
if lNegVerRtn.ID(count) <> "x0" then
rtn = rtn + 1 'rtn is used as a fail counter
end if
next
if rtn = 0 then
teststring.Actual_Res = "ID's = x0"
teststring.Apprase = "Pass"
else
teststring.Actual_Res = "ID's <> x0"
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
ParamSet = SetParamState (hTB20, CHECKED)
'--- Steps 6 through 9
ParamTraits(0).Param = "dwAPILowVersion"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "00030000"
ParamTraits(0).ValueList = ""
rtn = Call_LNegotiateAPIVer ( (hTB20), (hTB_Ctrl), ParamSet, lNegVerRtn )
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "INCOMPATIBLEAPIVERSION"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = LineReturnString (LINEERR_INCOMPATIBLEAPIVERSION) then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 11 through 14
ParamTraits(0).Param = "dwAPILowVersion"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = "00010003"
ParamTraits(0).ValueList = ""
rtn = Call_LNegotiateAPIVer ( (hTB20), (hTB_Ctrl), ParamSet, lNegVerRtn )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "LineNegotiateAPIVersion Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- API Version Results
teststring.Expect_Res = "x20000"
teststring.Actual_Res = lNegVerRtn.API_Ver
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = teststring.Expect_Res then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
teststring.Expect_Res = "ID's = x0"
TotalTestCases = TotalTestCases + 1
rtn = 0
for count = 0 to 3
if lNegVerRtn.ID(count) <> "x0" then
rtn = rtn + 1 'rtn is used as a fail counter
end if
next
if rtn = 0 then
teststring.Actual_Res = "ID's = x0"
teststring.Apprase = "Pass"
else
teststring.Actual_Res = "ID's <> x0"
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
ParamSet = SetParamState (hTB20, UNCHECKED)
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 176 lineGetMessage *
'******************************************************************************
'--- Step 1 through 10
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 176" , "")
TC_ID = 176
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = " ->dwOptions"
ParamTraits(0).BitFlagList = "USEEVENT"
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LInitializeEx ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev, Returnstr )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
ReceiveState.Msg = ""
ReceiveState.device = ""
ReceiveState.cbInst = ""
ReceiveState.param1 = ""
ReceiveState.param2 = ""
ReceiveState.param3 = ""
ReceiveState.ErrorStr = ""
rtn = Call_LMakeCall ( (hTB20), (hTB_Ctrl), ParamSet, ReceiveState, Returnstr )
'--- Results 1
teststring.TC_Num = 1
teststring.Expect_Res = "MakeCall Request ID"
TotalTestCases = TotalTestCases + 1
rtn = instr(1, returnstr, "x")
if rtn > 0 then
CRLFrtn = instr(rtn, returnstr, CRLF)
if CRLFrtn > rtn then
teststring.Actual_Res = mid$ (returnstr , rtn + 1, CRLFrtn - (rtn+1))
else
teststring.Actual_Res = "0"
endif
else
teststring.Actual_Res = "0"
endif
if Val(teststring.Actual_Res) > 0 then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 11 through 12
ParamTraits(0).Param = ""
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = ""
ParamTraits(0).ValueList = ""
rtn = Call_LGetMessage ((hTB20), (hTB_Ctrl), ParamSet, returnstr)
'--- Results 2
teststring.TC_Num = 2
teststring.Expect_Res = "LineGetMessage Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "LINE_REPLY"
TotalTestCases = TotalTestCases + 1
'Look for 2nd CRLF in returnstr
teststring.Actual_Res = "No Message"
rtn = instr(1, returnstr, CRLF)
CRLFrtn = instr(rtn+1, returnstr, CRLF)
if CRLFrtn > 0 then
rtn = instr(rtn, returnstr, "received")
if rtn > 0 then
teststring.Actual_Res = ltrim$(rtrim$(mid$(returnstr, rtn + 9, CRLFrtn - (rtn + 9))))
endif
endif
if teststring.Actual_Res = teststring.Expect_Res then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 13 through 18
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LDrop ( (hTB20), (hTB_Ctrl), ParamSet,ReceiveState )
rtn = Call_lDeallocateCall ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 177 lineGetStatusMessage *
'******************************************************************************
'--- Step 1 through 4
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 177" , "")
TC_ID = 177
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LGetStatusMessages ((hTB20), (hTB_Ctrl), ParamSet )
teststring.TC_Num = 1
teststring.Expect_Res = "GetStatusMessage Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 5 through 7
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'******************************************************************************
' TC - 178 lineGetNumRings & lineSetNumRings *
'******************************************************************************
'--- Step 1 through 4
StartTAPIBrowser(hTB20, hTB_Ctrl, hTB_CtrlID)
WritelogItem (" " , "")
WritelogItem ("Test Case 178" , "")
TC_ID = 178
TotalScenarios = TotalScenarios + 1
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LInitialize ( (hTB20), (hTB_Ctrl), Paramset, hLineApp, Num_Dev )
if rtn > 0 then
WritelogItem ("lineInitialize failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LOpen ( (hTB20), (hTB_Ctrl), ParamSet, lOpenRtn )
if rtn > 0 then
WritelogItem ("lineOpen failed error = " , ltrim$(hex$(rtn)))
WritelogItem ("" , "This Test Will Terminate")
end
endif
rtn = Call_LGetNumRings ( (hTB20), (hTB_Ctrl), Paramset, NumRings )
'--- Results 1 and 2
teststring.TC_Num = 1
teststring.Expect_Res = "GetNumRings Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
teststring.TC_Num = 2
teststring.Expect_Res = "Num Rings = ffffffff"
teststring.Actual_Res = NumRings
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "ffffffff" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 5 through 9
ParamSet = SetParamState (hTB20, CHECKED)
ParamTraits(0).Param = "dwNumRings"
ParamTraits(0).BitFlagList = ""
ParamTraits(0).ValueEdit = SET_RINGS
ParamTraits(0).ValueList = ""
rtn = Call_LSetNumRings ( (hTB20), (hTB_Ctrl), Paramset )
'--- Results 3
teststring.TC_Num = 3
teststring.Expect_Res = "SetNumRings Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 10 through 11
ParamSet = SetParamState (hTB20, UNCHECKED)
rtn = Call_LGetNumRings ( (hTB20), (hTB_Ctrl), Paramset, NumRings )
'--- Results 4 and 5
teststring.TC_Num = 4
teststring.Expect_Res = "GetNumRings Rtn SUCCESS"
teststring.Actual_Res = LineReturnString (rtn)
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = "SUCCESS" then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
teststring.TC_Num = 5
teststring.Expect_Res = "Num Rings = " + SET_RINGS
teststring.Actual_Res = NumRings
TotalTestCases = TotalTestCases + 1
if teststring.Actual_Res = SET_RINGS then
teststring.Apprase = "Pass"
else
teststring.Apprase = "FAIL *"
FailedTestCases = FailedTestCases + 1
endif
LogCase (teststring)
'--- Steps 12 through 14
rtn = Call_LClose ((hTB20), (hTB_Ctrl), ParamSet )
rtn = Call_LShutDown ((hTB20), (hTB_Ctrl), ParamSet )
' Close TAPI Browser - ALL LINES MUST BE SHUTDOWN BY NOW
WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MEXIT, TIMEOUT)
'$ifdef NotyetValidated
'$endif 'NotyetValidated
'******************************************************************************
'*** END OF TEST *
'******************************************************************************
END 'TAPI_BVT Test
'****************************** On Error Routine ******************************
ErrorHandler:
ErrorMessage = "Unexpected error in the TAPI Build Verification Test: " + CRLF + CRLF + _
"Error: " + error$ + CRLF + _
"Error #:" + str$(Err) + CRLF + _
"Line #: " + str$(Erl) + CRLF + _
"File: " + Erf + CRLF + CRLF + _
"Attempt to continue?"
'$IFDEF DEBUG_TEST_SCRIPT
if Msgbox(ErrorMessage, MB_ICONEXCLAMATION or MB_YESNO) = IDYES then
resume next
else
Stop
endif
'$ELSE
Statusbox "Run Time error detected, Test will terminate", _
0,0,0,0, TRUE, TRUE
Sleep 4
WritelogItem ("" , ErrorMessage)
Stop
'$ENDIF 'DEBUG_TEST_SCRIPT
'******************************************************************************