strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fs33a: #114249# fix testscript to work better

Browse source
This commit is contained in:
Marc Neumann [msc] 2010-09-02 11:22:08 +02:00
parent 74a9cb1251
commit 1dc7bda0b5
3 changed files with 18 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
testautomation/dbaccess/optional/includes/frm_FormFilter.inc
View file

@ -47,7 +47,9 @@ testcase tLoadForm
Kontext "DocumentWriter"
'/// press CTRL + F5 to get into the first textbox
printlog "press CTRL + F5 to get into the first textbox"
DocumentWriter.TypeKeys "<MOD1 F5>" , true
DocumentWriter.TypeKeys "<MOD1 F6>" , true
wait(1000)
DocumentWriter.TypeKeys "<MOD1 F5>" , true
'sleep(1)
'DocumentWriter.TypeKeys "<MOD1 C>" , true
'sleep(1)
@ -59,6 +61,8 @@ testcase tLoadForm
wait(1000)
'/// insert 2 in the first textbox
printlog "insert 2 in the first textbox"
DocumentWriter.TypeKeys "<MOD1 F6>" , true
wait(1000)
DocumentWriter.TypeKeys "<MOD1 F5>" , true
sleep(1)
DocumentWriter.TypeKeys "2" , true
@ -69,7 +73,7 @@ testcase tLoadForm
FM_FF_Execute
wait(1000)
printlog "workaround issue 102010"
DocumentWriter.TypeKeys "<MOD1 F6>" , true
DocumentWriter.TypeKeys "<MOD1 F6>" , true
sleep(1)
DocumentWriter.TypeKeys "<MOD1 F5>" , true
sleep(1)
@ -94,6 +98,8 @@ testcase tLoadForm
wait(1000)
'/// insert into the second textbox like '%2'
printlog "insert into the second textbox like '%2'"
DocumentWriter.TypeKeys "<MOD1 F6>" , true
wait(1000)
DocumentWriter.TypeKeys "<MOD1 F5>" , true
sleep(1)
DocumentWriter.TypeKeys "<TAB>" , true

10
testautomation/dbaccess/optional/includes/frm_Forms.inc
View file

@ -173,7 +173,7 @@ testcase tCreateForm
'/// insert a textfield
printlog "insert a textfield"
Edit.Click
call hDrawingWithSelection ( 50, 20, 60, 30 )
call hDrawingWithSelection ( 50, 30, 60, 40 )
sleep(1)
Kontext "FormControls"
@ -543,7 +543,7 @@ testcase tCreateSubForms
'/// insert a textfield
printlog "insert a textfield"
Edit.Click
call hDrawingWithSelection ( 50, 20, 60, 30 )
call hDrawingWithSelection ( 50, 30, 60, 40 )
sleep(1)
Kontext "FormControls"
@ -638,7 +638,7 @@ testcase tCreateSubForms
'/// insert a textfield
printlog "insert a textfield"
'Edit.Click
call hDrawingWithSelection ( 50, 40, 60, 50 )
call hDrawingWithSelection ( 50, 50, 60, 60 )
sleep(1)
Kontext "FormControls"
@ -672,6 +672,8 @@ testcase tCheckSubForm
'/// set cursor into the first control
printlog "set cursor into the first control"
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<MOD1 F6>" , true
wait(1000)
DocumentWriter.TypeKeys "<MOD1 F5>" , true
sleep(1)
@ -749,7 +751,7 @@ testcase tCreateSubFormsNewMethod
'/// insert a textfield
printlog "insert a textfield"
Edit.Click
call hDrawingWithSelection ( 50, 20, 60, 30 )
call hDrawingWithSelection ( 50, 30, 60, 40 )
sleep(1)
Kontext "FormControls"

9
testautomation/dbaccess/optional/includes/xf_Submission.inc
View file

@ -41,6 +41,8 @@ end sub
'-------------------------------------------------------------------------
testcase tDataNavigatorSubmission
Dim sSubmitPath as string
'/// open new XML Form
printlog "open new XML Form"
@ -101,11 +103,8 @@ testcase tDataNavigatorSubmission
'/// add a submission
Kontext "XFormAddSubmission"
SubmitName.setText("submission1")
if ( gPlatgroup = "w95" ) then
SubmitAction.setText("file:///" + ConvertPath(gOfficePath,"lin") + "user/work/test.xml")
else
SubmitAction.setText("file://" + gOfficePath + "user/work/test.xml")
endif
sSubmitPath = "file:///" + gOfficePath + "user/work/test.xml"
SubmitAction.setText( hStringReplaceChar( sSubmitPath, "\", "/" ) )
SubmitMethod.select 2
'/// close the add submission dialog