354 lines
12 KiB
Plaintext
354 lines
12 KiB
Plaintext
'******************************************************************************
|
|
|
|
' DP32.mst
|
|
' This test scripts validates the operation of the Dialing Properties
|
|
' TAPI component
|
|
|
|
' Ronald Rohr
|
|
' January 03, 1996
|
|
|
|
' Status = Pre-Test Design Review, Pre-Code Review
|
|
' Version = 0.1
|
|
|
|
' A description of the Test Cases Can be found in TCM, Server: lostpup,
|
|
' Database: TAPICASES, Tree: Dialing Properties.
|
|
' Logon with ID & Password = Tapicase (read only privlages)
|
|
|
|
' To run this test the command$ variable must be set to the path of the DP32.ini
|
|
' file otherwise the test will use default english strings.
|
|
'******************************************************************************
|
|
|
|
'******************************************************************************
|
|
|
|
' TEST CASE LIST (in order of execution)
|
|
|
|
' TC - 33 Start Phone Dialer Application
|
|
' TC - 35 Set Language Strings
|
|
' TC - 34 Invoke Dialing Properties Window
|
|
' TC - 46 Verify Language Strings
|
|
' TC - 41 Add Locations
|
|
' TC - 84 Modify a Location
|
|
' TC - 45 Verify Calling Cards
|
|
' TC - 37 Country Dialing Rules
|
|
' TC - 85 Remove a Location
|
|
|
|
'$INCLUDE 'declares.inc'
|
|
|
|
option base 0
|
|
|
|
Const TEST_SCRIPT_TITLE = "Dialing Properties Test" 'Test Script Name
|
|
Const TEST_SCRIPT_VERSION = "4/15/96" 'Test Script Version
|
|
Const TEST_APP = "Dialer.exe" 'File name of the Application Under Test
|
|
Const TIMEOUT = 3 'Timeout value for MSTest APIs
|
|
|
|
Global Test_Logfile as string 'Results Log File Name
|
|
|
|
|
|
'$include 'Tapilog.inc' 'required for all common file I/O procedures
|
|
'$include 'DP32.inc' 'Functions and Constants used by DP32.MST
|
|
|
|
dim hPhoneDialer as long ' Handle to main Dialer window
|
|
dim hProperties as long ' Handle to Dialing Properties dialog
|
|
dim hParentTab as long ' Handle to Dialing Properties Tab Control
|
|
dim hMyLocTab as long ' Handle to Dialing Properties My Location tab
|
|
dim hTelDrvTab as long ' Handle to Dialing Properties Telephone Drivers tab
|
|
dim hDPcmdOK as long ' Handle to Dialing Properties OK command button
|
|
dim hDPcmdCancel as long ' Handle to Dialing Properties Cancel command button
|
|
dim hDPcmdApply as long ' Handle to Dialing Properties Apply command button
|
|
dim Prop_hCtrl(2) as long ' Array of handles to the Dialing Properties child controls
|
|
dim Prop_CtrlID (2) as long ' Array My Location Tab child controls IDs
|
|
dim ML_hCtrl (15) as long ' Array of handles to the My Location Tab child controls
|
|
dim ML_CtrlID (15) as long ' Array My Location Tab child controls IDs
|
|
dim TD_hCtrl (3) as long ' Array of handles to the Telephony Drivers Tab child controls
|
|
dim TD_CtrlID (3) as long ' Array Telephony Drivers Tab child controls IDs
|
|
dim rtn as long ' Generic long function return value
|
|
dim ret as integer ' Generic integer function return value
|
|
dim rtnstring as string ' Generic string function return value
|
|
dim ErrorMessage as string ' Error Message string for On Error Procedure
|
|
dim InitialLoc as Location ' Initial location Information
|
|
dim Redmond as Location ' Location Information for location test
|
|
dim Ireland as Location ' Ditto
|
|
dim Chicago as Location ' Ditto
|
|
|
|
'************************ End Variable Declarations *******************
|
|
|
|
'************************ Define Arrays *******************************
|
|
|
|
'Dialing Properties child control IDs
|
|
|
|
Prop_CtrlID(DP_OKcmd) = &h00000001&
|
|
Prop_CtrlID(DP_CANCELcmd) = &h00000002&
|
|
Prop_CtrlID(DP_APPLYcmd) = &h00003021&
|
|
|
|
'My Location Tab child control IDs
|
|
|
|
ML_CtrlID(NEW_cmd) = &h00001389&
|
|
ML_CtrlID(REMOVE_cmd) = &h0000138B&
|
|
ML_CtrlID(CHANGE_cmd) = &h0000138C&
|
|
ML_CtrlID(LOCATION_cbo) = &h00001388&
|
|
ML_CtrlID(COUNTRY_cbo) = &h0000040F&
|
|
ML_CtrlID(AREA_txt) = &h0000040E&
|
|
ML_CtrlID(LOCAL_txt) = &h0000040C&
|
|
ML_CtrlID(LONG_txt) = &h0000040D&
|
|
ML_CtrlID(CARD_chk) = &h0000138D&
|
|
ML_CtrlID(DIAL_AS_chk) = &h0000138A&
|
|
ML_CtrlID(WAIT_chk) = &h0000138E&
|
|
ML_CtrlID(WAITStr_cbo) = &h00001390&
|
|
ML_CtrlID(TONE_opt) = &h000017A3&
|
|
ML_CtrlID(PULSE_opt) = &h000017A2&
|
|
ML_CtrlID(ADDRESS_lbl) = &h00002329&
|
|
ML_CtrlID(NUMBER_lbl) = &h00002328&
|
|
|
|
'Telephony Drivers Tab child controls IDs
|
|
|
|
TD_CtrlID(TD_ADDcmd) = &h00000422
|
|
TD_CtrlID(TD_REMOVEcmd) = &h00000423
|
|
TD_CtrlID(TD_SETUPcmd) = &h00000420
|
|
TD_CtrlID(TD_DRIVERlst) = &h00000421
|
|
|
|
|
|
'************************ End Define Arrays ***************************
|
|
|
|
'************************ Start Test **********************************
|
|
on error goto ErrorHandler
|
|
|
|
|
|
' 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 a 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
|
|
|
|
SetDefaultWaitTimeout (5)
|
|
TotalScenarios = 0
|
|
Test_Logfile = TESTMODE$
|
|
CurrentLoggingLevel = DetailCase
|
|
SetLogFileName
|
|
rtn = StartLog (DELETE_LOGFILE, TEST_SCRIPT_TITLE)
|
|
SetWndTimeout ()
|
|
|
|
' ********* TC - 35 Get Language Strings from INI file or use defaults
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
GetLangStr
|
|
|
|
' ********* TC - 33 Start Phone Dialer application
|
|
|
|
'NOTE: Phone dialer will not be used to invoke dialing properties so Start_App
|
|
' is no longer needed. Dialing properties will be invoked from the
|
|
' Call_Dialing_Prop fuction using control.exe.
|
|
|
|
' hPhoneDialer = Start_App
|
|
|
|
' ********* TC - 34 Invoke Dialing Properties Window
|
|
|
|
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
InitialLoc.Location = "New Location"
|
|
InitialLoc.AreaCode = "312"
|
|
InitialLoc.Country = "United States of America"
|
|
InitialLoc.LocalAccess = "7"
|
|
InitialLoc.LongAccess = InitialLoc.LocalAccess
|
|
InitialLoc.CardSet = UNCHECKED
|
|
InitialLoc.WaitSet = UNCHECKED
|
|
InitialLoc.ToneSet = FALSE
|
|
InitialLoc.PulseSet = TRUE
|
|
|
|
' Delete preexisting locations and set default location = InitialLoc.
|
|
|
|
SetLocationInfo (InitialLoc)
|
|
|
|
' Callup dialing properties and get main handles
|
|
' Handles to the Parent tab and the property pages are returned via
|
|
' the three function arguments
|
|
|
|
hProperties = Call_Dialing_Prop (hParentTab, hMyLocTab, hTelDrvTab)
|
|
|
|
'GetDPCtrlh gets the handles to the dialing properties command buttons
|
|
|
|
GetDPCtrlh (hProperties, Prop_hCtrl, Prop_CtrlID)
|
|
|
|
' ********* TC - 46 Verify Language Strings
|
|
|
|
'Check the existance of the Tab controls
|
|
'First convert tab control handle to a string that WTab functions like
|
|
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
Validate_Strings (hMyLocTab, ML_hCtrl)
|
|
|
|
' ********* NOT A TEST CASE
|
|
' Retrieve handles to child controls on all property pages
|
|
' for use with other test cases
|
|
|
|
GetChildhandles (hTelDrvTab, TD_hCtrl, TD_CtrlID)
|
|
GetChildhandles (hMyLocTab, ML_hCtrl, ML_CtrlID)
|
|
|
|
'Define locations for Test Cases 41, 84 and 85
|
|
Redmond.Location = "Redmond"
|
|
Redmond.AreaCode = "206"
|
|
Redmond.Country = "United States of America"
|
|
Redmond.LocalAccess = "9"
|
|
Redmond.LongAccess = "8"
|
|
Redmond.CardSet = UNCHECKED
|
|
Redmond.WaitSet = CHECKED
|
|
Redmond.ToneSet = TRUE
|
|
Redmond.PulseSet = FALSE
|
|
|
|
Ireland.Location = "Cork"
|
|
Ireland.AreaCode = "21"
|
|
Ireland.Country = "Ireland"
|
|
Ireland.LocalAccess = "8"
|
|
Ireland.LongAccess = "9"
|
|
Ireland.CardSet = CHECKED
|
|
Ireland.WaitSet = UNCHECKED
|
|
Ireland.ToneSet = FALSE
|
|
Ireland.PulseSet = TRUE
|
|
|
|
Chicago.Location = "Chicago"
|
|
Chicago.AreaCode = "312"
|
|
Chicago.Country = "United States of America"
|
|
Chicago.LocalAccess = "5"
|
|
Chicago.LongAccess = "6"
|
|
Chicago.CardSet = CHECKED
|
|
Chicago.WaitSet = UNCHECKED
|
|
Chicago.ToneSet = TRUE
|
|
Chicago.PulseSet = FALSE
|
|
|
|
' ********* TC - 41 Add Locations
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
' add 2 new locations
|
|
AddLocations (Prop_hCtrl, ML_hCtrl, InitialLoc, Redmond, Ireland)
|
|
|
|
' invoke Dialing properties and get Handles
|
|
hProperties = Call_Dialing_Prop (hParentTab, hMyLocTab, hTelDrvTab)
|
|
GetDPCtrlh (hProperties, Prop_hCtrl, Prop_CtrlID)
|
|
GetChildhandles (hMyLocTab, ML_hCtrl, ML_CtrlID)
|
|
|
|
' verify that the current location (Cork, Ireland) became the default location
|
|
VerifyCurrentLoc (ML_hCtrl, Ireland)
|
|
|
|
' ********* TC - 84 Modify a Location
|
|
|
|
teststring.TC_Num = 84
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
ModifyLocation (Prop_hCtrl, ML_hCtrl, Chicago)
|
|
|
|
' invoke Dialing properties and get Handles
|
|
hProperties = Call_Dialing_Prop (hParentTab, hMyLocTab, hTelDrvTab)
|
|
GetDPCtrlh (hProperties, Prop_hCtrl, Prop_CtrlID)
|
|
GetChildhandles (hMyLocTab, ML_hCtrl, ML_CtrlID)
|
|
|
|
' verify that the current location (Chicago) became the default location
|
|
' then close Dialing Properties
|
|
VerifyModifyLoc (ML_hCtrl, Chicago, Prop_hCtrl(DP_OKcmd))
|
|
|
|
' ********* TC - 39 Verify Call Waiting
|
|
|
|
teststring.TC_Num = 39
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
VerifyCallWaiting (Prop_CtrlID, ML_CtrlID, Chicago)
|
|
|
|
' ********* TC - 45 Verify Calling Cards
|
|
|
|
teststring.TC_Num = 45
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
DefaultCallingCard (CallingCard, Prop_CtrlID, ML_CtrlID)
|
|
|
|
VerifyCallingCard (Prop_CtrlID, ML_CtrlID)
|
|
|
|
' ********* TC - 37 Country Dialing Rules
|
|
teststring.TC_Num = 37
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
CountryDialRules(DialingRule, Prop_CtrlID, ML_CtrlID) ' The DialingRule array is defined in dialrule.inc
|
|
|
|
' ********* TC - 85 Remove Locations
|
|
|
|
''$ifdef NOTBERNIE
|
|
|
|
teststring.TC_Num = 85
|
|
TotalScenarios = TotalScenarios + 1
|
|
|
|
' invoke Dialing properties and get Handles
|
|
hProperties = Call_Dialing_Prop (hParentTab, hMyLocTab, hTelDrvTab)
|
|
GetDPCtrlh (hProperties, Prop_hCtrl, Prop_CtrlID)
|
|
GetChildhandles (hMyLocTab, ML_hCtrl, ML_CtrlID)
|
|
|
|
'remove locations but Cancel out of dialing properties
|
|
rtnstring = space$(20)
|
|
rtnstring = RemoveLocation (Prop_hCtrl, ML_hCtrl, FALSE)
|
|
|
|
' invoke Dialing properties and get Handles
|
|
hProperties = Call_Dialing_Prop (hParentTab, hMyLocTab, hTelDrvTab)
|
|
GetDPCtrlh (hProperties, Prop_hCtrl, Prop_CtrlID)
|
|
GetChildhandles (hMyLocTab, ML_hCtrl, ML_CtrlID)
|
|
|
|
'remove locations and OK out of dialing properties
|
|
rtnstring = space$(20)
|
|
rtnstring = RemoveLocation (Prop_hCtrl, ML_hCtrl, TRUE)
|
|
|
|
' invoke Dialing properties and get Handles
|
|
hProperties = Call_Dialing_Prop (hParentTab, hMyLocTab, hTelDrvTab)
|
|
GetDPCtrlh (hProperties, Prop_hCtrl, Prop_CtrlID)
|
|
GetChildhandles (hMyLocTab, ML_hCtrl, ML_CtrlID)
|
|
|
|
VerifyRemoveLoc (ML_hCtrl, rtnstring)
|
|
|
|
' ********* End of Test
|
|
|
|
''$IFDEF Run_Rest_Of_Test
|
|
|
|
'Close Dialing Properties window
|
|
WButtonClick (_hwnd(Prop_hCtrl(DP_OKcmd)), TIMEOUT)
|
|
|
|
''$ENDIF 'Run_Rest_Of_Test
|
|
|
|
''$endif 'NOTBERNIE
|
|
|
|
CloseCase (TEST_SCRIPT_TITLE)
|
|
|
|
CloseLog
|
|
|
|
Statusbox "The Dialing Properties Test is now Complete", _
|
|
0,0,0,0, TRUE, TRUE
|
|
Sleep 4
|
|
|
|
end
|
|
|
|
'****************************** On Error Routine ******************************
|
|
|
|
ErrorHandler:
|
|
ErrorMessage = "Unexpected error in the Dialing Properties 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
|
|
logitem (CurrentLoggingLevel, ErrorMessage)
|
|
Stop
|
|
'$ENDIF 'DEBUG_TEST_SCRIPT
|
|
'******************************************************************************
|