diff options
Diffstat (limited to 'testautomation/writer')
166 files changed, 4049 insertions, 3933 deletions
diff --git a/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc b/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc index 6099a5a784b6..90e1c423a51f 100644..100755 --- a/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc +++ b/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test CJK and CTL support dependency '* diff --git a/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc b/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc index 8b2abe0c7d0b..74f65eaa1704 100644..100755 --- a/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc +++ b/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test Alternative Text for objects in writer '* diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc index 6d47479a4597..f360034d7433 100644..100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the AutoCorrect/AutoFormat/Options '* diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc index 57e8f5ad073b..b15edc69479a 100644..100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test AutoCorrect/AutoFormat/Word Completion '* diff --git a/testautomation/writer/optional/includes/autotext/w_autotext.inc b/testautomation/writer/optional/includes/autotext/w_autotext.inc index 11cc9d0955b6..19e2955f27ab 100644..100755 --- a/testautomation/writer/optional/includes/autotext/w_autotext.inc +++ b/testautomation/writer/optional/includes/autotext/w_autotext.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of autotext in writer '* @@ -199,7 +199,7 @@ testcase tEditAutotext_1 Warnlog "New autotext has not been found!" Autotext.Close else - Call wDocSetContext + hSetDocumentContext() Call wTypeKeys("<Shift Home>") EditCopy if GetClipboardtext <> "This becomes an autotext!" then @@ -263,7 +263,7 @@ testcase tEditAutotext_2 wait 500 Kontext "Autotext" Autotext.Close - Call wDocSetContext + hSetDocumentContext() printlog " Insert some text and format text" Call wTypeKeys("This becomes an autotext!") ' Format word 'This' @@ -392,7 +392,7 @@ testcase tEditAutotext_2 Warnlog "New autotext has not been found!" Autotext.Close else - Call wDocSetContext + hSetDocumentContext() Call wTypeKeys("<Home><Up>" , 4) Call wTypeKeys("<Shift End>") EditCopy diff --git a/testautomation/writer/optional/includes/calculate/w_calculate.inc b/testautomation/writer/optional/includes/calculate/w_calculate.inc index 3b8df0e6cf2e..ccbc196d46aa 100644..100755 --- a/testautomation/writer/optional/includes/calculate/w_calculate.inc +++ b/testautomation/writer/optional/includes/calculate/w_calculate.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Put description here '* diff --git a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc index 58b97f0bfd4a..9c432380228a 100644..100755 --- a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc +++ b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Chinese Translation test '* diff --git a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc index 8a24e3dbd617..85e2ae9aa1f0 100644..100755 --- a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc +++ b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Chinese Dictionary test '* diff --git a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc index bad0c5f41dae..de6a4d0b4fef 100755 --- a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc +++ b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Functions for HTML-Test '* @@ -78,7 +78,7 @@ function wPasteAvailableClipboardFormats(TheNumber as integer, CheckWhat as Stri QAErrorlog " - " + Active.Gettext + "->Bug#110181" Active.Ok end if - Call wDocSetContext + hSetDocumentContext() Call wTypeKeys "<Escape>",2 Select Case gApplication Case "WRITER","MASTERDOCUMENT","HTML" diff --git a/testautomation/writer/optional/includes/clipboard/w_210_.inc b/testautomation/writer/optional/includes/clipboard/w_210_.inc index 296772b937fc..12926c8a486b 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_210_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_210_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_211_.inc b/testautomation/writer/optional/includes/clipboard/w_211_.inc index 2507bdb422e3..b385e745cf16 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_211_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_211_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_212_.inc b/testautomation/writer/optional/includes/clipboard/w_212_.inc index 667627689d6e..6c2a6e9c175e 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_212_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_212_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_213_.inc b/testautomation/writer/optional/includes/clipboard/w_213_.inc index f0cb56aa6dc3..1cf8e50fa2de 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_213_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_213_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_214_.inc b/testautomation/writer/optional/includes/clipboard/w_214_.inc index 1567818d63e1..5f6521b4ae67 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_214_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_214_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_215_.inc b/testautomation/writer/optional/includes/clipboard/w_215_.inc index 76aa31a2e108..95883f35ae1b 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_215_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_215_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_216_.inc b/testautomation/writer/optional/includes/clipboard/w_216_.inc index b36f8490a90e..3952ece03e4c 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_216_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_216_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_217_.inc b/testautomation/writer/optional/includes/clipboard/w_217_.inc index 0e9bc109e6e6..fcb6b450803a 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_217_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_217_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_218_.inc b/testautomation/writer/optional/includes/clipboard/w_218_.inc index fe06d5bf9541..6788407f6c05 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_218_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_218_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_219_.inc b/testautomation/writer/optional/includes/clipboard/w_219_.inc index 8e547d4bf448..74ca4d7c5f71 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_219_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_219_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_220_.inc b/testautomation/writer/optional/includes/clipboard/w_220_.inc index c28b2c541cb8..e938ba027fd1 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_220_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_220_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_221_.inc b/testautomation/writer/optional/includes/clipboard/w_221_.inc index b699258c302f..4b5818065244 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_221_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_221_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/clipboard/w_222_.inc b/testautomation/writer/optional/includes/clipboard/w_222_.inc index 7850fe13f7bb..1efb0e67fda4 100644..100755 --- a/testautomation/writer/optional/includes/clipboard/w_222_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_222_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer) '* diff --git a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc index 69e1b245a89c..c4d79cece29a 100644..100755 --- a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc +++ b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Pick context for context menus '* diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc index 8ffdb8afe37e..659bb2a4ddb7 100644..100755 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the drawing tools '* @@ -925,7 +925,7 @@ testcase tLine_6 soeFile = ConvertPath(gOfficePath + "user\work\standard_reserver.soe") soeDefaultFile = ConvertPath(gOfficePath + "user\config\standard.soe") - if hFileExists ( soeFile ) then app.kill ( soeFile ) + if FileExists ( soeFile ) then app.kill ( soeFile ) PrintLog "- check the attributes in format/line/arrow styles" @@ -1007,7 +1007,7 @@ testcase tLine_6 Kontext Kontext "TabLinienenden" - if hFileExists ( soeDefaultFile ) then app.kill ( soeDefaultFile ) + if FileExists ( soeDefaultFile ) then app.kill ( soeDefaultFile ) Speichern.Click Kontext diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc index f0f6e458b8b4..8b6b8e8329e8 100644..100755 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the drawing tools - group '* @@ -610,7 +610,7 @@ testcase tGroup_12 PrintLog "- Edit object group via Menu Format/Group/Edit Group" sDocument = ConvertPath ( gOfficePath +"user\work\tGroup_12.odt") - if hFileExists ( sDocument ) then app.kill ( sDocument ) + if FileExists ( sDocument ) then app.kill ( sDocument ) Call hNewDocument diff --git a/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc b/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc index ec93d15cdcb2..6c4b39d0263f 100644..100755 --- a/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc +++ b/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test Drop Down List Box '* diff --git a/testautomation/writer/optional/includes/fields/w_fields1.inc b/testautomation/writer/optional/includes/fields/w_fields1.inc index 0287fd2f1da1..2f727260b6c2 100755 --- a/testautomation/writer/optional/includes/fields/w_fields1.inc +++ b/testautomation/writer/optional/includes/fields/w_fields1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Fields general test '* diff --git a/testautomation/writer/optional/includes/fields/w_fields2.inc b/testautomation/writer/optional/includes/fields/w_fields2.inc index 0514ba5b020e..4f2c5c39388c 100755 --- a/testautomation/writer/optional/includes/fields/w_fields2.inc +++ b/testautomation/writer/optional/includes/fields/w_fields2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Fields general test '* @@ -401,7 +401,7 @@ testcase tDocumentFilename ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -879,7 +879,7 @@ testcase tDocumentStatistics ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -942,7 +942,7 @@ testcase tDocumentTemplate ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if diff --git a/testautomation/writer/optional/includes/fields/w_fields3.inc b/testautomation/writer/optional/includes/fields/w_fields3.inc index db40fbc54f22..7b4e7f50722b 100644..100755 --- a/testautomation/writer/optional/includes/fields/w_fields3.inc +++ b/testautomation/writer/optional/includes/fields/w_fields3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Fields - References Test '* diff --git a/testautomation/writer/optional/includes/fields/w_fields4.inc b/testautomation/writer/optional/includes/fields/w_fields4.inc index 20069da398c1..d1e16a1a36be 100755 --- a/testautomation/writer/optional/includes/fields/w_fields4.inc +++ b/testautomation/writer/optional/includes/fields/w_fields4.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Doc Information Test '* @@ -276,7 +276,7 @@ testcase tDocInformationUserDefined ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -360,7 +360,7 @@ testcase tDocInformationCreated ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -474,7 +474,7 @@ testcase tDocInformationModified ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -490,7 +490,7 @@ testcase tDocInformationModified printlog "Doc Information - Modified" '/// <b> Doc Information - Modified </b> - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) Call hNewDocument @@ -584,7 +584,7 @@ testcase tDocInformationModified endcatch end if - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) endcase @@ -611,7 +611,7 @@ testcase tDocInformationModifiedSavefile ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -624,7 +624,7 @@ testcase tDocInformationModifiedSavefile sFixResult(1) = "08/18/2000" sFixResult(2) = "11:40:11" - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) printlog "Doc Information - Modified (save file)" '/// <b> Doc Information - Modified (save file)</b> @@ -706,7 +706,7 @@ testcase tDocInformationModifiedSavefile endcatch end if - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) endcase @@ -730,7 +730,7 @@ testcase tDocInformationPrinted ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -859,13 +859,13 @@ testcase tDocInformationRevisionnumber ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformationRevisionnumber.sxw" ) - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) printlog "Doc Information - Revision number" '/// <b> Doc Information - Revision number</b> @@ -938,7 +938,7 @@ testcase tDocInformationRevisionnumber endcatch end if - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) endcase @@ -958,13 +958,13 @@ testcase tDocInformationTotaleditingtime ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformationRevisionnumber.sxw" ) - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) printlog "Doc Information - Tatal editing time" '/// <b> Doc Information - Tatal editing time </b> @@ -1026,7 +1026,7 @@ testcase tDocInformationTotaleditingtime endcatch end if - if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) + if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) endcase diff --git a/testautomation/writer/optional/includes/fields/w_fields5.inc b/testautomation/writer/optional/includes/fields/w_fields5.inc index 6c8b5e7ca12a..067366ddbe0e 100755 --- a/testautomation/writer/optional/includes/fields/w_fields5.inc +++ b/testautomation/writer/optional/includes/fields/w_fields5.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Fields - Variables '* @@ -685,7 +685,7 @@ testcase tVariablesDDEFieldManual printlog "DDE field - manual" '/// <b> DDE field - manual </b> - if hFileExists ( sDDEFile ) then app.kill ( sDDEFile ) + if FileExists ( sDDEFile ) then app.kill ( sDDEFile ) Call hNewDocument @@ -752,7 +752,7 @@ testcase tVariablesDDEFieldManual Call hCloseDocument - if hFileExists ( sDDEFile ) then app.kill ( sDDEFile ) + if FileExists( sDDEFile ) then app.kill ( sDDEFile ) endcase @@ -780,7 +780,7 @@ testcase tVariablesDDEFieldAutomatic printlog "DDE field - automatic" '/// <b> DDE field - automatic </b> - if hFileExists ( sDDEFile ) then app.kill ( sDDEFile ) + if FileExists ( sDDEFile ) then app.kill ( sDDEFile ) Call hNewDocument @@ -834,7 +834,7 @@ testcase tVariablesDDEFieldAutomatic Call hCloseDocument - if hFileExists ( sDDEFile ) then app.kill ( sDDEFile ) + if FileExists ( sDDEFile ) then app.kill ( sDDEFile ) endcase diff --git a/testautomation/writer/optional/includes/fields/w_fields6.inc b/testautomation/writer/optional/includes/fields/w_fields6.inc index dce94f12c305..e310b67740af 100644..100755 --- a/testautomation/writer/optional/includes/fields/w_fields6.inc +++ b/testautomation/writer/optional/includes/fields/w_fields6.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Fields - Functions '* diff --git a/testautomation/writer/optional/includes/fields/w_fields7.inc b/testautomation/writer/optional/includes/fields/w_fields7.inc index fdec55afb9ce..5893e324366b 100644..100755 --- a/testautomation/writer/optional/includes/fields/w_fields7.inc +++ b/testautomation/writer/optional/includes/fields/w_fields7.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Fields - L10N test '* @@ -220,7 +220,7 @@ testcase tL10NtestDate ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if @@ -343,7 +343,7 @@ testcase tL10NtestTime ' document has to be copied to local file system to avoid opening a read-only file ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' FileCopy (sOriginalFile, sTestFile) - if hFileExists ( sTestFile ) = false then + if FileExists ( sTestFile ) = false then Warnlog "Test document couldn't be copied to local file system. Test aborted!" goto endsub end if diff --git a/testautomation/writer/optional/includes/filter/w_filter.inc b/testautomation/writer/optional/includes/filter/w_filter.inc index 6cb6db7e9488..43a47baf0d2a 100644..100755 --- a/testautomation/writer/optional/includes/filter/w_filter.inc +++ b/testautomation/writer/optional/includes/filter/w_filter.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : helge.delfs@sun.com +'* Owner : helge.delfs@oracle.com '* '* short description : '* diff --git a/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc b/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc index 79d42b49dac3..6fff78a962fe 100644..100755 --- a/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc +++ b/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test Format/Fontwork '* diff --git a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc b/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc index 9a454b54b07b..eb2de884a8cc 100644..100755 --- a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc +++ b/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Standard character formatting. Setting Styles. '* diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc index a8867d1f171a..0bd255e472b3 100644..100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Page Formatting / Page Styles - 1 '* diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc index dc53ca05257b..290b1a395b94 100644..100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Page Formatting / Page Styles - 2 '* diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc index e713beda7af7..2d34c23d82fb 100644..100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Page Formatting / Page Styles - 3 '* diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc index b4dddd07910c..60b8182fd15d 100644..100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Page Formatting / Page Styles - 4 '* diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc index aef22db5a479..4fa007cfc4b0 100644..100755 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Paragraph Formatting - 1 '* diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc index 9da8c4706316..dccebdcf930e 100644..100755 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Paragraph Formatting - 2 '* diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc index ca8d8d564690..77af9b0a0301 100644..100755 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Paragraph Formatting - 3 '* diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc index e58a4a2a94da..bacd2dd1d8af 100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of Hangul/Hanja Conversion - 1 '* @@ -47,6 +47,9 @@ testcase tHHNoSelction_1 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -65,13 +68,14 @@ testcase tHHNoSelction_1 '/// Open a test file , which includes some Korean characters '/// + and some Chinese characters Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Set focus before the 3rd character Call wTypeKeys "<MOD1 Home>" Call wTypeKeys "<Down>" '/// Tools / HangulHanjaConversion - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" '/// Press Peplace button @@ -112,6 +116,9 @@ endcase '----------------------------------------------------------------- testcase tHHNoSelction_2 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -131,12 +138,13 @@ testcase tHHNoSelction_2 '/// + Germany , French , Korean and Chinese characters '/// + (Korean is before Chinese) Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Set focus to the beginning Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" '/// Press Peplace button @@ -166,6 +174,9 @@ endcase '----------------------------------------------------------------- testcase tHHNoSelction_3 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -185,12 +196,13 @@ testcase tHHNoSelction_3 '/// + Germany , French , Korean and Chinese characters '/// + (Chinese is before Korean) Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Set focus to the beginning Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" '/// Press Peplace button @@ -221,6 +233,9 @@ endcase '----------------------------------------------------------------- testcase tHHNoSelction_4 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String @@ -236,13 +251,14 @@ testcase tHHNoSelction_4 '/// + Germany , French characters . '/// + There are no Chinese and Korean Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Set focus to the beginning Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , '/// + nothing should happen - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" if HangulHanjaConversion.Exists then @@ -257,6 +273,9 @@ endcase '----------------------------------------------------------------- testcase tHHNoSelction_5 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -273,12 +292,13 @@ testcase tHHNoSelction_5 '/// Open a test file , which includes some Chinese and Korean Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Set focus to the end of the file Call wTypeKeys "<MOD1 End>" '/// Tools / HangulHanjaConversion , - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" Sleep 1 if Word.GetText <> sResult then @@ -293,6 +313,9 @@ endcase '----------------------------------------------------------------- testcase tHHNoSelction_6 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -311,6 +334,7 @@ testcase tHHNoSelction_6 '/// Open a test file , which includes some Chinese and Korean, '/// + the 3rd character in 1st line isn't convertible Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Set focus to the 3rd character (korean) Call wTypeKeys "<MOD1 Home>" @@ -319,7 +343,7 @@ testcase tHHNoSelction_6 '/// Tools / HangulHanjaConversion , Replace and Always Replace '/// + should be disabled , "suggestion" should be empty . '/// + Press Ignore button will jump to the next convertible Hangul/Hanja character - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" if Suggestions.GetItemCount <> 0 then Warnlog "Suggestion should be empty !" @@ -354,6 +378,9 @@ endcase '----------------------------------------------------------------- testcase tHHNoSelction_7 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -372,6 +399,7 @@ testcase tHHNoSelction_7 '/// Open a test file , which includes some Chinese and Korean, '/// + the 3rd character in 2nd line isn't convertible Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Set focus to the 3rd chinese character Call wTypeKeys "<MOD1 Home><Down><Home>" @@ -382,7 +410,7 @@ testcase tHHNoSelction_7 '/// Tools / HangulHanjaConversion , Replace and Always Replace '/// + should be disabled , "suggestion" should be empty . '/// + Press Ignore button will jump to the next convertible Hangul/Hanja character - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" if Suggestions.GetItemCount <> 0 then Warnlog "Suggestion should be empty !" @@ -417,6 +445,9 @@ endcase '----------------------------------------------------------------- testcase tHHSingleSelction_1 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -436,6 +467,7 @@ testcase tHHSingleSelction_1 '/// Open a test file , which includes some Chinese and Korean Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Select from 4th to 7th character Call wTypeKeys "<MOD1 Home>" @@ -444,7 +476,7 @@ testcase tHHSingleSelction_1 '/// Tools / HangulHanjaConversion , '/// + Press Peplace button - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" if ReplaceBtn.IsEnabled then ReplaceBtn.Click @@ -475,6 +507,9 @@ endcase '---------------------------------------------------------------- testcase tHHMultiSelction_1 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -493,13 +528,14 @@ testcase tHHMultiSelction_1 '/// Open a test file , which includes some Korean chacters Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Do a multi Selectiong to the charcters -- 입력 Call fFindWord(sMultiWord) '/// Tools / HangulHanjaConversion , '/// + Press Peplace button - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" ReplaceBtn.Click Sleep 1 @@ -522,6 +558,9 @@ endcase '---------------------------------------------------------------- testcase tHHTextBox_1 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String @@ -535,6 +574,7 @@ testcase tHHTextBox_1 '/// Open a test file , which includes a text box and '/// + some Korean chacters in the text box Call hFileOpen(sTestFile) + sMakeReadOnlyDocumentEditable() '/// Tools / HangulHanjaConversion , the below 4 checkboxes ralated '/// + ruby should be disabled . @@ -543,7 +583,7 @@ testcase tHHTextBox_1 '/// -> 'Hangul As Ruby Above Hanja' '/// -> 'Hangul As Ruby Below Hanja' try - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" if NOT HangulHanjaConversion.Exists then Warnlog "Hangul/Hanja Conversion dialogue isn't poped up !" @@ -590,6 +630,9 @@ endcase '---------------------------------------------------------------- testcase tHHDrawBox_1 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String @@ -603,7 +646,7 @@ testcase tHHDrawBox_1 '/// Open a test file , which includes a draw box and '/// + some Korean chacters in the text box Call hFileOpen(sTestFile) - + sMakeReadOnlyDocumentEditable() '/// Tools / HangulHanjaConversion , the below 4 checkboxes ralated '/// + ruby should be disabled . '/// -> 'Hanja As Ruby Above Hangul' @@ -611,7 +654,7 @@ testcase tHHDrawBox_1 '/// -> 'Hangul As Ruby Above Hanja' '/// -> 'Hangul As Ruby Below Hanja' try - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" if NOT HangulHanjaConversion.Exists then Warnlog "Hangul/Hanja Conversion dialogue isn't poped up !" diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc index 2d57bfc19d7e..26437f17f920 100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of Hangul/Hanja Conversion - 2 '* @@ -61,6 +61,9 @@ '\*********************************************************************** testcase tHHConversion_1 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -77,12 +80,12 @@ testcase tHHConversion_1 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , '/// + Press Peplace button - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" For i = 1 to 15 if NOT HangulHanjaConversion.Exists then @@ -108,6 +111,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_2 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -123,7 +129,7 @@ testcase tHHConversion_2 '/// Open a test file , which includes some '/// + Chinese character and Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , check hanja only . @@ -155,6 +161,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_3 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -171,7 +180,7 @@ testcase tHHConversion_3 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , check Hanja(Hangul) @@ -204,6 +213,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_4 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -220,7 +232,7 @@ testcase tHHConversion_4 '/// Open a test file , which includes some '/// + Chinese character and Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , check Hanja(Hangul). @@ -253,6 +265,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_5 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -269,7 +284,7 @@ testcase tHHConversion_5 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , check Hangul(Hanja) , @@ -302,6 +317,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_6 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -319,7 +337,7 @@ testcase tHHConversion_6 '/// Open a test file , which includes some '/// + Chinese character and Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , check Hangul(Hanja), @@ -352,6 +370,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_7 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -369,7 +390,7 @@ testcase tHHConversion_7 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Above Hangul' , @@ -409,6 +430,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_8 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -426,7 +450,7 @@ testcase tHHConversion_8 Call hNewDocument '/// Open a test file , which includes some Chinese chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Above Hangul' , @@ -466,6 +490,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_9 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -483,7 +510,7 @@ testcase tHHConversion_9 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Below Hangul' , @@ -523,6 +550,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_10 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -540,7 +570,7 @@ testcase tHHConversion_10 Call hNewDocument '/// Open a test file , which includes some Chinese chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Below Hangul' , @@ -580,6 +610,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_11 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -597,7 +630,7 @@ testcase tHHConversion_11 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Above Hanja' , @@ -637,6 +670,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_12 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -654,7 +690,7 @@ testcase tHHConversion_12 Call hNewDocument '/// Open a test file , which includes some Chinese chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Above Hanja' , @@ -694,6 +730,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_13 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -711,7 +750,7 @@ testcase tHHConversion_13 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Below Hanja' , @@ -751,6 +790,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_14 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sHangulText , sHanjaText as String @@ -768,7 +810,7 @@ testcase tHHConversion_14 Call hNewDocument '/// Open a test file , which includes some Chinese chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Below Hanja' , @@ -808,6 +850,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_15 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String @@ -820,7 +865,7 @@ testcase tHHConversion_15 '/// Open a test file , which includes some Korean chacters . '/// + Set focus before Korean character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , @@ -853,6 +898,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_16 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String @@ -865,7 +913,7 @@ testcase tHHConversion_16 '/// Open a test file , which includes some Chinese chacters . '/// + Set focus before Chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , @@ -898,6 +946,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_17 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult , sWord as String @@ -913,7 +964,7 @@ testcase tHHConversion_17 Call hNewDocument '/// Open a test file , which includes some Korean chacters . - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , press Ignore , @@ -943,6 +994,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_18 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -961,7 +1015,7 @@ testcase tHHConversion_18 '/// Open a test file , which includes some Chinese chacters =>. '/// + 山下 上山下乡 山下 - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , press Always Ignore , @@ -992,7 +1046,7 @@ testcase tHHConversion_18 '/// So far , there is still a StarOffice session exists . '/// Reopen the test file - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , @@ -1026,6 +1080,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_19 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sWord as String @@ -1040,7 +1097,7 @@ testcase tHHConversion_19 '/// Open a test file , which includes some Chinese chacters =>. '/// + 山下 上山下乡 山下 - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , press Always Ignore , @@ -1063,7 +1120,7 @@ testcase tHHConversion_19 Call hNewDocument '/// Reopen the test file - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , 山下 should be selcted @@ -1081,6 +1138,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_20 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sWord as String @@ -1099,7 +1159,7 @@ testcase tHHConversion_20 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , select a word in selection @@ -1140,6 +1200,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_21 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sWord1 as String @@ -1162,7 +1225,7 @@ testcase tHHConversion_21 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , select a word in selection, @@ -1204,7 +1267,7 @@ testcase tHHConversion_21 Call hNewDocument '/// Reopen this test file - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion @@ -1241,6 +1304,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_22 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim i as Integer @@ -1255,7 +1321,7 @@ testcase tHHConversion_22 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , select a word in selection, @@ -1284,7 +1350,7 @@ testcase tHHConversion_22 Call hStartTheOffice Call hNewDocument '/// Reopen this test file - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion @@ -1303,6 +1369,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_23 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sWord as String @@ -1320,7 +1389,7 @@ testcase tHHConversion_23 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , select a word in selection, @@ -1367,6 +1436,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_24 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -1382,7 +1454,7 @@ testcase tHHConversion_24 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , the default for 'Replace by character' @@ -1417,6 +1489,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_25 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sResult as String @@ -1434,7 +1509,7 @@ testcase tHHConversion_25 '/// Open a test file , which includes some Chinese chacters =>. '/// + 山下 上山下乡 山下 - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , Check 'Replace by character' , @@ -1477,6 +1552,9 @@ endcase '----------------------------------------------------------------- testcase tHHConversion_26 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sWord as String @@ -1495,7 +1573,7 @@ testcase tHHConversion_26 Call hNewDocument '/// Open a test file , which includes some Korean chacters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<Home>" '/// Tools / HangulHanjaConversion , Check 'Replace by character' , diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc index 947cb2e5e2c3..0808ccacb3bb 100644..100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of Hangul/Hanja Conversion - 3 '* @@ -47,6 +47,9 @@ '\*********************************************************************** testcase tHHOptions_1 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String @@ -59,12 +62,13 @@ testcase tHHOptions_1 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() + Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , '/// + there should be no entries in User defined dictionaries - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion : WaitSlot Kontext "HangulHanjaConversion" Options.Click @@ -84,6 +88,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_2 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName1 as String @@ -100,14 +107,14 @@ testcase tHHOptions_2 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , '/// + then press new button , enter 1 new dictionar name , '/// + close the new dictionary dialog , and add another new '/// + dictionary name - ToolsLanguageHangulHanjaConversion + ToolsLanguageHangulHanjaConversion: WaitSlot Kontext "HangulHanjaConversion" Options.Click @@ -165,6 +172,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_3 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -179,7 +189,7 @@ testcase tHHOptions_3 '/// Open a test file , which includes some '/// + Korean chacters and chinese characters - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -226,6 +236,10 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_4 +warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + + Dim sTestFile as String Dim sDictionaryName as String @@ -240,7 +254,7 @@ testcase tHHOptions_4 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -288,6 +302,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_5 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName1 as String @@ -304,7 +321,7 @@ testcase tHHOptions_5 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -355,6 +372,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_6 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -376,7 +396,7 @@ testcase tHHOptions_6 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -463,6 +483,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_7 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -484,7 +507,7 @@ testcase tHHOptions_7 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -570,6 +593,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_8 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -589,7 +615,7 @@ testcase tHHOptions_8 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -659,6 +685,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_9 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -676,7 +705,7 @@ testcase tHHOptions_9 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -742,6 +771,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_10 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -759,7 +791,7 @@ testcase tHHOptions_10 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -827,6 +859,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_11 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -844,7 +879,7 @@ testcase tHHOptions_11 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , @@ -907,6 +942,9 @@ endcase '----------------------------------------------------------------- testcase tHHOptions_12 + warnlog( "#i111911# - Test is broken beyond repait, please rewrite" ) + goto endsub + Dim sTestFile as String Dim sDictionaryName as String @@ -924,7 +962,7 @@ testcase tHHOptions_12 '/// Open a test file , which includes some '/// + Korean chacters and chinese character - Call hFileOpen(sTestFile) + Call hFileOpen(sTestFile) : sMakeReadOnlyDocumentEditable() Call wTypeKeys "<MOD1 Home>" '/// Tools / HangulHanjaConversion , Press Options button , diff --git a/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc b/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc index 01c1bc91a7c4..62132356360c 100755 --- a/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc +++ b/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : hyphenation functionality test '* diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc index 2041abb03124..4b0a23775f33 100644..100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the insert graphic function - 1 '* diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc index f1991ab84d45..c6c38ddfe934 100644..100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the insert graphic function - 2 '* diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc index 45223c7505a5..1a3624487ffb 100644..100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the insert graphic function - 3 '* diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc index 4903586002b1..561768ee8320 100644..100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the insert graphic function - 4 '* diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc index 3c0918fbe501..23ec4e96ff06 100644..100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the insert graphic function - 4 '* diff --git a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc index 62c997927ab6..7454f733665d 100644..100755 --- a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc +++ b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Checks the export to all available Filters from '* @@ -448,7 +448,7 @@ testcase tExportTop5FormatsIntoTop5 Call hCloseDocument Loop printlog " - check if file exists" - if hFileExists (sCurrentSaveFile) then + if FileExists (sCurrentSaveFile) then printlog " - success" printlog " - reload previously saved file" if hFileOpenWithFilter(sCurrentSaveFile, sCurrentSaveFilter) = true then diff --git a/testautomation/writer/optional/includes/navigator/w_navigator.inc b/testautomation/writer/optional/includes/navigator/w_navigator.inc index 9f7a8e3f2fe8..ec3b6cfd4627 100644..100755 --- a/testautomation/writer/optional/includes/navigator/w_navigator.inc +++ b/testautomation/writer/optional/includes/navigator/w_navigator.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Navigator test '* @@ -168,13 +168,11 @@ testcase tViewNavigator2 '/// Close all documents reopen a new and check if Navigator is docked /// printlog " - Close all documents reopen a new and check if Navigator is docked" - Call hCloseDocument - Sleep 2 - Call hCloseDocument - Sleep 2 + hFileCloseAll() + '/// New document /// Call hNewDocument - Call wDocSetContext + hSetDocumentContext() try DocumentWriter.FadeOut catch diff --git a/testautomation/writer/optional/includes/number/w_205_.inc b/testautomation/writer/optional/includes/number/w_205_.inc index b8b421719111..57a56ab80b8c 100644..100755 --- a/testautomation/writer/optional/includes/number/w_205_.inc +++ b/testautomation/writer/optional/includes/number/w_205_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testing Number and Bullets '* diff --git a/testautomation/writer/optional/includes/number/w_205a_.inc b/testautomation/writer/optional/includes/number/w_205a_.inc index daa72c5ca4ac..0e157368d433 100644..100755 --- a/testautomation/writer/optional/includes/number/w_205a_.inc +++ b/testautomation/writer/optional/includes/number/w_205a_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : '* diff --git a/testautomation/writer/optional/includes/number/w_206_.inc b/testautomation/writer/optional/includes/number/w_206_.inc index c007e674d329..70d47bd12bf4 100755 --- a/testautomation/writer/optional/includes/number/w_206_.inc +++ b/testautomation/writer/optional/includes/number/w_206_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testing Number and Bullets '* diff --git a/testautomation/writer/optional/includes/number/w_207_.inc b/testautomation/writer/optional/includes/number/w_207_.inc index 7c2c9511c969..634e7c5773a7 100644..100755 --- a/testautomation/writer/optional/includes/number/w_207_.inc +++ b/testautomation/writer/optional/includes/number/w_207_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testing Number and Bullets '* diff --git a/testautomation/writer/optional/includes/option/wh_o_1.inc b/testautomation/writer/optional/includes/option/wh_o_1.inc index 2fe845f97232..cbc35f599a4b 100644..100755 --- a/testautomation/writer/optional/includes/option/wh_o_1.inc +++ b/testautomation/writer/optional/includes/option/wh_o_1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : HTML-Options '* diff --git a/testautomation/writer/optional/includes/option/wh_o_2.inc b/testautomation/writer/optional/includes/option/wh_o_2.inc index acc92379f206..bdee49ed7460 100644..100755 --- a/testautomation/writer/optional/includes/option/wh_o_2.inc +++ b/testautomation/writer/optional/includes/option/wh_o_2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Functional-Tests for Tools - Options - Html - Print & Table '* diff --git a/testautomation/writer/optional/includes/option/wh_o_3.inc b/testautomation/writer/optional/includes/option/wh_o_3.inc index fa0cf41317bf..58b87a72ea08 100644..100755 --- a/testautomation/writer/optional/includes/option/wh_o_3.inc +++ b/testautomation/writer/optional/includes/option/wh_o_3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Funcitonal-Test for Tools -Options - HTML - Cursor. '* diff --git a/testautomation/writer/optional/includes/option/wr_o_1.inc b/testautomation/writer/optional/includes/option/wr_o_1.inc index c53f132d7d8a..26edd589af84 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_1.inc +++ b/testautomation/writer/optional/includes/option/wr_o_1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Functional-Tests for Tools-Options-Writer -View & Grid '* diff --git a/testautomation/writer/optional/includes/option/wr_o_2.inc b/testautomation/writer/optional/includes/option/wr_o_2.inc index cb94f661de26..cdc8dc00de4c 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_2.inc +++ b/testautomation/writer/optional/includes/option/wr_o_2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Functional-Tests for Tools-Options-Writer-DefaultFont, Print, Table '* diff --git a/testautomation/writer/optional/includes/option/wr_o_3.inc b/testautomation/writer/optional/includes/option/wr_o_3.inc index cd93474b6093..39fd97994e1a 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_3.inc +++ b/testautomation/writer/optional/includes/option/wr_o_3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer options tests '* diff --git a/testautomation/writer/optional/includes/option/wr_o_4.inc b/testautomation/writer/optional/includes/option/wr_o_4.inc index de44cdfea13a..83f09e5c7e89 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_4.inc +++ b/testautomation/writer/optional/includes/option/wr_o_4.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : '* @@ -293,9 +293,8 @@ testcase tToolsOptionsWriterOther Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ @@ -740,9 +739,8 @@ testcase tToolsOptionsWriterAutoCaption Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ @@ -852,15 +850,17 @@ testcase tToolsOptionsWriterGeneral Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ testcase tToolsOptionsWriterMailMerge + warnlog( "#i111914# - Test excluded, needs review" ) + goto endsub + Call hNewDocument printlog ("- Tools/Options/Writer: Mail Merge ") Kontext "Navigator" @@ -872,7 +872,7 @@ testcase tToolsOptionsWriterMailMerge printlog " - fill out Mail Settings" Kontext "TabMailMergeEmail" YourName.Settext "Fredrik Haegg" - EmailAddress.Settext "helge.delfs@sun.com" + EmailAddress.Settext "helge.delfs@oracle.com" SendReplies.Check ReplyAddress.Settext "fredrikh@openoffice.org" ServerName.Settext "MySMTP-Server" @@ -926,7 +926,7 @@ testcase tToolsOptionsWriterMailMerge Kontext "TabMailMergeEmail" if YourName.Gettext <> "Fredrik Haegg" then Warnlog "'Your Name' has been changed after a restart" - if EmailAddress.Gettext <> "helge.delfs@sun.com" then Warnlog "'Email Address' has been changed after a restart" + if EmailAddress.Gettext <> "helge.delfs@oracle.com" then Warnlog "'Email Address' has been changed after a restart" if Not SendReplies.IsChecked then Warnlog "'Send replies' has been changed after a restart" if ReplyAddress.Gettext <> "fredrikh@openoffice.org" then Warnlog "'Reply adresses' has been changed after a restart" if ServerName.Gettext <> "MySMTP-Server" then Warnlog "'Server name' has been changed after a restart" @@ -985,8 +985,7 @@ testcase tToolsOptionsWriterMailMerge Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Ok - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ diff --git a/testautomation/writer/optional/includes/option/wr_o_5.inc b/testautomation/writer/optional/includes/option/wr_o_5.inc index 8f475bb4325b..c8676fb164f2 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_5.inc +++ b/testautomation/writer/optional/includes/option/wr_o_5.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : This testcase is for thai issues only '* diff --git a/testautomation/writer/optional/includes/option/wr_o_a.inc b/testautomation/writer/optional/includes/option/wr_o_a.inc index b5390f46a92d..ac6084157867 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_a.inc +++ b/testautomation/writer/optional/includes/option/wr_o_a.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer options test '* diff --git a/testautomation/writer/optional/includes/redlining/w_redlining1.inc b/testautomation/writer/optional/includes/redlining/w_redlining1.inc index 782d921cc1a1..d6983e200a4c 100644..100755 --- a/testautomation/writer/optional/includes/redlining/w_redlining1.inc +++ b/testautomation/writer/optional/includes/redlining/w_redlining1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the Redlinig function - 1 '* diff --git a/testautomation/writer/optional/includes/redlining/w_redlining2.inc b/testautomation/writer/optional/includes/redlining/w_redlining2.inc index 6fa735ca75b6..4b442a8b3464 100644..100755 --- a/testautomation/writer/optional/includes/redlining/w_redlining2.inc +++ b/testautomation/writer/optional/includes/redlining/w_redlining2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the Redlinig function - 2 '* diff --git a/testautomation/writer/optional/includes/regexp/regular.inc b/testautomation/writer/optional/includes/regexp/regular.inc index b091f2e7bf65..3a323bce2a49 100644..100755 --- a/testautomation/writer/optional/includes/regexp/regular.inc +++ b/testautomation/writer/optional/includes/regexp/regular.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Search for regular expressions '* diff --git a/testautomation/writer/optional/includes/regexp/search.inc b/testautomation/writer/optional/includes/regexp/search.inc index c53ff6250461..8121859870ad 100755 --- a/testautomation/writer/optional/includes/regexp/search.inc +++ b/testautomation/writer/optional/includes/regexp/search.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Search & Replace '* @@ -64,6 +64,9 @@ end sub '--------------------------------------------------------- testcase tCheckDialog + warnlog( "#i111908# - Control <Replace> cannot be accessed" ) + goto endsub + Dim Checkboxtitel Call hNewDocument EditSearchAndReplace diff --git a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc b/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc index 34ea89160239..8412302d6c35 100644..100755 --- a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc +++ b/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Avoid regression (issuezilla tasks) '* diff --git a/testautomation/writer/optional/includes/section/w_section_1.inc b/testautomation/writer/optional/includes/section/w_section_1.inc index df3e9956670b..da7417779401 100644..100755 --- a/testautomation/writer/optional/includes/section/w_section_1.inc +++ b/testautomation/writer/optional/includes/section/w_section_1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Section test(Insert/Section Format/Section) '* diff --git a/testautomation/writer/optional/includes/section/w_section_2.inc b/testautomation/writer/optional/includes/section/w_section_2.inc index b9e6de90ea92..1d79405dfd82 100644..100755 --- a/testautomation/writer/optional/includes/section/w_section_2.inc +++ b/testautomation/writer/optional/includes/section/w_section_2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Hide section / Protect section / Display of dialogues '* diff --git a/testautomation/writer/optional/includes/section/w_section_3.inc b/testautomation/writer/optional/includes/section/w_section_3.inc index dda8ebda7212..6dc00cd5c0f3 100644..100755 --- a/testautomation/writer/optional/includes/section/w_section_3.inc +++ b/testautomation/writer/optional/includes/section/w_section_3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Hide section /Protect section / Display of dialogues '* diff --git a/testautomation/writer/optional/includes/section/w_section_4.inc b/testautomation/writer/optional/includes/section/w_section_4.inc index 3d8acb4a9cd5..2c811268f93b 100644..100755 --- a/testautomation/writer/optional/includes/section/w_section_4.inc +++ b/testautomation/writer/optional/includes/section/w_section_4.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Functional-Test for Section. '* @@ -1190,11 +1190,11 @@ testcase tScenarioSection_1 j = UBound(SectionName) - if hFileExists ( MasterDoc ) then app.kill ( MasterDoc ) + if FileExists ( MasterDoc ) then app.kill ( MasterDoc ) For i = 0 to j tempFile = Convertpath( gOfficePath + "user\work\" + SectionName(i) ) - if hFileExists ( tempFile ) then app.kill ( tempFile ) + if FileExists ( tempFile ) then app.kill ( tempFile ) next i '/// open testdocument (tScenarioSection_1.sxw) /// @@ -1310,11 +1310,11 @@ testcase tScenarioSection_2 j = UBound(SectionName) - if hFileExists ( MasterDoc ) then app.kill ( MasterDoc ) + if FileExists ( MasterDoc ) then app.kill ( MasterDoc ) For i = 0 to j tempFile = Convertpath( gOfficePath + "user\work\" + SectionName(i) ) - if hFileExists ( tempFile ) then app.kill ( tempFile ) + if FileExists ( tempFile ) then app.kill ( tempFile ) next i '/// open testdocument (tScenarioSection_2.sxw) /// diff --git a/testautomation/writer/optional/includes/section/w_section_tools.inc b/testautomation/writer/optional/includes/section/w_section_tools.inc index d7e1d28e6d5f..2d441cad8450 100644..100755 --- a/testautomation/writer/optional/includes/section/w_section_tools.inc +++ b/testautomation/writer/optional/includes/section/w_section_tools.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : tools/functions for the Section-testing '* diff --git a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc b/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc index ff3945b0e5a4..0bd84118edc5 100644..100755 --- a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc +++ b/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Shortcut-test in writer '* diff --git a/testautomation/writer/optional/includes/sorting/w_sorting1.inc b/testautomation/writer/optional/includes/sorting/w_sorting1.inc index e3a65f787ee6..d4cb27449cba 100644..100755 --- a/testautomation/writer/optional/includes/sorting/w_sorting1.inc +++ b/testautomation/writer/optional/includes/sorting/w_sorting1.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Sorting functions in Writer '* diff --git a/testautomation/writer/optional/includes/sorting/w_sorting2.inc b/testautomation/writer/optional/includes/sorting/w_sorting2.inc index d8838d1cf581..d5d3b49ea61f 100644..100755 --- a/testautomation/writer/optional/includes/sorting/w_sorting2.inc +++ b/testautomation/writer/optional/includes/sorting/w_sorting2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Sort functionality test '* diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc index 3dfd505d129c..b1576b494469 100755 --- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc +++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Spellcheck-Testing. Functional-Test. '* @@ -43,6 +43,7 @@ sub w_spellcheck Call tToolsThesaurus Call tToolsSpellcheckButtonChange Call tToolsSpellcheckButtonChangeAll + Call tToolsThesaurusSynonyms end sub @@ -52,7 +53,7 @@ testcase tToolsSpellcheckWithShortcut '/// Check if Spellcheck dialog comes up with shortcut 'F7' printlog " Open document where the formatting is set to the language we wish to test." TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if hFileExists ( TheFile ) <> TRUE then + if FileExists ( TheFile ) <> TRUE then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." exit sub end if @@ -120,7 +121,7 @@ testcase tToolsSpellcheckCorrect Dim FFText as String TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if hFileExists ( TheFile ) <> TRUE then + if FileExists ( TheFile ) <> TRUE then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." exit sub end if @@ -219,7 +220,7 @@ testcase tToolsSpellcheck1Mistake Dim TheFile as String TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if hFileExists ( TheFile ) <> TRUE then + if FileExists ( TheFile ) <> TRUE then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." exit sub end if @@ -726,7 +727,7 @@ testcase tToolsSpellcheckAutomatic Dim TheFile as String TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if hFileExists ( TheFile ) <> TRUE then + if FileExists ( TheFile ) <> TRUE then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." exit sub end if @@ -1236,7 +1237,7 @@ testcase tToolsThesaurus printlog " Open document where the formatting is set to the language we wish to test." TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if hFileExists ( TheFile ) <> TRUE then + if FileExists ( TheFile ) <> TRUE then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." exit sub end if @@ -1286,7 +1287,7 @@ testcase tToolsThesaurus printlog "Set language dependent word in textfield Current Word" CurrentWord.Settext sWordInitial - wait 500 + Sleep 2 if Alternatives.GetItemCount = 0 then Warnlog "No alternatives text" else @@ -1390,7 +1391,7 @@ testcase tToolsThesaurusSynonyms printlog " Open document where the formatting is set to the language we wish to test." TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if hFileExists ( TheFile ) <> TRUE then + if FileExists ( TheFile ) <> TRUE then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." exit sub end if diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc index 3ae44983fc4b..069b133700bd 100644..100755 --- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc +++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Spellcheck-Testing. Functional-Test. '* diff --git a/testautomation/writer/optional/includes/stylist/w_stylist.inc b/testautomation/writer/optional/includes/stylist/w_stylist.inc index b2e582045f27..65f156412f83 100755 --- a/testautomation/writer/optional/includes/stylist/w_stylist.inc +++ b/testautomation/writer/optional/includes/stylist/w_stylist.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test common stylist functions and assigning styles '* diff --git a/testautomation/writer/optional/includes/table/w_204_.inc b/testautomation/writer/optional/includes/table/w_204_.inc index 31a2b0d26199..a5a94662c350 100644..100755 --- a/testautomation/writer/optional/includes/table/w_204_.inc +++ b/testautomation/writer/optional/includes/table/w_204_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Table Test '* diff --git a/testautomation/writer/optional/includes/table/w_204a_.inc b/testautomation/writer/optional/includes/table/w_204a_.inc index 5d11c3d2b762..0132f14ebe5d 100644..100755 --- a/testautomation/writer/optional/includes/table/w_204a_.inc +++ b/testautomation/writer/optional/includes/table/w_204a_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the table functionality in Writer '* diff --git a/testautomation/writer/optional/includes/table/w_204b_.inc b/testautomation/writer/optional/includes/table/w_204b_.inc index 1b5b1282f9cc..56b6e8781b2b 100644..100755 --- a/testautomation/writer/optional/includes/table/w_204b_.inc +++ b/testautomation/writer/optional/includes/table/w_204b_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Table test '* diff --git a/testautomation/writer/optional/includes/textframes/w_textframes1.inc b/testautomation/writer/optional/includes/textframes/w_textframes1.inc index f6e977e15091..17eeff80ad95 100644..100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes1.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of textframe - 1 '* @@ -85,7 +85,7 @@ testcase tTextframes_1 '/// 2. Insert a frame over Toolbox / Insert / Frame Call hNewDocument - Call wDocSetContext + hSetDocumentContext() Call gMouseClick (30, 50) Call hToolbarSelect("INSERT", true ) diff --git a/testautomation/writer/optional/includes/textframes/w_textframes2.inc b/testautomation/writer/optional/includes/textframes/w_textframes2.inc index eca6e10c97eb..a316cd19b49c 100644..100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes2.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of textframe - 2 '* diff --git a/testautomation/writer/optional/includes/textframes/w_textframes3.inc b/testautomation/writer/optional/includes/textframes/w_textframes3.inc index 0abe031290a9..28e6f9b7f404 100644..100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes3.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of textframe - 3 '* diff --git a/testautomation/writer/optional/includes/textframes/w_textframes4.inc b/testautomation/writer/optional/includes/textframes/w_textframes4.inc index c326f30eb435..43af4c5bd532 100644..100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes4.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes4.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of textframe - 4 '* diff --git a/testautomation/writer/optional/includes/textframes/w_textframes5.inc b/testautomation/writer/optional/includes/textframes/w_textframes5.inc index d5a7e9537878..f9a9944b4333 100644..100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes5.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes5.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of textframe - 5 '* diff --git a/testautomation/writer/optional/includes/tools/tools1.inc b/testautomation/writer/optional/includes/tools/tools1.inc index 987548a064d1..f5d8362b2a84 100644..100755 --- a/testautomation/writer/optional/includes/tools/tools1.inc +++ b/testautomation/writer/optional/includes/tools/tools1.inc @@ -25,25 +25,10 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Tools for writer/Optional - 1 '* -'************************************************************************ -'* -' #0 fFileProperties -' #0 fFormatGraphic -' #0 fFormatFrame -' #0 fFormatPageWriter -' #0 fFormatParagraph -' #0 fFormatCharacter -' #0 fFormatTable -' #0 fFormatStylesCatalog -' #0 fPositionAndSize -' #0 fInsertFieldsOther -' #0 fInsertSection -' #0 fToolsAutocorrect -'* '\*********************************************************************** @@ -51,18 +36,25 @@ '***************************************************************** function fFileProperties(Options as string) - FileProperties - sleep(1) - Kontext - Select case Options - case "TabDokument" : active.SetPage TabDokument - case "TabBeschreibung" : active.SetPage TabBeschreibung - case "TabBenutzer" : active.SetPage TabBenutzer - case "TabInternet" : active.SetPage TabInternet - case "TabStatistik" : active.SetPage TabStatistik - end Select - - Kontext Options + if ( hUseAsyncSlot( "FileProperties" ) <> -1 ) then + + Kontext + if ( Active.exists( 2 ) ) then + Select case Options + case "TabDokument" : active.SetPage TabDokument + case "TabBeschreibung" : active.SetPage TabBeschreibung + case "TabBenutzer" : active.SetPage TabBenutzer + case "TabInternet" : active.SetPage TabInternet + case "TabStatistik" : active.SetPage TabStatistik + end Select + else + warnlog( "<FileProperties> dialog not open" ) + endif + else + warnlog( "Failed to execute <FileProperties>" ) + endif + + Kontext Options end function @@ -74,16 +66,11 @@ end function function fFormatGraphic(Options as string) as boolean Dim j as integer, sSlotOK as boolean - try - FormatGraphics - sSlotOK = true - catch - warnlog "Unable to execute Format / Graphics" - endcatch - sleep(1) - Kontext - if sSlotOK = true then - Select case Options + if ( hUseAsyncSlot( "FormatGraphics" ) <> -1 ) then + + Kontext + if ( Active.exists( 2 ) ) then + Select case Options case "TabType" : active.SetPage TabType case "TabZusaetze" : active.SetPage TabZusaetze case "TabUmlauf" : active.SetPage TabUmlauf @@ -104,16 +91,21 @@ function fFormatGraphic(Options as string) as boolean Active.Ok else exit do - end if + end if else exit do end if - Loop - end select - - Kontext Options - end if - fFormatGraphic = sSlotOK + Loop + end select + else + warnlog( "Failed to access <Format Graphics> Tabpage" ) + endif + else + warnlog( "Failed to execute <FormatGraphics>" ) + endif + + Kontext Options + end function @@ -123,22 +115,28 @@ end function '**************************************************************** function fFormatFrame(Options as string) - Sleep 1 - FormatFrame - Kontext + if ( hUseAsyncSlot( "FormatFrame" ) <> -1 ) then - Select case Options - case "TabType" : active.SetPage TabType - case "TabZusaetze" : active.SetPage TabZusaetze - case "TabUmlauf" : active.SetPage TabUmlauf - case "TabHyperlinkRahmen" : active.SetPage TabHyperlinkRahmen - case "TabUmrandung" : active.SetPage TabUmrandung - case "TabHintergrund" : active.SetPage TabHintergrund - case "TabSpalten" : active.SetPage TabSpalten - case "TabMakro" : active.SetPage TabMakro - end Select - - Kontext Options + Kontext + if ( Active.exists( 2 ) ) then + Select case Options + case "TabType" : active.SetPage TabType + case "TabZusaetze" : active.SetPage TabZusaetze + case "TabUmlauf" : active.SetPage TabUmlauf + case "TabHyperlinkRahmen" : active.SetPage TabHyperlinkRahmen + case "TabUmrandung" : active.SetPage TabUmrandung + case "TabHintergrund" : active.SetPage TabHintergrund + case "TabSpalten" : active.SetPage TabSpalten + case "TabMakro" : active.SetPage TabMakro + end Select + else + warnlog( "<Format Frame> dialog did not open" ) + endif + else + warnlog( "Failed to execute <FormatFrame>" ) + endif + + Kontext Options end function @@ -148,10 +146,10 @@ end function '************************************************************************* function fFormatPageWriter(Options as string) - FormatPageWriter - Kontext + FormatPageWriter + Kontext - Select case Options + Select case Options case "TabVerwalten" : active.SetPage TabVerwalten case "TabSeite" : active.SetPage TabSeite case "TabHintergrund" : active.SetPage TabHintergrund @@ -161,9 +159,9 @@ function fFormatPageWriter(Options as string) case "TabSpalten" : active.SetPage TabSpalten case "TabFussnote" : active.SetPage TabFussnote case "TabGrid" : active.SetPage TabGrid - end Select + end Select - Kontext Options + Kontext Options end function @@ -173,10 +171,10 @@ end function '************************************************************************* function fFormatParagraph(Options as string) - FormatParagraph - Kontext + FormatParagraph + Kontext - Select case Options + Select case Options case "TabEinzuegeUndAbstaende" : active.SetPage TabEinzuegeUndAbstaende case "TabAusrichtungAbsatz" : active.SetPage TabAusrichtungAbsatz case "TabTextfluss" : active.SetPage TabTextfluss @@ -186,9 +184,9 @@ function fFormatParagraph(Options as string) case "TabInitialen" : active.SetPage TabInitialen case "TabUmrandung" : active.SetPage TabUmrandung case "TabHintergrund" : active.SetPage TabHintergrund - end Select + end Select - Kontext Options + Kontext Options end function @@ -198,19 +196,19 @@ end function '************************************************************************* function fFormatCharacter(Options as string) - FormatCharacter - Kontext + FormatCharacter + Kontext - Select case Options + Select case Options case "TabFont" : active.SetPage TabFont case "TabFontEffects" : active.SetPage TabFontEffects case "TabFontPosition" : active.SetPage TabFontPosition case "TabAsianLayout" : active.SetPage TabAsianLayout case "TabHyperlinkZeichen" : active.SetPage TabHyperlinkZeichen case "TabHintergrund" : active.SetPage TabHintergrund - end Select + end Select - Kontext Options + Kontext Options end function @@ -221,18 +219,18 @@ end function '************************************************************************* function fFormatTable(Options as string) - FormatTable - Kontext + FormatTable + Kontext - Select case Options + Select case Options case "TabTabelle" : active.SetPage TabTabelle case "TabTextflussTabelle" : active.SetPage TabTextflussTabelle case "TabSpaltenTabelle" : active.SetPage TabSpaltenTabelle case "TabUmrandung" : active.SetPage TabUmrandung case "TabHintergrund" : active.SetPage TabHintergrund - end Select + end Select - Kontext Options + Kontext Options end function @@ -242,16 +240,18 @@ end function '************************************************************************* function fFormatStylesCatalog(Options as string) - FormatStylesCatalog - Kontext "VorlagenKatalog" + FormatStylesCatalog + Kontext "VorlagenKatalog" - Select case Options + Select case Options case "Paragraph" : Vorlagen.Select 1 case "Character" : Vorlagen.Select 2 case "Frame" : Vorlagen.Select 3 case "Page" : Vorlagen.Select 4 case "Numbering" : Vorlagen.Select 5 - end Select + end Select + + Kontext Options end function @@ -261,19 +261,19 @@ end function '******************************************************************************* function fInsertFieldsOther(Options as string) - InsertFieldsOther - Kontext + InsertFieldsOther + Kontext - Select case Options + Select case Options case "TabDokumentFeldbefehle" : active.SetPage TabDokumentFeldbefehle case "TabReferenzen" : active.SetPage TabReferenzen case "TabFunktionen" : active.SetPage TabFunktionen case "TabDokumentinfoFeldbefehle" : active.SetPage TabDokumentinfoFeldbefehle case "TabVariablen" : active.SetPage TabVariablen case "TabDatenbank" : active.SetPage TabDatenbank - end Select + end Select - Kontext Options + Kontext Options end function @@ -283,20 +283,23 @@ end function '****************************************************** function fInsertSection(Options as string) - InsertSection - wait 500 - Kontext + InsertSection - Select case Options - case "TabBereiche" : active.SetPage TabBereiche - case "TabSpalten" : active.SetPage TabSpalten - case "TabSectionIndent" : active.SetPage TabSectionIndent - case "TabHintergrund" : active.SetPage TabHintergrund - case "TabFussEndnoten" : active.SetPage TabFussEndnoten - end Select - - Kontext Options - Sleep 1 + Kontext + if ( Active.exists( 2 ) ) then + Select case Options + case "TabBereiche" : active.SetPage TabBereiche + case "TabSpalten" : active.SetPage TabSpalten + case "TabSectionIndent" : active.SetPage TabSectionIndent + case "TabHintergrund" : active.SetPage TabHintergrund + case "TabFussEndnoten" : active.SetPage TabFussEndnoten + end Select + waitslot() + else + warnlog( "Failed to open <Insert Section> dialog" ) + endif + + Kontext Options end function @@ -306,18 +309,18 @@ end function '************************************************************************* function fToolsAutocorrect(Options as string) - Kontext - ToolsAutoCorrect + Kontext + ToolsAutoCorrect - Select case Options + Select case Options case "TabErsetzung" : active.SetPage TabErsetzung case "TabAusnahmen" : active.SetPage TabAusnahmen case "TabOptionenAutokorrektur" : active.SetPage TabOptionenAutokorrektur case "TabLocalizedOptions" : active.SetPage TabLocalizedOptions case "TabWortergaenzung" : active.SetPage TabWortergaenzung - end Select + end Select - Kontext Options + Kontext Options end function @@ -327,16 +330,16 @@ end function '****************************************************** function fPositionAndSize(Options as string) - Kontext - FormatPositionAndSize + Kontext + FormatPositionAndSize - Select case Options + Select case Options case "TabPositionAndSizeWriter" : active.SetPage TabPositionAndSizeWriter case "TabDrehung" : active.SetPage TabDrehung case "TabSchraegstellen" : active.SetPage TabSchraegstellen - end Select + end Select - Kontext Options + Kontext Options end function diff --git a/testautomation/writer/optional/includes/tools/tools2.inc b/testautomation/writer/optional/includes/tools/tools2.inc index 8f61d4dc0d1a..899d30b62775 100644..100755 --- a/testautomation/writer/optional/includes/tools/tools2.inc +++ b/testautomation/writer/optional/includes/tools/tools2.inc @@ -25,161 +25,147 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Tools for writer/Optional - 2 '* -'************************************************************************ -'* -' #1 fStartupNavigator -' #1 fCloseNavigator -' #1 StrToDouble -' #1 fCalculateTolerance -' #1 fFindWord -' #1 fGetLanguageName -'* '\*********************************************************************** function fStartupNavigator(navigatorItem as String , subItemNum as Integer) -'/// Start up Navigator , and set focus to the correct position + '/// Start up Navigator , and set focus to the correct position Dim j as Integer - Kontext "Navigator" - if NOT Navigator.Exists then - ViewNavigator - end if - Sleep 2 - Kontext "NavigatorWriter" - if Auswahlliste.GetItemCount < 11 then - Inhaltsansicht.Click - Sleep 1 - end if - Auswahlliste.TypeKeys "<Home>" '<- Set focus to first entry - if Auswahlliste.GetItemCount > 11 then '<- If nodes are open - For j= 1 to 12 '<- close all nodes - Auswahlliste.Select j - Sleep 1 - Auswahlliste.TypeKeys "-" - Sleep 1 - next j - end if - Auswahlliste.TypeKeys "<Home>" ' point focus to first entry - sleep 3 - - Select case navigatorItem - case "Headings" : goto GoON - case "Tables" : Auswahlliste.TypeKeys "<down>" - case "TextFrame" : Auswahlliste.TypeKeys "<down>" , 2 - case "Graphics" : Auswahlliste.TypeKeys "<down>" , 3 - case "OLEObject" : Auswahlliste.TypeKeys "<down>" , 4 - case "Bookmarks" : Auswahlliste.TypeKeys "<down>" , 5 - case "Section" : Auswahlliste.TypeKeys "<down>" , 6 - case "Hyperlinks" : Auswahlliste.TypeKeys "<down>" , 7 - case "References" : Auswahlliste.TypeKeys "<down>" , 8 - case "Indexes" : Auswahlliste.TypeKeys "<down>" , 9 - case "Notes" : Auswahlliste.TypeKeys "<down>" , 10 - case "DrawObjects" : Auswahlliste.TypeKeys "<down>" , 11 - end Select - sleep 2 -GoON: - Auswahlliste.TypeKeys "<return>" - sleep 2 - Inhaltsansicht.Click - sleep 2 - Auswahlliste.TypeKeys "<Up>",subItemNum - sleep 2 + Kontext "Navigator" + if NOT Navigator.Exists then + ViewNavigator + end if + Sleep 2 + Kontext "NavigatorWriter" + if Auswahlliste.GetItemCount < 11 then + Inhaltsansicht.Click + Sleep 1 + end if + Auswahlliste.TypeKeys "<Home>" '<- Set focus to first entry + if Auswahlliste.GetItemCount > 11 then '<- If nodes are open + For j= 1 to 12 '<- close all nodes + Auswahlliste.Select j + Sleep 1 + Auswahlliste.TypeKeys "-" + Sleep 1 + next j + end if + Auswahlliste.TypeKeys "<Home>" ' point focus to first entry + sleep 3 + + Select case navigatorItem + case "Headings" : goto GoON + case "Tables" : Auswahlliste.TypeKeys "<down>" + case "TextFrame" : Auswahlliste.TypeKeys "<down>" , 2 + case "Graphics" : Auswahlliste.TypeKeys "<down>" , 3 + case "OLEObject" : Auswahlliste.TypeKeys "<down>" , 4 + case "Bookmarks" : Auswahlliste.TypeKeys "<down>" , 5 + case "Section" : Auswahlliste.TypeKeys "<down>" , 6 + case "Hyperlinks" : Auswahlliste.TypeKeys "<down>" , 7 + case "References" : Auswahlliste.TypeKeys "<down>" , 8 + case "Indexes" : Auswahlliste.TypeKeys "<down>" , 9 + case "Notes" : Auswahlliste.TypeKeys "<down>" , 10 + case "DrawObjects" : Auswahlliste.TypeKeys "<down>" , 11 + end Select + sleep 2 + GoON: + Auswahlliste.TypeKeys "<return>" + sleep 2 + Inhaltsansicht.Click + sleep 2 + Auswahlliste.TypeKeys "<Up>",subItemNum + sleep 2 end function '------------------------------------------------------------------------- function fCloseNavigator -'/// Close Navigator - Kontext "Navigator" - Sleep 3 - if Navigator.Exists(2) then - Navigator.Close - end if - Sleep 3 + Kontext "Navigator" + hCloseDialog( Navigator, "close" ) end function '------------------------------------------------------------------------- function StrToDouble ( sWert$ ) as Double -'/// Transfer String to Double , including -'/// 2.00cm --> 2.00 -'/// 2,00cm --> 2.00 -'/// 20% --> 20 + '/// Transfer String to Double , including + '/// 2.00cm --> 2.00 + '/// 2,00cm --> 2.00 + '/// 20% --> 20 - dim sDummy$ - dim i, i1, i2 as integer - dim a as integer - dim b as integer - dim c as double - dim n as integer + dim sDummy$ + dim i, i1, i2 as integer + dim a as integer + dim b as integer + dim c as double + dim n as integer -'/// Input : {'a[. ,]b[mm cm " pi pt]' with a, b as integer} as String -'///+ Output: a[. , ]b as double + '/// Input : {'a[. ,]b[mm cm " pi pt]' with a, b as integer} as String + '///+ Output: a[. , ]b as double -' get rid of measure unit, the only single character is '"' all others are two chars + ' get rid of measure unit, the only single character is '"' all others are two chars - if (isNumeric (sWert$) = FALSE) then - if ( (StrComp (right (sWert$, 1), chr$(34) ) = 0) OR (StrComp (right (sWert$, 1), "%") = 0 )) then + if (isNumeric (sWert$) = FALSE) then + if ( (StrComp (right (sWert$, 1), chr$(34) ) = 0) OR (StrComp (right (sWert$, 1), "%") = 0 )) then sDummy$ = Left ( sWert$, Len(sWert$)-1 ) - else + else sDummy$ = Left ( sWert$, Len(sWert$)-Len(gMeasurementUnit) ) - end if - else - sDummy$ = sWert$ - end if - ' get position of fraction mark - i1 = instr (sDummy$, ",") ' wrong output - i2 = instr (sDummy$, ".") - if i1 > i2 then i = i1 else i = i2 - ' vorkommateil - try - a = val (left (sDummy$,i-1)) - catch - a = val ( sDummy$ ) - c = 0 - GoTo OK - endcatch - - n = (len (sDummy$)-i) - b = val (right (sDummy$, n) ) - c = b * 10 ^ -n -OK: - StrToDouble = a + c + end if + else + sDummy$ = sWert$ + end if + ' get position of fraction mark + i1 = instr (sDummy$, ",") ' wrong output + i2 = instr (sDummy$, ".") + if i1 > i2 then i = i1 else i = i2 + ' vorkommateil + try + a = val (left (sDummy$,i-1)) + catch + a = val ( sDummy$ ) + c = 0 + GoTo OK + endcatch + + n = (len (sDummy$)-i) + b = val (right (sDummy$, n) ) + c = b * 10 ^ -n + OK: + StrToDouble = a + c end function '------------------------------------------------------------------------- - + function fCalculateTolerance (sNumber1 , sNumber2) as Single -'/// Change 2 parameters to number , then Compare them and return the result. - Dim ss as Single - Dim dNumber1 , dNumber2 as Single - Dim iCommaLocation1 , iCommaLocation2 as Integer - - 'the code below 4 lines is set "2,00cm" to "2.00"cm if needed - iCommaLocation1 = InStr(sNumber1 , ",") - if iCommaLocation1 > 0 then - sNumber1 = Left(sNumber1 , iCommaLocation1-1) + "." + Right(sNumber1,Len(sNumber1) - iCommaLocation1) - end if - - iCommaLocation2 = InStr(sNumber2 , ",") - if iCommaLocation2 > 0 then - sNumber2 = Left(sNumber2 , iCommaLocation2-1) + "." + Right(sNumber2,Len(sNumber2) - iCommaLocation2) - end if - - dNumber1 = Val( Left(sNumber1, Len(sNumber1)-Len(gMeasurementUnit) )) - dNumber2 = Val( Left(sNumber2, Len(sNumber2)-Len(gMeasurementUnit) )) - - fCalculateTolerance = Abs( dNumber1 - dNumber2 ) + '/// Change 2 parameters to number , then Compare them and return the result. + Dim ss as Single + Dim dNumber1 , dNumber2 as Single + Dim iCommaLocation1 , iCommaLocation2 as Integer + + 'the code below 4 lines is set "2,00cm" to "2.00"cm if needed + iCommaLocation1 = InStr(sNumber1 , ",") + if iCommaLocation1 > 0 then + sNumber1 = Left(sNumber1 , iCommaLocation1-1) + "." + Right(sNumber1,Len(sNumber1) - iCommaLocation1) + end if + + iCommaLocation2 = InStr(sNumber2 , ",") + if iCommaLocation2 > 0 then + sNumber2 = Left(sNumber2 , iCommaLocation2-1) + "." + Right(sNumber2,Len(sNumber2) - iCommaLocation2) + end if + + dNumber1 = Val( Left(sNumber1, Len(sNumber1)-Len(gMeasurementUnit) )) + dNumber2 = Val( Left(sNumber2, Len(sNumber2)-Len(gMeasurementUnit) )) + + fCalculateTolerance = Abs( dNumber1 - dNumber2 ) end function '------------------------------------------------------------------------- function fFindWord (sTest) as String -'/// Set the focus to the word which you want + '/// Set the focus to the word which you want Kontext EditSearchAndReplace Kontext "FindAndReplace" @@ -193,234 +179,234 @@ end function '------------------------------------------------------------------------- function fGetLanguageName( CountryID as Integer ) as String -'/// This routine will return the Language name based on CountryID + '/// This routine will return the Language name based on CountryID select case iSprache - case 01 : ' English (USA) - select case CountryID - case 1: fGetLanguageName = "English (USA)" - case 31: fGetLanguageName = "Dutch (Netherlands)" - case 33: fGetLanguageName = "French (France)" - case 34: fGetLanguageName = "Spanish (Spain)" - case 39: fGetLanguageName = "Italian (Italy)" - case 46: fGetLanguageName = "Swedish (Sweden)" - case 49: fGetLanguageName = "German (Germany)" - case 55: fGetLanguageName = "Portuguese (Brazil)" - case 81: fGetLanguageName = "Japanese" - case 82: fGetLanguageName = "Korean (RoK)" - case 86: fGetLanguageName = "Chinese (simplified)" - case 88: fGetLanguageName = "Chinese (traditional)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 31 : ' Dutch - select case CountryID - case 1: fGetLanguageName = "Engels (VS)" - case 31: fGetLanguageName = "Netherlands (NL)" - case 33: fGetLanguageName = "Frans (Frankrijk)" - case 34: fGetLanguageName = "Spaans (Spanje)" - case 39: fGetLanguageName = "Italiaans (Itali�)" - case 46: fGetLanguageName = "Zweeds (Zweden)" - case 49: fGetLanguageName = "Duits (Duitsland)" - case 55: fGetLanguageName = "Portugees (Brazili�)" - case 81: fGetLanguageName = "Japans" - case 82: fGetLanguageName = "Korean (RoK)" - case 86: fGetLanguageName = "Chinese (vereenvoudigd)" - case 88: fGetLanguageName = "Chinese (traditioneel)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 33 : ' France - select case CountryID - case 1: fGetLanguageName = "Anglais (U.S.A.)" - case 31: fGetLanguageName = "N�erlandais (Pays-Bas)" - case 33: fGetLanguageName = "Français (France)" - case 34: fGetLanguageName = "Espagnol (Espagne)" - case 39: fGetLanguageName = "Italien (Italie)" - case 46: fGetLanguageName = "Suédois (Suède)" - case 49: fGetLanguageName = "Allemand (Allemagne)" - case 55: fGetLanguageName = "Portugais (Brésil)" - case 81: fGetLanguageName = "Japonais" - case 82: fGetLanguageName = "Coréen" - case 86: fGetLanguageName = "Chinois (simple)" - case 88: fGetLanguageName = "Chinois (traditionnel)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 34 : ' Spanish - select case CountryID - case 1: fGetLanguageName = "Inglés (EE.UU.)" - case 31: fGetLanguageName = "Holand�s (Pa�ses Bajos)" - case 33: fGetLanguageName = "Francés (Francia)" - case 34: fGetLanguageName = "Español (España)" - case 39: fGetLanguageName = "Italiano (Italia)" - case 46: fGetLanguageName = "Sueco (Suecia)" - case 49: fGetLanguageName = "Alemán (Alemania)" - case 55: fGetLanguageName = "Portugués (Brasil)" - case 81: fGetLanguageName = "Japonés" - case 82: fGetLanguageName = "Coreano" - case 86: fGetLanguageName = "Chino (simple)" - case 88: fGetLanguageName = "Chino (tradicional)" - case else : + case 01 : ' English (USA) + select case CountryID + case 1: fGetLanguageName = "English (USA)" + case 31: fGetLanguageName = "Dutch (Netherlands)" + case 33: fGetLanguageName = "French (France)" + case 34: fGetLanguageName = "Spanish (Spain)" + case 39: fGetLanguageName = "Italian (Italy)" + case 46: fGetLanguageName = "Swedish (Sweden)" + case 49: fGetLanguageName = "German (Germany)" + case 55: fGetLanguageName = "Portuguese (Brazil)" + case 81: fGetLanguageName = "Japanese" + case 82: fGetLanguageName = "Korean (RoK)" + case 86: fGetLanguageName = "Chinese (simplified)" + case 88: fGetLanguageName = "Chinese (traditional)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case 31 : ' Dutch + select case CountryID + case 1: fGetLanguageName = "Engels (VS)" + case 31: fGetLanguageName = "Netherlands (NL)" + case 33: fGetLanguageName = "Frans (Frankrijk)" + case 34: fGetLanguageName = "Spaans (Spanje)" + case 39: fGetLanguageName = "Italiaans (Itali�)" + case 46: fGetLanguageName = "Zweeds (Zweden)" + case 49: fGetLanguageName = "Duits (Duitsland)" + case 55: fGetLanguageName = "Portugees (Brazili�)" + case 81: fGetLanguageName = "Japans" + case 82: fGetLanguageName = "Korean (RoK)" + case 86: fGetLanguageName = "Chinese (vereenvoudigd)" + case 88: fGetLanguageName = "Chinese (traditioneel)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case 33 : ' France + select case CountryID + case 1: fGetLanguageName = "Anglais (U.S.A.)" + case 31: fGetLanguageName = "N�erlandais (Pays-Bas)" + case 33: fGetLanguageName = "Français (France)" + case 34: fGetLanguageName = "Espagnol (Espagne)" + case 39: fGetLanguageName = "Italien (Italie)" + case 46: fGetLanguageName = "Suédois (Suède)" + case 49: fGetLanguageName = "Allemand (Allemagne)" + case 55: fGetLanguageName = "Portugais (Brésil)" + case 81: fGetLanguageName = "Japonais" + case 82: fGetLanguageName = "Coréen" + case 86: fGetLanguageName = "Chinois (simple)" + case 88: fGetLanguageName = "Chinois (traditionnel)" + case else : QAErrorLog "Now, the test does not support for the language " +iSprache fGetLanguageName = "" end select - case 39 : ' Italy - select case CountryID - case 1: fGetLanguageName = "Inglese (US)" - case 31: fGetLanguageName = "Olandese (Paesi Bassi)" - case 33: fGetLanguageName = "Francese (Francia)" - case 34: fGetLanguageName = "Spagnolo (Spagna)" - case 39: fGetLanguageName = "Italiano (Italia)" - case 46: fGetLanguageName = "Svedese (Svezia)" - case 49: fGetLanguageName = "Tedesco (Germania)" - case 55: fGetLanguageName = "Portoghese (Brasile)" - case 81: fGetLanguageName = "Giapponese" - case 82: fGetLanguageName = "Coreano" - case 86: fGetLanguageName = "Cinese (semplificato)" - case 88: fGetLanguageName = "Cinese (tradizionale)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 46 : ' Swedish - select case CountryID - case 1: fGetLanguageName = "engelska" - case 31: fGetLanguageName = "Holl�ndska (Nederl�nderna)" - case 33: fGetLanguageName = "franska (Frankrike)" - case 34: fGetLanguageName = "spanska (Spanien)" - case 39: fGetLanguageName = "italienska (Italien)" - case 46: fGetLanguageName = "svenska (Sverige)" - case 49: fGetLanguageName = "tyska (Tyskland)" - case 55: fGetLanguageName = "portugisiska (Brasilien)" - case 81: fGetLanguageName = "japanska" - case 82: fGetLanguageName = "koreanska" - case 86: fGetLanguageName = "kinesiska (enkel)" - case 88: fGetLanguageName = "kinesiska (trad.)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 49 : ' German - select case CountryID - case 1: fGetLanguageName = "Englisch (USA)" - case 31: fGetLanguageName = "Niederl�ndisch (Niederlande)" - case 33: fGetLanguageName = "Französisch (Frankreich)" - case 34: fGetLanguageName = "Spanisch (Spanien)" - case 39: fGetLanguageName = "Italienisch (Italien)" - case 46: fGetLanguageName = "Schwedisch (Schweden)" - case 49: fGetLanguageName = "Deutsch (Deutschland)" - case 55: fGetLanguageName = "Portugiesisch (Brasilien)" - case 81: fGetLanguageName = "Japanisch" - case 82: fGetLanguageName = "Koreanisch" - case 86: fGetLanguageName = "Chinesisch (einfach)" - case 88: fGetLanguageName = "Chinesisch (Trad.)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 55 : ' Portuguese - select case CountryID - case 1: fGetLanguageName = "Inglês (EUA)" - case 31: fGetLanguageName = "Holand�s (Holanda)" - case 33: fGetLanguageName = "Francês (França)" - case 34: fGetLanguageName = "Espanhol (Espanha)" - case 39: fGetLanguageName = "Italiano (Itália)" - case 46: fGetLanguageName = "Sueco (Suécia)" - case 49: fGetLanguageName = "Alemão (Alemanha)" - case 55: fGetLanguageName = "Português (Brasil)" - case 81: fGetLanguageName = "Japonês" - case 82: fGetLanguageName = "Coreano" - case 86: fGetLanguageName = "Chinês (simplificado)" - case 88: fGetLanguageName = "Chinês (Tradicional)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" + case 34 : ' Spanish + select case CountryID + case 1: fGetLanguageName = "Inglés (EE.UU.)" + case 31: fGetLanguageName = "Holand�s (Pa�ses Bajos)" + case 33: fGetLanguageName = "Francés (Francia)" + case 34: fGetLanguageName = "Español (España)" + case 39: fGetLanguageName = "Italiano (Italia)" + case 46: fGetLanguageName = "Sueco (Suecia)" + case 49: fGetLanguageName = "Alemán (Alemania)" + case 55: fGetLanguageName = "Portugués (Brasil)" + case 81: fGetLanguageName = "Japonés" + case 82: fGetLanguageName = "Coreano" + case 86: fGetLanguageName = "Chino (simple)" + case 88: fGetLanguageName = "Chino (tradicional)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" end select - case 81 : ' Japanese - select case CountryID - case 1: fGetLanguageName = "英語(米国)" - case 33: fGetLanguageName = "フランス語(フランス)" - case 34: fGetLanguageName = "スペイン語(スペイン)" - case 39: fGetLanguageName = "イタリア語(イタリア)" - case 46: fGetLanguageName = "スウェーデン語(スウェーデン)" - case 49: fGetLanguageName = "ドイツ語(ドイツ)" - case 55: fGetLanguageName = "�?ルトガル語(ブラジル)" - case 81: fGetLanguageName = "日本語" - case 82: fGetLanguageName = "韓国語" - case 86: fGetLanguageName = "中国語(簡体字)" - case 88: fGetLanguageName = "中国語(�?体字)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" + case 39 : ' Italy + select case CountryID + case 1: fGetLanguageName = "Inglese (US)" + case 31: fGetLanguageName = "Olandese (Paesi Bassi)" + case 33: fGetLanguageName = "Francese (Francia)" + case 34: fGetLanguageName = "Spagnolo (Spagna)" + case 39: fGetLanguageName = "Italiano (Italia)" + case 46: fGetLanguageName = "Svedese (Svezia)" + case 49: fGetLanguageName = "Tedesco (Germania)" + case 55: fGetLanguageName = "Portoghese (Brasile)" + case 81: fGetLanguageName = "Giapponese" + case 82: fGetLanguageName = "Coreano" + case 86: fGetLanguageName = "Cinese (semplificato)" + case 88: fGetLanguageName = "Cinese (tradizionale)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" end select - case 82 : ' Korean - select case CountryID - case 1: fGetLanguageName = "�?어(미국)" - case 33: fGetLanguageName = "스페�?�어(스페�?�)" - case 34: fGetLanguageName = "프랑스어(프랑스)" - case 39: fGetLanguageName = "�?�탈리아어 (�?�태리)" - case 46: fGetLanguageName = "스웨�?�어(스웨�?�)" - case 49: fGetLanguageName = "�?��?�어(�?��?�)" - case 55: fGetLanguageName = "�?�르투갈어(브�?�질)" - case 81: fGetLanguageName = "�?�본어" - case 82: fGetLanguageName = "한국어" - case 86: fGetLanguageName = "중국어(간체)" - case 88: fGetLanguageName = "중국어(번체)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 86 : ' Chinese (simplified) - select case CountryID - case 1: fGetLanguageName = "英语(美国)" - case 33: fGetLanguageName = "法语(法国)" - case 34: fGetLanguageName = "西�?�牙语(西�?�牙)" - case 39: fGetLanguageName = "�?大利语(�?大利)" - case 46: fGetLanguageName = "瑞典语(瑞典)" - case 49: fGetLanguageName = "德语(德国)" - case 55: fGetLanguageName = "葡�?�牙语(巴西)" - case 81: fGetLanguageName = "日语" - case 82: fGetLanguageName = "�?鲜语" - case 86: fGetLanguageName = "中文(简体字)" - case 88: fGetLanguageName = "中文(�?体字)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case 88 : ' Chinese (traditional) - select case CountryID - case 1: fGetLanguageName = "英語(美國)" - case 33: fGetLanguageName = "法語(法國)" - case 34: fGetLanguageName = "西�?�牙語(西�?�牙)" - case 39: fGetLanguageName = "�?大利語(�?大利)" - case 46: fGetLanguageName = "瑞典語(瑞典)" - case 49: fGetLanguageName = "德語(德國)" - case 55: fGetLanguageName = "葡�?�牙語(巴西)" - case 81: fGetLanguageName = "日語" - case 82: fGetLanguageName = "韓語" - case 86: fGetLanguageName = "中文(簡體字)" - case 88: fGetLanguageName = "中文(�?體)" - case else : - QAErrorLog "Now, the test does not support for the language " +iSprache - fGetLanguageName = "" - end select - - case else : ' Fallback + case 46 : ' Swedish + select case CountryID + case 1: fGetLanguageName = "engelska" + case 31: fGetLanguageName = "Holl�ndska (Nederl�nderna)" + case 33: fGetLanguageName = "franska (Frankrike)" + case 34: fGetLanguageName = "spanska (Spanien)" + case 39: fGetLanguageName = "italienska (Italien)" + case 46: fGetLanguageName = "svenska (Sverige)" + case 49: fGetLanguageName = "tyska (Tyskland)" + case 55: fGetLanguageName = "portugisiska (Brasilien)" + case 81: fGetLanguageName = "japanska" + case 82: fGetLanguageName = "koreanska" + case 86: fGetLanguageName = "kinesiska (enkel)" + case 88: fGetLanguageName = "kinesiska (trad.)" + case else : QAErrorLog "Now, the test does not support for the language " +iSprache fGetLanguageName = "" - end select + end select + + case 49 : ' German + select case CountryID + case 1: fGetLanguageName = "Englisch (USA)" + case 31: fGetLanguageName = "Niederl�ndisch (Niederlande)" + case 33: fGetLanguageName = "Französisch (Frankreich)" + case 34: fGetLanguageName = "Spanisch (Spanien)" + case 39: fGetLanguageName = "Italienisch (Italien)" + case 46: fGetLanguageName = "Schwedisch (Schweden)" + case 49: fGetLanguageName = "Deutsch (Deutschland)" + case 55: fGetLanguageName = "Portugiesisch (Brasilien)" + case 81: fGetLanguageName = "Japanisch" + case 82: fGetLanguageName = "Koreanisch" + case 86: fGetLanguageName = "Chinesisch (einfach)" + case 88: fGetLanguageName = "Chinesisch (Trad.)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case 55 : ' Portuguese + select case CountryID + case 1: fGetLanguageName = "Inglês (EUA)" + case 31: fGetLanguageName = "Holand�s (Holanda)" + case 33: fGetLanguageName = "Francês (França)" + case 34: fGetLanguageName = "Espanhol (Espanha)" + case 39: fGetLanguageName = "Italiano (Itália)" + case 46: fGetLanguageName = "Sueco (Suécia)" + case 49: fGetLanguageName = "Alemão (Alemanha)" + case 55: fGetLanguageName = "Português (Brasil)" + case 81: fGetLanguageName = "Japonês" + case 82: fGetLanguageName = "Coreano" + case 86: fGetLanguageName = "Chinês (simplificado)" + case 88: fGetLanguageName = "Chinês (Tradicional)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case 81 : ' Japanese + select case CountryID + case 1: fGetLanguageName = "英語(米国)" + case 33: fGetLanguageName = "フランス語(フランス)" + case 34: fGetLanguageName = "スペイン語(スペイン)" + case 39: fGetLanguageName = "イタリア語(イタリア)" + case 46: fGetLanguageName = "スウェーデン語(スウェーデン)" + case 49: fGetLanguageName = "ドイツ語(ドイツ)" + case 55: fGetLanguageName = "�?ルトガル語(ブラジル)" + case 81: fGetLanguageName = "日本語" + case 82: fGetLanguageName = "韓国語" + case 86: fGetLanguageName = "中国語(簡体字)" + case 88: fGetLanguageName = "中国語(�?体字)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case 82 : ' Korean + select case CountryID + case 1: fGetLanguageName = "�?어(미국)" + case 33: fGetLanguageName = "스페�?�어(스페�?�)" + case 34: fGetLanguageName = "프랑스어(프랑스)" + case 39: fGetLanguageName = "�?�탈리아어 (�?�태리)" + case 46: fGetLanguageName = "스웨�?�어(스웨�?�)" + case 49: fGetLanguageName = "�?��?�어(�?��?�)" + case 55: fGetLanguageName = "�?�르투갈어(브�?�질)" + case 81: fGetLanguageName = "�?�본어" + case 82: fGetLanguageName = "한국어" + case 86: fGetLanguageName = "중국어(간체)" + case 88: fGetLanguageName = "중국어(번체)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case 86 : ' Chinese (simplified) + select case CountryID + case 1: fGetLanguageName = "英语(美国)" + case 33: fGetLanguageName = "法语(法国)" + case 34: fGetLanguageName = "西�?�牙语(西�?�牙)" + case 39: fGetLanguageName = "�?大利语(�?大利)" + case 46: fGetLanguageName = "瑞典语(瑞典)" + case 49: fGetLanguageName = "德语(德国)" + case 55: fGetLanguageName = "葡�?�牙语(巴西)" + case 81: fGetLanguageName = "日语" + case 82: fGetLanguageName = "�?鲜语" + case 86: fGetLanguageName = "中文(简体字)" + case 88: fGetLanguageName = "中文(�?体字)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case 88 : ' Chinese (traditional) + select case CountryID + case 1: fGetLanguageName = "英語(美國)" + case 33: fGetLanguageName = "法語(法國)" + case 34: fGetLanguageName = "西�?�牙語(西�?�牙)" + case 39: fGetLanguageName = "�?大利語(�?大利)" + case 46: fGetLanguageName = "瑞典語(瑞典)" + case 49: fGetLanguageName = "德語(德國)" + case 55: fGetLanguageName = "葡�?�牙語(巴西)" + case 81: fGetLanguageName = "日語" + case 82: fGetLanguageName = "韓語" + case 86: fGetLanguageName = "中文(簡體字)" + case 88: fGetLanguageName = "中文(�?體)" + case else : + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select + + case else : ' Fallback + QAErrorLog "Now, the test does not support for the language " +iSprache + fGetLanguageName = "" + end select end function diff --git a/testautomation/writer/optional/includes/undo/w_undo1.inc b/testautomation/writer/optional/includes/undo/w_undo1.inc index c4c602dc6373..4134d1a8fa9f 100644..100755 --- a/testautomation/writer/optional/includes/undo/w_undo1.inc +++ b/testautomation/writer/optional/includes/undo/w_undo1.inc @@ -24,15 +24,10 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Undo/Redo - Test '* -'************************************************************************ -'* -' #1 tEditUndoRedo -' #1 tEditUndoTOX ' undo with table of contents -'* '\*********************************************************************** testcase tEditUndoRedo @@ -142,216 +137,216 @@ endcase testcase tEditUndoTOX QaErrorLog "tEditUndoTOX outcommented due to makeover." goto endsub - - Dim CompareThis as string, Compare1 as string, Compare2 as string, Compare3 as string - Dim CompareWith1 as string, CompareWith2 as string, MenuEntryEnabled as boolean - ' Strings depends on the language so this testcase has to be adapted for all languages - Select Case iSprache - Case 1: Compare1 = "Undo: " - Compare2 = "Insert index/table" - Compare3 = "Remove index/table" - Case 49:Compare1 = "R�ckg�ngig" - Compare2 = "Einf�gen Verzeichnis" - Compare3 = "Verzeichnis aufheben" - Case else: - QAErrorlog "Please adapt this testcase for this language!" - Compare1 = "Undo: " - Compare2 = "Insert index/table" - Compare3 = "Remove index/table" - end select - CompareWith1 = Compare1 & Compare2 - CompareWith2 = Compare1 & Compare3 - - '/// Open a new writerdocument - Call hNewDocument - '/// Insert an index in document - printlog "Insert Index" - InsertIndexes + Dim CompareThis as string, Compare1 as string, Compare2 as string, Compare3 as string + Dim CompareWith1 as string, CompareWith2 as string, MenuEntryEnabled as boolean + ' Strings depends on the language so this testcase has to be adapted for all languages + Select Case iSprache + Case 1: Compare1 = "Undo: " + Compare2 = "Insert index/table" + Compare3 = "Remove index/table" + Case 49:Compare1 = "R�ckg�ngig" + Compare2 = "Einf�gen Verzeichnis" + Compare3 = "Verzeichnis aufheben" + Case else: + QAErrorlog "Please adapt this testcase for this language!" + Compare1 = "Undo: " + Compare2 = "Insert index/table" + Compare3 = "Remove index/table" + end select + CompareWith1 = Compare1 & Compare2 + CompareWith2 = Compare1 & Compare3 + + '/// Open a new writerdocument + Call hNewDocument + + '/// Insert an index in document + printlog "Insert Index" + InsertIndexes - Kontext + Kontext Active.Setpage TabVerzeichnisseVerzeichnis Kontext "TabVerzeichnisseVerzeichnis" - Verzeichnistitel.Settext "MyUndoRedoIndex" - TabVerzeichnisseVerzeichnis.Ok - - '/// Check if Edit/Undo menu shows 'Undo: Insert Index' - Call hUseMenu() - try - MenuSelect(Menugetitemid(2)) ' Opens the Edit - Menu - MenuEntryEnabled = True - catch - MenuEntryEnabled = False - endcatch - if MenuEntryEnabled = True then - CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) - Call MenuSelect(0) - if CompareWith1 > "" then - if CompareThis <> CompareWith1 then - Warnlog "Edit / Undo entry is wrong: " & CompareThis - else - printlog " - Menu Edit / Undo is ok" - end if - else - QAErrorLog "Use this string in this testcase: " & CompareThis - Call hCloseDocument - goto endsub - end if - else - Warnlog "Edit / Undo in menu is disabled !" - end if - - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<Up><Home>" - Wait 500 - '/// Check if Undo dropdown-Icon shows: 'Insert index' - Select Case CheckUndoEntry ( 1, Compare2 ) - Case 0: Warnlog " - Undo-dropdown is disabled!" - Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" - Case 2: printlog " - Entry in Undo-dropdown is ok!" - end select - - '/// Update index with context menu entry: Update index" - Kontext "DocumentWriter" - DocumentWriter.OpenContextMenu - ' Update Index/table in context menu - printlog "Update Index" - Call MenuSelect(Menugetitemid(7)) + Verzeichnistitel.Settext "MyUndoRedoIndex" + TabVerzeichnisseVerzeichnis.Ok + + '/// Check if Edit/Undo menu shows 'Undo: Insert Index' + Call hUseMenu() + try + MenuSelect(Menugetitemid(2)) ' Opens the Edit - Menu + MenuEntryEnabled = True + catch + MenuEntryEnabled = False + endcatch + if MenuEntryEnabled = True then + CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) + Call MenuSelect(0) + if CompareWith1 > "" then + if CompareThis <> CompareWith1 then + Warnlog "Edit / Undo entry is wrong: " & CompareThis + else + printlog " - Menu Edit / Undo is ok" + end if + else + QAErrorLog "Use this string in this testcase: " & CompareThis + Call hCloseDocument + goto endsub + end if + else + Warnlog "Edit / Undo in menu is disabled !" + end if + + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<Up><Home>" + Wait 500 + '/// Check if Undo dropdown-Icon shows: 'Insert index' + Select Case CheckUndoEntry ( 1, Compare2 ) + Case 0: Warnlog " - Undo-dropdown is disabled!" + Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" + Case 2: printlog " - Entry in Undo-dropdown is ok!" + end select + + '/// Update index with context menu entry: Update index" + Kontext "DocumentWriter" + DocumentWriter.OpenContextMenu + ' Update Index/table in context menu + printlog "Update Index" + Call MenuSelect(Menugetitemid(7)) + + '/// Check if Edit/Undo menu shows 'Undo: Insert Index' after index update + Call hUseMenu() + try + MenuSelect(Menugetitemid(2)) ' Opens the Edit - Menu + MenuEntryEnabled = True + catch + MenuEntryEnabled = False + endcatch + if MenuEntryEnabled = True then + CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) + Call MenuSelect(0) + if CompareWith1 > "" then + if CompareThis <> CompareWith1 then + Warnlog "Edit / Undo entry is wrong: " & CompareThis + else + printlog " - Menu Edit / Undo is ok" + end if + else + QAErrorLog "Use this string in this testcase: " & CompareThis + Call hCloseDocument + goto endsub + end if + else + Warnlog "Edit / Undo in menu is disabled !" + end if - '/// Check if Edit/Undo menu shows 'Undo: Insert Index' after index update - Call hUseMenu() - try - MenuSelect(Menugetitemid(2)) ' Opens the Edit - Menu - MenuEntryEnabled = True - catch - MenuEntryEnabled = False - endcatch - if MenuEntryEnabled = True then - CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) - Call MenuSelect(0) - if CompareWith1 > "" then - if CompareThis <> CompareWith1 then - Warnlog "Edit / Undo entry is wrong: " & CompareThis - else - printlog " - Menu Edit / Undo is ok" - end if - else - QAErrorLog "Use this string in this testcase: " & CompareThis - Call hCloseDocument - goto endsub - end if - else - Warnlog "Edit / Undo in menu is disabled !" - end if - - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<Up><Home>" - Wait 500 - '/// Check if Undo dropdown-Icon shows: 'Insert index' after index update - Select Case CheckUndoEntry ( 1, Compare2 ) - Case 0: Warnlog " - Undo-dropdown is disabled!" - Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" - Case 2: printlog " - Entry in Undo-dropdown is ok!" - end select - - '/// Delete index with context menu entry: Delete index" - Kontext "DocumentWriter" - DocumentWriter.OpenContextMenu - ' Delete Index/table in context menu - printlog "Remove Index" - Call MenuSelect(Menugetitemid(9)) + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<Up><Home>" + Wait 500 + '/// Check if Undo dropdown-Icon shows: 'Insert index' after index update + Select Case CheckUndoEntry ( 1, Compare2 ) + Case 0: Warnlog " - Undo-dropdown is disabled!" + Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" + Case 2: printlog " - Entry in Undo-dropdown is ok!" + end select - '/// Check if Edit/Undo menu shows 'Undo: Remove index' after deleting index - Call hUseMenu() - try - MenuSelect(Menugetitemid(2)) ' Opens the Edit - Menu - MenuEntryEnabled = True - catch - MenuEntryEnabled = False - endcatch - if MenuEntryEnabled = True then - CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) - Call MenuSelect(0) - if CompareWith2 > "" then - if CompareThis <> CompareWith2 then - Warnlog "Edit / Undo entry is wrong: " & CompareThis - else - printlog " - Menu Edit / Undo is ok" - end if - else - QAErrorLog "Use this string in this testcase: " & CompareThis - Call hCloseDocument - goto endsub - end if - else - Warnlog "Edit / Undo in menu is disabled !" - end if - - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<Up><Home>" - Wait 500 - '/// Check if Undo dropdown-Icon shows: 'Remove index' after deleting index - Select Case CheckUndoEntry ( 1, Compare3 ) - Case 0: Warnlog " - Undo-dropdown is disabled!" - Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" - Case 2: printlog " - Entry in Undo-dropdown is ok!" - end select - - printlog "Working undo" - '/// Edit / Undo 1 time -> Index should be restored - EditUndo - Sleep 1 - Call wNavigatorAuswahl ( 10, 1 ) - wait 500 - InsertIndexes + '/// Delete index with context menu entry: Delete index" + Kontext "DocumentWriter" + DocumentWriter.OpenContextMenu + ' Delete Index/table in context menu + printlog "Remove Index" + Call MenuSelect(Menugetitemid(9)) - wait 500 - Kontext + '/// Check if Edit/Undo menu shows 'Undo: Remove index' after deleting index + Call hUseMenu() try - Active.Setpage TabVerzeichnisseVerzeichnis - catch - Warnlog "Index dialog has not been opened!" - Call hCloseDocument - goto endsub - endcatch + MenuSelect(Menugetitemid(2)) ' Opens the Edit - Menu + MenuEntryEnabled = True + catch + MenuEntryEnabled = False + endcatch + if MenuEntryEnabled = True then + CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) + Call MenuSelect(0) + if CompareWith2 > "" then + if CompareThis <> CompareWith2 then + Warnlog "Edit / Undo entry is wrong: " & CompareThis + else + printlog " - Menu Edit / Undo is ok" + end if + else + QAErrorLog "Use this string in this testcase: " & CompareThis + Call hCloseDocument + goto endsub + end if + else + Warnlog "Edit / Undo in menu is disabled !" + end if - Kontext "TabVerzeichnisseVerzeichnis" - if Verzeichnistitel.Gettext = "MyUndoRedoIndex" then - printlog " - Index has been restored" - TabVerzeichnisseVerzeichnis.Cancel - '/// Check if Undo dropdown-Icon shows: 'Insert index' - Select Case CheckUndoEntry ( 1, Compare2 ) - Case 0: Warnlog " - Undo-dropdown is disabled!" - Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" - Case 2: printlog " - Entry in Undo-dropdown is ok!" - end select + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<Up><Home>" + Wait 500 + '/// Check if Undo dropdown-Icon shows: 'Remove index' after deleting index + Select Case CheckUndoEntry ( 1, Compare3 ) + Case 0: Warnlog " - Undo-dropdown is disabled!" + Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" + Case 2: printlog " - Entry in Undo-dropdown is ok!" + end select - '/// Check if Redo dropdown-Icon shows: 'Remove index' after deleting index - Select Case CheckRedoEntry ( 1, Compare3 ) - Case 0: Warnlog " - Redo-dropdown is disabled!" - Case 1: Warnlog " - Entry in Redo-dropdown is wrong!" - Case 2: printlog " - Entry in Redo-dropdown is ok!" - end select + printlog "Working undo" + '/// Edit / Undo 1 time -> Index should be restored + EditUndo + Sleep 1 + Call wNavigatorAuswahl ( 10, 1 ) + wait 500 + InsertIndexes - '/// Edit / Undo one more time - '/// Check if Undo dropdown-Icon is disabled - Select Case CheckUndoEntry ( 1, Compare2 ) - Case 0: printlog " - Undo-dropdown is disabled!" - Case 1: Warnlog " - Entry in Undo-dropdown is enabled!" - Case 2: Warnlog " - Entry in Undo-dropdown is enabled!" - end select + wait 500 + Kontext + try + Active.Setpage TabVerzeichnisseVerzeichnis + catch + Warnlog "Index dialog has not been opened!" + Call hCloseDocument + goto endsub + endcatch + + Kontext "TabVerzeichnisseVerzeichnis" + if Verzeichnistitel.Gettext = "MyUndoRedoIndex" then + printlog " - Index has been restored" + TabVerzeichnisseVerzeichnis.Cancel + '/// Check if Undo dropdown-Icon shows: 'Insert index' + Select Case CheckUndoEntry ( 1, Compare2 ) + Case 0: Warnlog " - Undo-dropdown is disabled!" + Case 1: Warnlog " - Entry in Undo-dropdown is wrong!" + Case 2: printlog " - Entry in Undo-dropdown is ok!" + end select + + '/// Check if Redo dropdown-Icon shows: 'Remove index' after deleting index + Select Case CheckRedoEntry ( 1, Compare3 ) + Case 0: Warnlog " - Redo-dropdown is disabled!" + Case 1: Warnlog " - Entry in Redo-dropdown is wrong!" + Case 2: printlog " - Entry in Redo-dropdown is ok!" + end select - '/// Check if Redo dropdown-Icon shows: 'Insert index' after Undo 2 times - Select Case CheckRedoEntry ( 1, Compare2 ) - Case 0: Warnlog " - Redo-dropdown is disabled!" - Case 1: Warnlog " - Entry in Redo-dropdown is wrong!" - Case 2: printlog " - Entry in Redo-dropdown is ok!" - end select + '/// Edit / Undo one more time + '/// Check if Undo dropdown-Icon is disabled + Select Case CheckUndoEntry ( 1, Compare2 ) + Case 0: printlog " - Undo-dropdown is disabled!" + Case 1: Warnlog " - Entry in Undo-dropdown is enabled!" + Case 2: Warnlog " - Entry in Undo-dropdown is enabled!" + end select - else - Warnlog "Index has not been removed!" - TabVerzeichnisseVerzeichnis.Cancel - end if + '/// Check if Redo dropdown-Icon shows: 'Insert index' after Undo 2 times + Select Case CheckRedoEntry ( 1, Compare2 ) + Case 0: Warnlog " - Redo-dropdown is disabled!" + Case 1: Warnlog " - Entry in Redo-dropdown is wrong!" + Case 2: printlog " - Entry in Redo-dropdown is ok!" + end select - Call hCloseDocument + else + Warnlog "Index has not been removed!" + TabVerzeichnisseVerzeichnis.Cancel + end if + + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc index 43356c09017c..2446435320f9 100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Undo-History - Test ( Typing, Overwrite, Replace, Delete, Sort, Convert To table) '* @@ -33,172 +33,172 @@ sub w_undo_history_1 - ' a < 20 characters long string - Call tUndoOverwrite ' Typing & Overwrite - Call tUndoFindAndReplace ' Replace - Call tUndoReplaceAll ' Replace all & Delete - Call tUndoSort ' Sort - Call tUndoTableConvert ' Text convert to table + ' a < 20 characters long string + Call tUndoOverwrite ' Typing & Overwrite + Call tUndoFindAndReplace ' Replace + Call tUndoReplaceAll ' Replace all & Delete + Call tUndoSort ' Sort + Call tUndoTableConvert ' Text convert to table end sub testcase tUndoOverwrite - '/// new document - Call hNewDocument - '/// <U><B>CHECK: Typing</B></U> - printlog "- TYPING" - '/// write a < 20 characters long string: If20CharactersThere - Call wTypeKeys "If20CharactersThere" - '/// string in Undo list has to be: Typing: If20CharactersThere - Call CheckUndoStringInUndoList ( 1, "'If20Char...rsThere'" ) - - '/// <U><B>CHECK: Overwrite</B></U> - printlog "- OVERWRITE" - '/// press 'Home' key - Call wTypeKeys "<Home>" - '/// press 'Ins' key - Call wTypeKeys "<Insert>" - '/// write a < 20 characters long string: IsThatDifferent4You - Call wTypeKeys "IsThatDifferent4You" - '/// string in Undo list has to be: Overwrite: IsThatDifferent4You - Call CheckUndoStringInUndoList ( 2, "'IsThatDifferent4You'" ) - - '/// CloseDocument - Call hCloseDocument + '/// new document + Call hNewDocument + '/// <U><B>CHECK: Typing</B></U> + printlog "- TYPING" + '/// write a < 20 characters long string: If20CharactersThere + Call wTypeKeys "If20CharactersThere" + '/// string in Undo list has to be: Typing: If20CharactersThere + Call CheckUndoStringInUndoList ( 1, "'If20Char...rsThere'" ) + + '/// <U><B>CHECK: Overwrite</B></U> + printlog "- OVERWRITE" + '/// press 'Home' key + Call wTypeKeys "<Home>" + '/// press 'Ins' key + Call wTypeKeys "<Insert>" + '/// write a < 20 characters long string: IsThatDifferent4You + Call wTypeKeys "IsThatDifferent4You" + '/// string in Undo list has to be: Overwrite: IsThatDifferent4You + Call CheckUndoStringInUndoList ( 2, "'IsThatDifferent4You'" ) + + '/// CloseDocument + Call hCloseDocument endcase testcase tUndoFindAndReplace - '/// new Document - '/// <U><B>CHECK: Replace</B></U> - printlog "- REPLACE" - Call hNewDocument - '/// write a < 20 characters long string: If20CharactersThere - Call wTypeKeys "If20CharactersThere" - '/// Select text - Call wTypeKeys "<Shift Home>" - '/// Edit / Find and Replace - EditSearchAndReplace - Kontext "FindAndReplace" - '/// Type 'ThisReplacementText' in 'Replace with' field - ReplaceWith.Settext "ThisReplacementText" - '/// Choose Button 'Replace' and close dialog - ReplaceBtn.Click - wait 500 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - try - Active.Yes - catch - Active.Ok - endcatch - end if - end if - Kontext "FindAndReplace" - FindAndReplace.Close - Kontext "DocumentWriter" - '/// string in Undo list has to be: Replace: 'IsThatDifferent4You' -> 'ThisReplacementText' - Call CheckUndoStringInUndoList ( 3, "'If20CharactersThere' -> 'ThisReplacementText'" ) - - '/// Close document - Call hCloseDocument + '/// new Document + '/// <U><B>CHECK: Replace</B></U> + printlog "- REPLACE" + Call hNewDocument + '/// write a < 20 characters long string: If20CharactersThere + Call wTypeKeys "If20CharactersThere" + '/// Select text + Call wTypeKeys "<Shift Home>" + '/// Edit / Find and Replace + EditSearchAndReplace + Kontext "FindAndReplace" + '/// Type 'ThisReplacementText' in 'Replace with' field + ReplaceWith.Settext "ThisReplacementText" + '/// Choose Button 'Replace' and close dialog + ReplaceBtn.Click + wait 500 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Yes + catch + Active.Ok + endcatch + end if + end if + Kontext "FindAndReplace" + FindAndReplace.Close + Kontext "DocumentWriter" + '/// string in Undo list has to be: Replace: 'IsThatDifferent4You' -> 'ThisReplacementText' + Call CheckUndoStringInUndoList ( 3, "'If20CharactersThere' -> 'ThisReplacementText'" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoReplaceAll - Dim CheckString as string - - '/// new document - '/// <U><B>CHECK: Replace all</B></U> - printlog "- REPLACE ALL" - Call hNewDocument - '/// Insert the dummy text and point cursor at the top of the document - Call wBlindtextEinfuegen - Call wTypeKeys "<Mod1 Home>" - '/// Edit / Find and Replace - EditSearchAndReplace - Kontext "FindAndReplace" - '/// Type 'and' in 'Search for' field - SearchFor.Settext "and" - '/// Type 'ThisReplacementText' in 'Replace with' field - ReplaceWith.Settext "###" - '/// Choose Button 'Replace' and close dialog - ReplaceAll.Click - wait 500 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then Active.Ok - end if - Kontext "FindAndReplace" - FindAndReplace.Close - - Kontext "DocumentWriter" - '/// string in Undo list has to be: Replace: '14 occurences of and' - Call CheckUndoStringInUndoList ( 5, "14 occurences of 'and'" ) - - '/// <U><B>CHECK: Delete</B></U> - '/// Backspace 4 times to delete characters - Call wTypeKeys "<Backspace>", 4 - '/// string in Undo list has to be: Delete: '###' - printlog "- DELETE" - Call CheckUndoStringInUndoList ( 11, "' ###'" ) - - '/// Close document - Call hCloseDocument + Dim CheckString as string + + '/// new document + '/// <U><B>CHECK: Replace all</B></U> + printlog "- REPLACE ALL" + Call hNewDocument + '/// Insert the dummy text and point cursor at the top of the document + Call wBlindtextEinfuegen + Call wTypeKeys "<Mod1 Home>" + '/// Edit / Find and Replace + EditSearchAndReplace + Kontext "FindAndReplace" + '/// Type 'and' in 'Search for' field + SearchFor.Settext "and" + '/// Type 'ThisReplacementText' in 'Replace with' field + ReplaceWith.Settext "###" + '/// Choose Button 'Replace' and close dialog + ReplaceAll.Click + wait 500 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then Active.Ok + end if + Kontext "FindAndReplace" + FindAndReplace.Close + + Kontext "DocumentWriter" + '/// string in Undo list has to be: Replace: '14 occurences of and' + Call CheckUndoStringInUndoList ( 5, "14 occurences of 'and'" ) + + '/// <U><B>CHECK: Delete</B></U> + '/// Backspace 4 times to delete characters + Call wTypeKeys "<Backspace>", 4 + '/// string in Undo list has to be: Delete: '###' + printlog "- DELETE" + Call CheckUndoStringInUndoList ( 11, "' ###'" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoSort - '/// new document - Call hNewDocument - '/// CHECK: Text sort - printlog "- TEXT SORT" - '/// Enter some text like "This<Return>is a<Return>test<Return>" - Call wTypeKeys "This" - Call wTypeKeys "<Return>" - Call wTypeKeys "is a" - Call wTypeKeys "<Return>" - Call wTypeKeys "test" - Call wTypeKeys "<Return>" - '/// Select all and Tools -> Sort - Call wTypeKeys "<Mod1 A>" - ToolsSort + '/// new document + Call hNewDocument + '/// CHECK: Text sort + printlog "- TEXT SORT" + '/// Enter some text like "This<Return>is a<Return>test<Return>" + Call wTypeKeys "This" + Call wTypeKeys "<Return>" + Call wTypeKeys "is a" + Call wTypeKeys "<Return>" + Call wTypeKeys "test" + Call wTypeKeys "<Return>" + '/// Select all and Tools -> Sort + Call wTypeKeys "<Mod1 A>" + ToolsSort Kontext "Sortieren" Sortieren.Ok - - '/// string in Undo list has to be: "Sort text" - Call CheckUndoStringInUndoList ( 6, "Sort text" ) - - '/// Close document - Call hCloseDocument + + '/// string in Undo list has to be: "Sort text" + Call CheckUndoStringInUndoList ( 6, "Sort text" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoTableConvert - '/// new document - Call hNewDocument - '/// CHECK: Text convert to table - printlog "TEXT CONVERT TO TABLE" - '/// Enter some text like "This<Return>is a<Return>test<Return>" - Call wTypeKeys "This" - Call wTypeKeys "<Return>" - Call wTypeKeys "is a" - Call wTypeKeys "<Return>" - Call wTypeKeys "test" - Call wTypeKeys "<Return>" - '/// Select all and Tools - Text <> Table - Call wTypeKeys "<Mod1 A>" - ToolsTextInTable - Kontext "TextInTabelleUmwandeln" - Absatz.Check - TextInTabelleUmwandeln.Ok - '/// string in Undo list has to be: "Convert text -> table" - Call CheckUndoStringInUndoList ( 7, "Convert text -> table" ) - - '/// Close document - Call hCloseDocument + '/// new document + Call hNewDocument + '/// CHECK: Text convert to table + printlog "TEXT CONVERT TO TABLE" + '/// Enter some text like "This<Return>is a<Return>test<Return>" + Call wTypeKeys "This" + Call wTypeKeys "<Return>" + Call wTypeKeys "is a" + Call wTypeKeys "<Return>" + Call wTypeKeys "test" + Call wTypeKeys "<Return>" + '/// Select all and Tools - Text <> Table + Call wTypeKeys "<Mod1 A>" + ToolsTextInTable + Kontext "TextInTabelleUmwandeln" + Absatz.Check + TextInTabelleUmwandeln.Ok + '/// string in Undo list has to be: "Convert text -> table" + Call CheckUndoStringInUndoList ( 7, "Convert text -> table" ) + + '/// Close document + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc index a2f305a45f8c..00ab93506eee 100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Undo-History - Test '* @@ -33,496 +33,496 @@ sub w_undo_history_2 - ' a > 20 characters long string - Call tUndoOverwriteLong ' Typing & Overwrite - Call tUndoFindAndReplaceLong ' Replace - Call tUndoDeleteMultiSelection ' Delete a multi-selection - Call tUndoParagraph ' Paragraphs - Call tUndoClipboard ' Copy/Paste - Call tUndoChanges ' Changes accept an reject - Call tUndoLineBreak ' Manual breaks - line break - Call tUndoColumnBreak ' Manual breaks - column break - Call tUndoPageBreak ' Manual breaks - page break - Call tUndoFields ' Fields (Insert/Modify / Delete) - Call tUndoSpecialCharacter ' Special Character (Insert/ Delete) - Call tUndoStyles ' Styles (Apply/Modify/Find&Replace/Promote/Demote) + ' a > 20 characters long string + Call tUndoOverwriteLong ' Typing & Overwrite + Call tUndoFindAndReplaceLong ' Replace + Call tUndoDeleteMultiSelection ' Delete a multi-selection + Call tUndoParagraph ' Paragraphs + Call tUndoClipboard ' Copy/Paste + Call tUndoChanges ' Changes accept an reject + Call tUndoLineBreak ' Manual breaks - line break + Call tUndoColumnBreak ' Manual breaks - column break + Call tUndoPageBreak ' Manual breaks - page break + Call tUndoFields ' Fields (Insert/Modify / Delete) + Call tUndoSpecialCharacter ' Special Character (Insert/ Delete) + Call tUndoStyles ' Styles (Apply/Modify/Find&Replace/Promote/Demote) end sub testcase tUndoOverwriteLong - '/// <B>Typing & overwrite a > 20 characters long string</B> - '/// new document - Call hNewDocument - '/// <U><B>CHECK: Typing</B></U> - printlog "- TYPING" - '/// write a > 20 characters long string: ThisSentenceHasMoreThan20Characters - Call wTypeKeys ( "ThisSentenceHasMoreThan20Characters" ) - '/// string in Undo list has to be: Typing: ThisSente...aracters - Call CheckUndoStringInUndoList ( 1, "'ThisSent...racters'" ) - - '/// <U><B>CHECK: Overwrite</B></U> - printlog "- OVERWRITE" - '/// press 'Home' key - Call wTypeKeys "<Home>" - '/// press 'Ins' key - Call wTypeKeys "<Insert>" - '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten - Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) - '/// string in Undo list has to be: Overwrite: ThePrevio...rwritten - Call CheckUndoStringInUndoList ( 2, "'ThePrevio...rwritten'" ) - - '/// CloseDocument - Call hCloseDocument + '/// <B>Typing & overwrite a > 20 characters long string</B> + '/// new document + Call hNewDocument + '/// <U><B>CHECK: Typing</B></U> + printlog "- TYPING" + '/// write a > 20 characters long string: ThisSentenceHasMoreThan20Characters + Call wTypeKeys ( "ThisSentenceHasMoreThan20Characters" ) + '/// string in Undo list has to be: Typing: ThisSente...aracters + Call CheckUndoStringInUndoList ( 1, "'ThisSent...racters'" ) + + '/// <U><B>CHECK: Overwrite</B></U> + printlog "- OVERWRITE" + '/// press 'Home' key + Call wTypeKeys "<Home>" + '/// press 'Ins' key + Call wTypeKeys "<Insert>" + '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten + Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) + '/// string in Undo list has to be: Overwrite: ThePrevio...rwritten + Call CheckUndoStringInUndoList ( 2, "'ThePrevio...rwritten'" ) + + '/// CloseDocument + Call hCloseDocument endcase testcase tUndoFindAndReplaceLong - '/// <B>Replace a > 20 characters long string</B> - '/// new Document - '/// <U><B>CHECK: Replace</B></U> - printlog "- REPLACE" - Call hNewDocument - '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten - Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) - '/// Select text - Call wTypeKeys ( "<Shift Home>" ) - '/// Edit / Find and Replace - EditSearchAndReplace - Kontext "FindAndReplace" - '/// Type 'ThisIsAboutALongTextThatHadToBeReplaced' in 'Replace with' field - ReplaceWith.Settext "ThisIsAboutALongTextThatHadToBeReplaced" - '/// Choose Button 'Replace' and close dialog - ReplaceBtn.Click - wait 500 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - try - Active.Yes - catch - Active.Ok - endcatch - end if - end if - Kontext "FindAndReplace" - FindAndReplace.Close - Kontext "DocumentWriter" - '/// string in Undo list has to be: Replace: 'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced' - Call CheckUndoStringInUndoList ( 3, "'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'" ) - - '/// Close document - Call hCloseDocument + '/// <B>Replace a > 20 characters long string</B> + '/// new Document + '/// <U><B>CHECK: Replace</B></U> + printlog "- REPLACE" + Call hNewDocument + '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten + Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) + '/// Select text + Call wTypeKeys ( "<Shift Home>" ) + '/// Edit / Find and Replace + EditSearchAndReplace + Kontext "FindAndReplace" + '/// Type 'ThisIsAboutALongTextThatHadToBeReplaced' in 'Replace with' field + ReplaceWith.Settext "ThisIsAboutALongTextThatHadToBeReplaced" + '/// Choose Button 'Replace' and close dialog + ReplaceBtn.Click + wait 500 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Yes + catch + Active.Ok + endcatch + end if + end if + Kontext "FindAndReplace" + FindAndReplace.Close + Kontext "DocumentWriter" + '/// string in Undo list has to be: Replace: 'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced' + Call CheckUndoStringInUndoList ( 3, "'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoDeleteMultiSelection - '/// <B>Delete a multi-selection</B> - printlog "- Delete a multi-selection" - '/// new Document - Call hNewDocument - '/// write down: the deletion of a multi-selection - Call wTypeKeys ( "the deletion of a multi-selection" ) - '/// with Shift + F8 enter multi-selection mode - Call wTypeKeys ( "<SHIFT F8>" ) - '/// multi-select "the ", " a" and "multi-" - Call wTypeKeys ( "<MOD1 Left>" ) - Call wTypeKeys ( "<MOD1 SHIFT Left>", 2) - Call wTypeKeys ( "<Left>" ) - Call wTypeKeys ( "<SHIFT Left>", 2) - Call wTypeKeys ( "<Left>" ) - Call wTypeKeys ( "<MOD1 Left>", 2) - Call wTypeKeys ( "<Left>" ) - Call wTypeKeys ( "<MOD1 SHIFT Left>") - '/// Delete the multi-selection - Call wTypeKeys ( "<DELETE>" ) - '/// string in Undo-list has to be: 'Delete: multi-selection'" - Call CheckUndoStringInUndoList ( 4, "Delete multiple selection" ) - '/// Close document - Call hCloseDocument + '/// <B>Delete a multi-selection</B> + printlog "- Delete a multi-selection" + '/// new Document + Call hNewDocument + '/// write down: the deletion of a multi-selection + Call wTypeKeys ( "the deletion of a multi-selection" ) + '/// with Shift + F8 enter multi-selection mode + Call wTypeKeys ( "<SHIFT F8>" ) + '/// multi-select "the ", " a" and "multi-" + Call wTypeKeys ( "<MOD1 Left>" ) + Call wTypeKeys ( "<MOD1 SHIFT Left>", 2) + Call wTypeKeys ( "<Left>" ) + Call wTypeKeys ( "<SHIFT Left>", 2) + Call wTypeKeys ( "<Left>" ) + Call wTypeKeys ( "<MOD1 Left>", 2) + Call wTypeKeys ( "<Left>" ) + Call wTypeKeys ( "<MOD1 SHIFT Left>") + '/// Delete the multi-selection + Call wTypeKeys ( "<DELETE>" ) + '/// string in Undo-list has to be: 'Delete: multi-selection'" + Call CheckUndoStringInUndoList ( 4, "Delete multiple selection" ) + '/// Close document + Call hCloseDocument endcase testcase tUndoParagraph - '/// <B>Insert and delete a paragraph</B> - printlog "- Insert Paragraph" - '/// new document - Call hNewDocument - '/// press return to insert a new paragraph - Call wTypeKeys ( "<Return>" ) - '/// string in Undo-list has to be: "New paragraph" - Call CheckUndoStringInUndoList ( 8, "New Paragraph" ) - printlog "- Delete Paragraph" - '/// press Backspace to delete paragraph - Call wTypeKeys ( "<Backspace>" ) - '/// string in Undo-list has to be: "Delete paragraph" - Call CheckUndoStringInUndoList ( 8, "Delete Paragraph" ) - - '/// close document - Call hCloseDocument + '/// <B>Insert and delete a paragraph</B> + printlog "- Insert Paragraph" + '/// new document + Call hNewDocument + '/// press return to insert a new paragraph + Call wTypeKeys ( "<Return>" ) + '/// string in Undo-list has to be: "New paragraph" + Call CheckUndoStringInUndoList ( 8, "New Paragraph" ) + printlog "- Delete Paragraph" + '/// press Backspace to delete paragraph + Call wTypeKeys ( "<Backspace>" ) + '/// string in Undo-list has to be: "Delete paragraph" + Call CheckUndoStringInUndoList ( 8, "Delete Paragraph" ) + + '/// close document + Call hCloseDocument endcase testcase tUndoClipboard - Dim i as integer - - '/// <B>Copy / Paste</B> - printlog "- Copy/Paste" - '/// new document - Call hNewDocument - '/// Insert some text in document and copy it - Call wTypeKeys ( "CopyAndPasteInUndoList" ) - Call wTypeKeys ( "<Shift Home>" ) - EditCopy - Call wTypeKeys ( "<End><Return>" ) - '/// Paste the text in all available formats - For i = 1 to 4 - Sleep 2 - try - EditPasteSpecialWriter - catch - i=5 - endcatch - Kontext "InhaltEinfuegen" - try - Auswahl.Select i - printlog " - Paste as: " + Auswahl.GetSeltext - wait 500 - catch - Warnlog "Not 4 but " & Auswahl.GetItemCount & " Clipboard-formats" - endcatch - InhaltEinfuegen.Ok - '/// string in Undo-list has to be: "Paste clipboard" - Call CheckUndoStringInUndoList ( 9 ) - Call wTypeKeys ( "<Return>" ) - next i - '/// close document - Call hCloseDocument + Dim i as integer + + '/// <B>Copy / Paste</B> + printlog "- Copy/Paste" + '/// new document + Call hNewDocument + '/// Insert some text in document and copy it + Call wTypeKeys ( "CopyAndPasteInUndoList" ) + Call wTypeKeys ( "<Shift Home>" ) + EditCopy + Call wTypeKeys ( "<End><Return>" ) + '/// Paste the text in all available formats + For i = 1 to 4 + Sleep 2 + try + EditPasteSpecialWriter + catch + i=5 + endcatch + Kontext "InhaltEinfuegen" + try + Auswahl.Select i + printlog " - Paste as: " + Auswahl.GetSeltext + wait 500 + catch + Warnlog "Not 4 but " & Auswahl.GetItemCount & " Clipboard-formats" + endcatch + InhaltEinfuegen.Ok + '/// string in Undo-list has to be: "Paste clipboard" + Call CheckUndoStringInUndoList ( 9 ) + Call wTypeKeys ( "<Return>" ) + next i + '/// close document + Call hCloseDocument endcase testcase tUndoChanges - - '/// <B>Changes accept and reject</B> - printlog "- Changes accept and reject" - '/// new document - Call hNewDocument + + '/// <B>Changes accept and reject</B> + printlog "- Changes accept and reject" + '/// new document + Call hNewDocument UseBindings '/// Select Edit / Changes / Record EditChangesRecord - '/// Insert a string in document - Call wTypeKeys ( "This is a test" ) - '/// Select Edit / Changes / Accept or Reject + '/// Insert a string in document + Call wTypeKeys ( "This is a test" ) + '/// Select Edit / Changes / Accept or Reject EditChangesAcceptOrReject '/// Dialog 'Accept or reject changes' has to come up /// Kontext "Redlining" if Redlining.Exists then - '/// + Select tabpage 'List' - TabControl.SetPage TabListe - '/// + Select 'Accept All' - Akzeptieren.Click - Sleep 2 - '/// + Close Redlining dialog - Redlining.Close - else - Warnlog "Redlining dialog not up!" - Call hCloseDocument - goto endsub - end if - '/// string in Undo-list has to be: "Accept change: Insert 'this is a test'") - Call CheckUndoStringInUndoList ( 10, "Accept" ) - - '/// Insert a line break in document - Call wTypeKeys ( "<Return>" ) - '/// Insert a string in document - Call wTypeKeys ( "This is a test" ) - '/// Select Edit / Changes / Accept or Reject + '/// + Select tabpage 'List' + TabControl.SetPage TabListe + '/// + Select 'Accept All' + Akzeptieren.Click + Sleep 2 + '/// + Close Redlining dialog + Redlining.Close + else + Warnlog "Redlining dialog not up!" + Call hCloseDocument + goto endsub + end if + '/// string in Undo-list has to be: "Accept change: Insert 'this is a test'") + Call CheckUndoStringInUndoList ( 10, "Accept" ) + + '/// Insert a line break in document + Call wTypeKeys ( "<Return>" ) + '/// Insert a string in document + Call wTypeKeys ( "This is a test" ) + '/// Select Edit / Changes / Accept or Reject EditChangesAcceptOrReject '/// Dialog 'Accept or reject changes' has to come up /// Kontext "Redlining" if Redlining.Exists then - '/// + Select tabpage 'List' - TabControl.SetPage TabListe - '/// + Select 'Accept All' - wait 500 - ListItem.TypeKeys "<Up>" - wait 500 - Ablehnen.Click - Sleep 2 - '/// + Close Redlining dialog - Redlining.Close - else - Warnlog "Redlining dialog not up!" - Call hCloseDocument - goto endsub - end if - - '/// string in Undo-list has to be: "Reject change: Insert 'this is a test'") - Call CheckUndoStringInUndoList ( 10, "Reject" ) - - Call hCloseDocument + '/// + Select tabpage 'List' + TabControl.SetPage TabListe + '/// + Select 'Accept All' + wait 500 + ListItem.TypeKeys "<Up>" + wait 500 + Ablehnen.Click + Sleep 2 + '/// + Close Redlining dialog + Redlining.Close + else + Warnlog "Redlining dialog not up!" + Call hCloseDocument + goto endsub + end if + + '/// string in Undo-list has to be: "Reject change: Insert 'this is a test'") + Call CheckUndoStringInUndoList ( 10, "Reject" ) + + Call hCloseDocument endcase testcase tUndoLineBreak - '/// <B>Manual breaks (line breaks)</B> - printlog "Manual breaks (line breaks)" - printlog "- Insert line break" - '/// new document - Call hNewDocument - '/// Insert a line break (Shift return) - Call wTypeKeys ( "<SHIFT RETURN>" ) - '/// string in Undo-list has to be: "Insert line break") - Call CheckUndoStringInUndoList ( 10, "InsertLineBreak" ) - - '/// Delete line break - printlog "- Delete line break" - Call wTypeKeys ( "<SHIFT RETURN><Backspace>" ) - '/// string in Undo-list has to be: "Delete line break") - Call CheckUndoStringInUndoList ( 10, "DeleteLineBreak" ) - - '/// Close document - Call hCloseDocument + '/// <B>Manual breaks (line breaks)</B> + printlog "Manual breaks (line breaks)" + printlog "- Insert line break" + '/// new document + Call hNewDocument + '/// Insert a line break (Shift return) + Call wTypeKeys ( "<SHIFT RETURN>" ) + '/// string in Undo-list has to be: "Insert line break") + Call CheckUndoStringInUndoList ( 10, "InsertLineBreak" ) + + '/// Delete line break + printlog "- Delete line break" + Call wTypeKeys ( "<SHIFT RETURN><Backspace>" ) + '/// string in Undo-list has to be: "Delete line break") + Call CheckUndoStringInUndoList ( 10, "DeleteLineBreak" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoColumnBreak - '/// <B>Column breaks</B> - printlog "- Column breaks" - '/// new document - Call hNewDocument - '/// Format / Columns - FormatColumns - Kontext "FormatColumn" - '/// set number of columns to 2 - Columns.Settext 2 - FormatColumn.Ok - '/// Insert a column break (Strg+Shift+Return) - Call wTypeKeys ( "<Mod1 Shift Return>" ) - printlog "Insert a column break" - '/// string in Undo-list has to be: "Insert column break") - Call CheckUndoStringInUndoList ( 10, "InsertColumnBreak" ) - - '/// Delete a column break (Strg+Shift+Return+Backspace) - printlog "Delete a column break" - Call wTypeKeys ( "<Mod1 Shift Return><Backspace>" ) - '/// string in Undo-list has to be: "Delete column break") - Call CheckUndoStringInUndoList ( 10, "DeleteColumnBreak" ) - - '/// Close document - Call hCloseDocument + '/// <B>Column breaks</B> + printlog "- Column breaks" + '/// new document + Call hNewDocument + '/// Format / Columns + FormatColumns + Kontext "FormatColumn" + '/// set number of columns to 2 + Columns.Settext 2 + FormatColumn.Ok + '/// Insert a column break (Strg+Shift+Return) + Call wTypeKeys ( "<Mod1 Shift Return>" ) + printlog "Insert a column break" + '/// string in Undo-list has to be: "Insert column break") + Call CheckUndoStringInUndoList ( 10, "InsertColumnBreak" ) + + '/// Delete a column break (Strg+Shift+Return+Backspace) + printlog "Delete a column break" + Call wTypeKeys ( "<Mod1 Shift Return><Backspace>" ) + '/// string in Undo-list has to be: "Delete column break") + Call CheckUndoStringInUndoList ( 10, "DeleteColumnBreak" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoPageBreak - '/// <B>Page breaks</B> - printlog "- Page breaks" - '/// new document - Call hNewDocument - '/// Format / Columns - InsertManualBreak - Kontext "UmbruchEinfuegen" - printlog "Insert a page break" - Seitenumbruch.Check - UmbruchEinfuegen.Ok - '/// string in Undo-list has to be: "Insert page break") - Call CheckUndoStringInUndoList ( 10, "InsertPageBreak" ) - - printlog "Delete a page break" - InsertManualBreak - Kontext "UmbruchEinfuegen" - '/// Insert a page break - Seitenumbruch.Check - UmbruchEinfuegen.Ok - Call wTypeKeys ( "<Backspace>" ) - '/// string in Undo-list has to be: "Delete page break") - Call CheckUndoStringInUndoList ( 10, "DeletePageBreak" ) - - '/// Close document - Call hCloseDocument + '/// <B>Page breaks</B> + printlog "- Page breaks" + '/// new document + Call hNewDocument + '/// Format / Columns + InsertManualBreak + Kontext "UmbruchEinfuegen" + printlog "Insert a page break" + Seitenumbruch.Check + UmbruchEinfuegen.Ok + '/// string in Undo-list has to be: "Insert page break") + Call CheckUndoStringInUndoList ( 10, "InsertPageBreak" ) + + printlog "Delete a page break" + InsertManualBreak + Kontext "UmbruchEinfuegen" + '/// Insert a page break + Seitenumbruch.Check + UmbruchEinfuegen.Ok + Call wTypeKeys ( "<Backspace>" ) + '/// string in Undo-list has to be: "Delete page break") + Call CheckUndoStringInUndoList ( 10, "DeletePageBreak" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoFields - '/// <B>Fields (Insert/Modify / Delete)</B> - printlog "- Fields (Insert)" - '/// new document - Call hNewDocument - '/// Insert Field 'Date' - InsertFieldsDate - '/// string in Undo-list has to be: "Insert field") - Call CheckUndoStringInUndoList ( 10, "InsertField" ) - - printlog "- Fields (Modify)" - '/// Press Home-key - Call wTypeKeys ( "<Home>" ) - '/// Edit fields and select 4th entry in Format-list - EditFields - Kontext "FeldbefehlBearbeitenDokument" - Zahlenformat.Select 4 - FeldbefehlBearbeitenDokument.Ok - '/// string in Undo-list has to be: "Changed field") - Call CheckUndoStringInUndoList ( 10, "ChangedField" ) - - printlog "- Fields (Delete)" - '/// Press delete-key - Call wTypeKeys ( "<Delete>" ) - '/// string in Undo-list has to be: "Delete field") - Call CheckUndoStringInUndoList ( 10, "DeleteField" ) - - '/// Close document - Call hCloseDocument + '/// <B>Fields (Insert/Modify / Delete)</B> + printlog "- Fields (Insert)" + '/// new document + Call hNewDocument + '/// Insert Field 'Date' + InsertFieldsDate + '/// string in Undo-list has to be: "Insert field") + Call CheckUndoStringInUndoList ( 10, "InsertField" ) + + printlog "- Fields (Modify)" + '/// Press Home-key + Call wTypeKeys ( "<Home>" ) + '/// Edit fields and select 4th entry in Format-list + EditFields + Kontext "FeldbefehlBearbeitenDokument" + Zahlenformat.Select 4 + FeldbefehlBearbeitenDokument.Ok + '/// string in Undo-list has to be: "Changed field") + Call CheckUndoStringInUndoList ( 10, "ChangedField" ) + + printlog "- Fields (Delete)" + '/// Press delete-key + Call wTypeKeys ( "<Delete>" ) + '/// string in Undo-list has to be: "Delete field") + Call CheckUndoStringInUndoList ( 10, "DeleteField" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoSpecialCharacter - '/// <B>Special Character (Insert / Delete )</B> - printlog "- Special Character (Insert)" - '/// new document - Call hNewDocument - '/// Insert a special Character + '/// <B>Special Character (Insert / Delete )</B> + printlog "- Special Character (Insert)" + '/// new document + Call hNewDocument + '/// Insert a special Character InsertSpecialCharacterWriter Kontext "Sonderzeichen" - SchriftListe.TypeKeys "<Home>" - SchriftListe.TypeKeys "<Right>", 3 - Sonderzeichen.Ok - '/// string in Undo-list has to be: "Insert special character") - Call CheckUndoStringInUndoList ( 10, "InsertSpecialCharacter" ) - - printlog "- Special Character (Delete)" - '/// Delete special character with <Backspace> - Call wTypeKeys ("<Backspace>" ) - Call CheckUndoStringInUndoList ( 10, "DeleteSpecialCharacter" ) - - '/// Close document - Call hCloseDocument + SchriftListe.TypeKeys "<Home>" + SchriftListe.TypeKeys "<Right>", 3 + Sonderzeichen.Ok + '/// string in Undo-list has to be: "Insert special character") + Call CheckUndoStringInUndoList ( 10, "InsertSpecialCharacter" ) + + printlog "- Special Character (Delete)" + '/// Delete special character with <Backspace> + Call wTypeKeys ("<Backspace>" ) + Call CheckUndoStringInUndoList ( 10, "DeleteSpecialCharacter" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoStyles - Dim i as integer, StyleText as string, UndoText as string - Dim NewStyle as string - - '/// <B>Styles (Apply/Modify/Find&Replace/Promote/Demote)</B> - printlog "- Styles (Apply)" - '/// new document - Call hNewDocument - '/// type some text - Call wTypeKeys ( "I have the new style" ) - '/// Select text - Call wTypeKeys ( "<Shift Home>" ) - '/// Apply Style to a newly created style - Call wStyleCreate ( "AUndoHistory", "Paragraph" ) - '/// string in Undo-list has to be: "Apply styles: AUndoHistory") - Call CheckUndoStringInUndoList ( 10, "ApplyStyles" ) - - '/// Modify Style through Stylist - if wStyleSelect ( "AUndoHistory" ) = false then - Warnlog "Defined style has not been found in Stylist->Test aborted" - Call hCloseDocument - goto endsub - end if - - Vorlagenliste.OpenContextMenu - Call hMenuSelectNr(2) - Kontext - Active.Setpage TabFontEffects - Kontext "TabFontEffects" - FontColor.Select FontColor.GetItemCount - TabFontEffects.Ok - Sleep 1 - '/// string in Undo-list has to be: "Change styles: AUndoHistory") - Call CheckUndoStringInUndoList ( 10, "ChangeStyles" ) - - printlog "Styles (Replace)" - '/// Edit / Search and Replace - EditSearchAndReplace - kontext "FindAndReplace" - if SearchForStyles.IsVisible = False then More.Click - SearchForStyles.Check - Sleep 1 - ReplaceWithStyle.Select 4 - wait 500 - ReplaceBtn.Click - NewStyle = ReplaceWithStyle.GetSelText - Select Case iSprache - Case 01: StyleText = "Replace style: AUndoHistory -> " & NewStyle - Case 34: StyleText = "Reemplazar estilo: AUndoHistory -> " & NewStyle - Case 86: StyleText = "替换样式: AUndoHistory -> " & NewStyle - Case else: QAErrorlog "Please adapt test for this language" - end select - wait 500 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - try - Active.Yes - catch - Active.Ok - endcatch - end if - end if - kontext "FindAndReplace" - SearchForStyles.UnCheck - FindAndReplace.Close - - '/// string in Undo-list has to be: "Replace Styles: 'AUndoHistory -> ...") - Kontext "StandardBar" - try - Undo.OpenMenu - Kontext "UndoRedoBox" - UndoText = UndoRedoList.GetItemText(1) - if UndoText <> StyleText then - Warnlog "Wrong text in Undo-List: " & UndoText - end if - Kontext "StandardBar" - Undo.Click - catch - Warnlog "Something wrong checking Undo-List!" - endcatch - - printlog "Styles (Promote)" - '/// point cursor to beginning of document - Call wTypeKeys ( "<Mod1 Home>" ) - ' To promote style it has to be in the heading group - ToolsOutlineNumbering - Kontext - Active.SetPage TabKapitelnumerierung - Kontext "TabKapitelnumerierung" - Absatzvorlage.Select NewStyle - TabKapitelnumerierung.Ok - - Call wNavigatorAuswahl ( 1, 1, true ) - Kontext "NavigatorWriter" - '/// Select Promote in Navigator - try - Senken.Click - '/// string in Undo-list has to be: "Demote Outline") - Call CheckUndoStringInUndoList ( 10, "DemoteOutline" ) - catch - Warnlog "Unable to demote outline" - endcatch - - '/// Select Demote in Navigator - printlog "Styles (Demote)" - Kontext "NavigatorWriter" - try - Senken.Click - '/// string in Undo-list has to be: "Promote Outline") - Call CheckUndoStringInUndoList ( 10, "PromoteOutline" ) - catch - Warnlog "Unable to promote outline" - endcatch - - '/// CloseDocument - Call hCloseDocument + Dim i as integer, StyleText as string, UndoText as string + Dim NewStyle as string + + '/// <B>Styles (Apply/Modify/Find&Replace/Promote/Demote)</B> + printlog "- Styles (Apply)" + '/// new document + Call hNewDocument + '/// type some text + Call wTypeKeys ( "I have the new style" ) + '/// Select text + Call wTypeKeys ( "<Shift Home>" ) + '/// Apply Style to a newly created style + Call wStyleCreate ( "AUndoHistory", "Paragraph" ) + '/// string in Undo-list has to be: "Apply styles: AUndoHistory") + Call CheckUndoStringInUndoList ( 10, "ApplyStyles" ) + + '/// Modify Style through Stylist + if wStyleSelect ( "AUndoHistory" ) = false then + Warnlog "Defined style has not been found in Stylist->Test aborted" + Call hCloseDocument + goto endsub + end if + + Vorlagenliste.OpenContextMenu + Call hMenuSelectNr(2) + Kontext + Active.Setpage TabFontEffects + Kontext "TabFontEffects" + FontColor.Select FontColor.GetItemCount + TabFontEffects.Ok + Sleep 1 + '/// string in Undo-list has to be: "Change styles: AUndoHistory") + Call CheckUndoStringInUndoList ( 10, "ChangeStyles" ) + + printlog "Styles (Replace)" + '/// Edit / Search and Replace + EditSearchAndReplace + kontext "FindAndReplace" + if SearchForStyles.IsVisible = False then More.Click + SearchForStyles.Check + Sleep 1 + ReplaceWithStyle.Select 4 + wait 500 + ReplaceBtn.Click + NewStyle = ReplaceWithStyle.GetSelText + Select Case iSprache + Case 01: StyleText = "Replace style: AUndoHistory -> " & NewStyle + Case 34: StyleText = "Reemplazar estilo: AUndoHistory -> " & NewStyle + Case 86: StyleText = "替换样式: AUndoHistory -> " & NewStyle + Case else: QAErrorlog "Please adapt test for this language" + end select + wait 500 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Yes + catch + Active.Ok + endcatch + end if + end if + kontext "FindAndReplace" + SearchForStyles.UnCheck + FindAndReplace.Close + + '/// string in Undo-list has to be: "Replace Styles: 'AUndoHistory -> ...") + Kontext "StandardBar" + try + Undo.OpenMenu + Kontext "UndoRedoBox" + UndoText = UndoRedoList.GetItemText(1) + if UndoText <> StyleText then + Warnlog "Wrong text in Undo-List: " & UndoText + end if + Kontext "StandardBar" + Undo.Click + catch + Warnlog "Something wrong checking Undo-List!" + endcatch + + printlog "Styles (Promote)" + '/// point cursor to beginning of document + Call wTypeKeys ( "<Mod1 Home>" ) + ' To promote style it has to be in the heading group + ToolsOutlineNumbering + Kontext + Active.SetPage TabKapitelnumerierung + Kontext "TabKapitelnumerierung" + Absatzvorlage.Select NewStyle + TabKapitelnumerierung.Ok + + Call wNavigatorAuswahl ( 1, 1, true ) + Kontext "NavigatorWriter" + '/// Select Promote in Navigator + try + Senken.Click + '/// string in Undo-list has to be: "Demote Outline") + Call CheckUndoStringInUndoList ( 10, "DemoteOutline" ) + catch + Warnlog "Unable to demote outline" + endcatch + + '/// Select Demote in Navigator + printlog "Styles (Demote)" + Kontext "NavigatorWriter" + try + Senken.Click + '/// string in Undo-list has to be: "Promote Outline") + Call CheckUndoStringInUndoList ( 10, "PromoteOutline" ) + catch + Warnlog "Unable to promote outline" + endcatch + + '/// CloseDocument + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc index 1d30a87dd406..ded462ff63c1 100644..100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Undo-History - Test '* @@ -33,268 +33,281 @@ sub w_undo_history_3 - Call tUndoSection ' Section (Insert/Modify/Delete) - Call tUndoHyperlink ' Hyperlink (Insert as Text/as URL button) - Call tUndoFootnote ' Footnote (Insert/Modify/Delete) - Call tUndoCaption ' Insert Caption - Call tUndoAutoText ' Insert Autotext - Call tUndoBookmark ' Bookmark (Insert/Rename/Delete) - Call tUndoComment ' Comment (Insert/Delete) - Call tUndoScript ' Script (Insert/Delete) - Call tUndoIndexes ' Index/Bibliography entrys (Insert/Delete) - Call tUndoFrames ' Frames (Insert/Rename/Delete) - Call tUndoTableGeneral ' Tables Part 1 - Call tUndoTableOptionsMerge ' Tables Part 2 - Call tUndoTableConvertSort ' Tables Part 3 - Call tUndoTableSplitDelete ' Tables Part 4 - Call tUndoHorizontalRuler ' Horizontal ruler - Call tUndoGraphics ' Graphics (Insert/Replace/Delete) - + Call tUndoSection ' Section (Insert/Modify/Delete) + Call tUndoHyperlink ' Hyperlink (Insert as Text/as URL button) + Call tUndoFootnote ' Footnote (Insert/Modify/Delete) + Call tUndoCaption ' Insert Caption + Call tUndoAutoText ' Insert Autotext + Call tUndoBookmark ' Bookmark (Insert/Rename/Delete) + Call tUndoComment ' Comment (Insert/Delete) + Call tUndoScript ' Script (Insert/Delete) + Call tUndoIndexes ' Index/Bibliography entrys (Insert/Delete) + Call tUndoFrames ' Frames (Insert/Rename/Delete) + Call tUndoTableGeneral ' Tables Part 1 + Call tUndoTableOptionsMerge ' Tables Part 2 + Call tUndoTableConvertSort ' Tables Part 3 + Call tUndoTableSplitDelete ' Tables Part 4 + Call tUndoHorizontalRuler ' Horizontal ruler + Call tUndoGraphics ' Graphics (Insert/Replace/Delete) + end sub testcase tUndoSection - '/// <B>Section (Insert/Modify/Delete)</B> - printlog "Section (Insert)" - '/// new document - Call hNewDocument - '/// Insert a section - InsertSection - Kontext - Active.Setpage TabBereiche - Kontext "TabBereiche" - TabBereiche.Ok - '/// string in Undo-list has to be: "Insert section") - Call CheckUndoStringInUndoList ( 10, "InsertSection" ) - - printlog "Section (Modify)" - '/// Open navigator and select section - Call wNavigatorAuswahl ( 7, 1, true ) - Kontext "NavigatorWriter" - '/// Open contextmenu and choose 'Edit' - Auswahlliste.OpenContextMenu - wait 500 - Call hMenuSelectNr(4) - - '/// Change Background-Color - Kontext "BereicheBearbeiten" - Optionen.Click - Kontext - Active.Setpage TabHintergrund - Kontext "TabHintergrund" - Hintergrundfarbe.TypeKeys "<Down>", 5 - TabHintergrund.Ok - - Kontext "BereicheBearbeiten" - BereicheBearbeiten.Ok - '/// string in Undo-list has to be: "Modify section") - Call CheckUndoStringInUndoList ( 10, "ModifySection" ) - - printlog "Section (Delete)" - '/// Open navigator and select section - Call wNavigatorAuswahl ( 7, 1, true ) - Kontext "NavigatorWriter" - '/// Open contextmenu and choose 'Edit' - Auswahlliste.OpenContextMenu - wait 500 - Call hMenuSelectNr(4) - '/// In 'Edit sections' dialog choose 'remove' - Kontext "BereicheBearbeiten" - Aufheben.Click - BereicheBearbeiten.Ok - '/// string in Undo-list has to be: "Delete section") - Call CheckUndoStringInUndoList ( 10, "DeleteSection" ) - - '/// Close Document - Call hCloseDocument + '/// <B>Section (Insert/Modify/Delete)</B> + printlog "Section (Insert)" + '/// new document + Call hNewDocument + '/// Insert a section + InsertSection + Kontext + Active.Setpage TabBereiche + Kontext "TabBereiche" + TabBereiche.Ok + '/// string in Undo-list has to be: "Insert section") + Call CheckUndoStringInUndoList ( 10, "InsertSection" ) + + printlog "Section (Modify)" + '/// Open navigator and select section + Call wNavigatorAuswahl ( 7, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + + '/// Change Background-Color + Kontext "BereicheBearbeiten" + Optionen.Click + Kontext + Active.Setpage TabHintergrund + Kontext "TabHintergrund" + Hintergrundfarbe.TypeKeys "<Down>", 5 + TabHintergrund.Ok + + Kontext "BereicheBearbeiten" + BereicheBearbeiten.Ok + '/// string in Undo-list has to be: "Modify section") + Call CheckUndoStringInUndoList ( 10, "ModifySection" ) + + printlog "Section (Delete)" + '/// Open navigator and select section + Call wNavigatorAuswahl ( 7, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + '/// In 'Edit sections' dialog choose 'remove' + Kontext "BereicheBearbeiten" + Aufheben.Click + BereicheBearbeiten.Ok + '/// string in Undo-list has to be: "Delete section") + Call CheckUndoStringInUndoList ( 10, "DeleteSection" ) + + '/// Close Document + Call hCloseDocument endcase testcase tUndoHyperlink - '///<B>Hyperlink (Insert as Text/as URL button)</B> - printlog "- Insert hyperlink as text" - '/// new document - Call hNewDocument - '/// Insert / Hyperlink as Text - InsertHyperlink - Call wEinfuegenHyperlink(1) - ZielURL.Settext "www.sun.com" - Form.Select 1 - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close - '/// string in Undo-list has to be: "Insert Hyperlink") - Call CheckUndoStringInUndoList ( 10, "InsertHyperlink" ) - - Call wTypeKeys "<Return>" - - '/// Insert / Hyperlink as Button - printlog "- Insert hyperlink as Button" - InsertHyperlink - Call wEinfuegenHyperlink(1) - ZielURL.Settext "www.sun.com" - Form.Select 2 - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close - - '/// string in Undo-list has to be: "insert URL Button") - Call CheckUndoStringInUndoList ( 10, "InsertHyperlinkButton" ) - - '/// Close Document - Call hCloseDocument - -endcase + '///<B>Hyperlink (Insert as Text/as URL button)</B> + printlog "- Insert hyperlink as text" + '/// new document + Call hNewDocument + '/// Insert / Hyperlink as Text + InsertHyperlink + '/// string in Undo-list has to be: "Insert Hyperlink") + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + Call wEinfuegenHyperlink(1) + ZielURL.SetText "www.sun.com" + Form.Select 1 + Uebernehmen.Click() + + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else + warnlog( "Unable to open <HyperlinkDialog>" ) + endif + Call CheckUndoStringInUndoList ( 10, "InsertHyperlink" ) + + Call wTypeKeys "<Return>" + + '/// Insert / Hyperlink as Button + printlog "- Insert hyperlink as Button" + InsertHyperlink + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + Call wEinfuegenHyperlink(1) + ZielURL.Settext "www.sun.com" + Form.Select 2 + Kontext "Hyperlink" + Uebernehmen.Click + kontext "HyperlinkDialog" + HyperlinkDialog.Close + else + warnlog( "Unable to open <HyperlinkDialog>" ) + endif + + '/// string in Undo-list has to be: "insert URL Button") + Call CheckUndoStringInUndoList ( 10, "InsertHyperlinkButton" ) + + '/// Close Document + Call hCloseDocument + +endcase testcase tUndoFootnote - '/// <B>Footnote (Insert/Modify/Delete)</B> - printlog "- Footnote (Insert)" - '/// new document - Call hNewDocument - '/// Insert / Footnote - InsertFootnote - Kontext "FussnoteEinfuegen" - FussnoteEinfuegen.Ok - '/// string in Undo-list has to be: "Insert footnote") - Call CheckUndoStringInUndoList ( 10, "InsertFootnote" ) - - printlog "- Footnote (Modify)" - '/// Tools/Footnote - ToolsFootnote - Kontext - Active.Setpage TabFussnoten - Kontext "TabFussnoten" - - '/// Change any option in footnote dialog - if Seitenende.IsChecked then - Dokumentende.Check - else - Seitenende.Check - end if - '/// Close dialog - TabFussnoten.Ok - '/// string in Undo-list has to be: "Modify footnote options") - Call CheckUndoStringInUndoList ( 10, "ModifyFootnote" ) - - printlog "- Footnote (Delete)" - '/// Point cursor directly to the footnote anchor - Call wTypeKeys "<Mod1 Home>" - '/// press 'delete' to remove footnote - Call wTypeKeys "<Delete>" - '/// string in Undo-list has to be: "Delete footnote options") - Call CheckUndoStringInUndoList ( 10, "DeleteFootnote" ) - - '/// Close document - Call hCloseDocument + '/// <B>Footnote (Insert/Modify/Delete)</B> + printlog "- Footnote (Insert)" + '/// new document + Call hNewDocument + '/// Insert / Footnote + InsertFootnote + Kontext "FussnoteEinfuegen" + FussnoteEinfuegen.Ok + '/// string in Undo-list has to be: "Insert footnote") + Call CheckUndoStringInUndoList ( 10, "InsertFootnote" ) + + printlog "- Footnote (Modify)" + '/// Tools/Footnote + ToolsFootnote + Kontext + Active.Setpage TabFussnoten + Kontext "TabFussnoten" + + '/// Change any option in footnote dialog + if Seitenende.IsChecked then + Dokumentende.Check + else + Seitenende.Check + end if + '/// Close dialog + TabFussnoten.Ok + '/// string in Undo-list has to be: "Modify footnote options") + Call CheckUndoStringInUndoList ( 10, "ModifyFootnote" ) + + printlog "- Footnote (Delete)" + '/// Point cursor directly to the footnote anchor + Call wTypeKeys "<Mod1 Home>" + '/// press 'delete' to remove footnote + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete footnote options") + Call CheckUndoStringInUndoList ( 10, "DeleteFootnote" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoCaption - '/// <B>Insert a caption</B> - printlog "- Insert Caption" - '/// new document - Call hNewDocument - '/// Insert a graphic - Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) - '/// Insert / Caption - InsertCaption - Kontext "Beschriftung" - '/// Insert a caption more than 20 characters long - Beschriftungstext.Settext "This caption has more than 20 characters" - Beschriftung.Ok - - '/// string in Undo-list has to be: "Insert Caption: This capt...aracters") - Call CheckUndoStringInUndoList ( 10, "InsertCaption" ) - - '/// Close document - Call hCloseDocument + '/// <B>Insert a caption</B> + printlog "- Insert Caption" + '/// new document + Call hNewDocument + '/// Insert a graphic + Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) + '/// Insert / Caption + InsertCaption + Kontext "Beschriftung" + '/// Insert a caption more than 20 characters long + Beschriftungstext.Settext "This caption has more than 20 characters" + Beschriftung.Ok + + '/// string in Undo-list has to be: "Insert Caption: This capt...aracters") + Call CheckUndoStringInUndoList ( 10, "InsertCaption" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoAutoText - '/// <B>Insert autotext</B> - printlog "- Insert autotext" - '/// new document - Call hNewDocument - '/// Insert dummy text - Call wBlindtextEinfuegen - - '/// string in Undo-list has to be: "Insert Auto Text") - Call CheckUndoStringInUndoList ( 10, "InsertAutotext" ) - - '/// Close document - Call hCloseDocument + '/// <B>Insert autotext</B> + printlog "- Insert autotext" + '/// new document + Call hNewDocument + '/// Insert dummy text + Call wBlindtextEinfuegen + + '/// string in Undo-list has to be: "Insert Auto Text") + Call CheckUndoStringInUndoList ( 10, "InsertAutotext" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoBookmark -Warnlog "#i102310# - tUndoBookmark outcommented due to bug." -goto endsub - - - '/// <B>Bookmark (Insert/Rename/Delete)</B> - printlog "- Insert Bookmark" - '/// new document - Call hNewDocument - '/// Insert / Bookmark - InsertBookmark - Kontext "TextmarkeEinfuegen" - Textmarken.Settext "I'm a bookmark" - TextmarkeEinfuegen.Ok - '/// string in Undo-list has to be: "Insert Bookmark: I'm a bookmark") - Call CheckUndoStringInUndoList ( 10, "InsertBookmark" ) - - printlog "- Rename Bookmark" - '/// Open navigator and select bookmark - Call wNavigatorAuswahl ( 6, 1, true ) - Kontext "NavigatorWriter" - '/// Open contextmenu and choose 'Edit' - Auswahlliste.OpenContextMenu - wait 500 - Call hMenuSelectNr(4) - wait 500 - Call hMenuSelectNr(3) - wait 500 - Kontext "ObjekteUmbenennen" - Objektname.Settext "a book" - ObjekteUmbenennen.Ok - '/// string in Undo-list has to be: "Rename Bookmark: a book") - Call CheckUndoStringInUndoList ( 10, "RenameBookmark" ) - - printlog "- Delete Bookmark" - '/// Open navigator and select bookmark - Call wNavigatorAuswahl ( 6, 1, true ) - Kontext "NavigatorWriter" - '/// Open contextmenu and choose 'Edit' - Auswahlliste.OpenContextMenu - wait 500 - Call hMenuSelectNr(4) - wait 500 - Call hMenuSelectNr(2) - wait 500 - '/// string in Undo-list has to be: "Rename Bookmark: a book") - Call CheckUndoStringInUndoList ( 10, "DeleteBookmark" ) - - '/// Close document - Call hCloseDocument + Warnlog "#i102310# - tUndoBookmark outcommented due to bug." + goto endsub + + + '/// <B>Bookmark (Insert/Rename/Delete)</B> + printlog "- Insert Bookmark" + '/// new document + Call hNewDocument + '/// Insert / Bookmark + InsertBookmark + Kontext "TextmarkeEinfuegen" + Textmarken.Settext "I'm a bookmark" + TextmarkeEinfuegen.Ok + '/// string in Undo-list has to be: "Insert Bookmark: I'm a bookmark") + Call CheckUndoStringInUndoList ( 10, "InsertBookmark" ) + + printlog "- Rename Bookmark" + '/// Open navigator and select bookmark + Call wNavigatorAuswahl ( 6, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + wait 500 + Call hMenuSelectNr(3) + wait 500 + Kontext "ObjekteUmbenennen" + Objektname.Settext "a book" + ObjekteUmbenennen.Ok + '/// string in Undo-list has to be: "Rename Bookmark: a book") + Call CheckUndoStringInUndoList ( 10, "RenameBookmark" ) + + printlog "- Delete Bookmark" + '/// Open navigator and select bookmark + Call wNavigatorAuswahl ( 6, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + wait 500 + Call hMenuSelectNr(2) + wait 500 + '/// string in Undo-list has to be: "Rename Bookmark: a book") + Call CheckUndoStringInUndoList ( 10, "DeleteBookmark" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoComment - printlog "New document" - Call hNewDocument - printlog "Insert / Comment" - InsertNoteWriter - printlog "String in Undo-list has to be: 'Insert Comment'" - Call CheckUndoStringInUndoList ( 10, "InsertComment" ) + printlog "New document" + Call hNewDocument + printlog "Insert / Comment" + InsertNoteWriter + printlog "String in Undo-list has to be: 'Insert Comment'" + Call CheckUndoStringInUndoList ( 10, "InsertComment" ) printlog "- Delete Comment" printlog "Bring up the Navigator, find the entry 'Comments', expand it, and select the expanded section." Call wNavigatorAuswahl( 11, 1 ) @@ -302,370 +315,373 @@ testcase tUndoComment Navigator.TypeKeys "<DELETE>" '/// Close the Navigator ViewNavigator - '/// string in Undo-list has to be: "Delete comment") - Call CheckUndoStringInUndoList ( 10, "DeleteComment" ) + '/// string in Undo-list has to be: "Delete comment") + Call CheckUndoStringInUndoList ( 10, "DeleteComment" ) - '/// Close document - Call hCloseDocument + '/// Close document + Call hCloseDocument endcase testcase tUndoScript - - '/// <B>Script (Insert/Delete)</B> - printlog "- Insert Script" - '/// new document - Call hNewDocument - '/// Insert / Script - InsertScript - Kontext "ScriptEinfuegen" - ScriptEinfuegen.Ok - '/// string in Undo-list has to be: "Insert script") - Call CheckUndoStringInUndoList ( 10, "InsertScript" ) - - '/// Point cursor directly to the script - Call wTypeKeys "<Mod1 Home>" - '/// press 'delete' to remove script - Call wTypeKeys "<Delete>" - '/// string in Undo-list has to be: "Delete script") - Call CheckUndoStringInUndoList ( 10, "DeleteScript" ) - - '/// Close document - Call hCloseDocument + + '/// <B>Script (Insert/Delete)</B> + printlog "- Insert Script" + '/// new document + Call hNewDocument + '/// Insert / Script + InsertScript + Kontext "ScriptEinfuegen" + ScriptEinfuegen.Ok + '/// string in Undo-list has to be: "Insert script") + Call CheckUndoStringInUndoList ( 10, "InsertScript" ) + + '/// Point cursor directly to the script + Call wTypeKeys "<Mod1 Home>" + '/// press 'delete' to remove script + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete script") + Call CheckUndoStringInUndoList ( 10, "DeleteScript" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoIndexes - '/// <B>Indexes (Insert/Delete)</B> - printlog "- Insert Index entry" - '/// new document - Call hNewDocument - '/// Type a word - Call wTypeKeys "IndexEntry" - Call wTypeKeys "<Shift Home>" - '/// Insert / Indexes and Tables / Entry - InsertIndexesEntry - Kontext "VerzeichnisEintragEinfuegen" - EintragOk.Click - VerzeichnisEintragEinfuegen.Close - '/// string in Undo-list has to be: "Insert index entry") - Call CheckUndoStringInUndoList ( 10, "InsertIndexEntry" ) - - printlog "delete index entry with 'Backspace'" - Call wTypeKeys ( "<Backspace>" - '/// string in Undo-list has to be: "Delete index entry") - Call CheckUndoStringInUndoList ( 10, "DeleteIndexEntry" ) - - '/// Type a word - Call wTypeKeys "BibliographyEntry" - Call wTypeKeys "<Shift Home>" - printlog "- Insert Bibliography entry" - printlog "Insert / Index / Bibliography entry" - InsertIndexesBibliographyEntry - Kontext "LiteratureintragEinfuegen" - EintragEinfuegen.Click - LiteratureintragEinfuegen.Close - '/// string in Undo-list has to be: "Insert bibliography entry") - Call CheckUndoStringInUndoList ( 10, "InsertBibliographyEntry" ) - - Printlog "delete bibliography entry with 'Backspace'" - Call wTypeKeys ( "<Backspace>" - '/// string in Undo-list has to be: "Delete bibliography entry") - Call CheckUndoStringInUndoList ( 10, "DeleteBibliographyEntry" ) - - '/// Close document - Call hCloseDocument + '/// <B>Indexes (Insert/Delete)</B> + printlog "- Insert Index entry" + '/// new document + Call hNewDocument + '/// Type a word + Call wTypeKeys "IndexEntry" + Call wTypeKeys "<Shift Home>" + '/// Insert / Indexes and Tables / Entry + InsertIndexesEntry + Kontext "VerzeichnisEintragEinfuegen" + EintragOk.Click + VerzeichnisEintragEinfuegen.Close + '/// string in Undo-list has to be: "Insert index entry") + Call CheckUndoStringInUndoList ( 10, "InsertIndexEntry" ) + + printlog "delete index entry with 'Backspace'" + Call wTypeKeys ( "<Backspace>" + '/// string in Undo-list has to be: "Delete index entry") + Call CheckUndoStringInUndoList ( 10, "DeleteIndexEntry" ) + + '/// Type a word + Call wTypeKeys "BibliographyEntry" + Call wTypeKeys "<Shift Home>" + printlog "- Insert Bibliography entry" + printlog "Insert / Index / Bibliography entry" + InsertIndexesBibliographyEntry + Kontext "LiteratureintragEinfuegen" + EintragEinfuegen.Click + LiteratureintragEinfuegen.Close + '/// string in Undo-list has to be: "Insert bibliography entry") + Call CheckUndoStringInUndoList ( 10, "InsertBibliographyEntry" ) + + Printlog "delete bibliography entry with 'Backspace'" + Call wTypeKeys ( "<Backspace>" + '/// string in Undo-list has to be: "Delete bibliography entry") + Call CheckUndoStringInUndoList ( 10, "DeleteBibliographyEntry" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoFrames - '/// <B>Frames (Insert/Rename/Delete)</B> - printlog "- Insert Frame" - '/// new document - Call hNewDocument - '/// Insert / Frame - InsertFrame - Kontext - Active.Setpage TabZusaetze - Kontext "TabZusaetze" - ObjektName.Settext "MyFrame" - TabZusaetze.Ok - '/// string in Undo-list has to be: "Insert frame: MyFrame") - Call CheckUndoStringInUndoList ( 10, "InsertFrame" ) - - printlog "- Rename Frame" - '/// Open navigator and select frame - Call wNavigatorAuswahl ( 3, 1, true ) - Kontext "NavigatorWriter" - '/// Open contextmenu and choose 'Edit' - Auswahlliste.OpenContextMenu - Call hMenuSelectNr(4) - Call hMenuSelectNr(3) - Kontext "ObjekteUmbenennen" - Objektname.Settext "MyRenamedFrame" - ObjekteUmbenennen.Ok - '/// string in Undo-list has to be: "Rename frame: 'MyFrame' -> 'MyRenamedFrame'") - Call CheckUndoStringInUndoList ( 10, "RenameFrame" ) - printlog "- Delete Frame" - '/// Type 'Del' to delete the frame - Call wTypeKeys "<Delete>" - '/// string in Undo-list has to be: "Delete frame: 'MyRenamedFrame'") - Call CheckUndoStringInUndoList ( 10, "DeleteFrame" ) - - '/// Close document - Call hCloseDocument + warnlog( "#111909# - Cannot access <rename> item in context menu" ) + goto endsub + + '/// <B>Frames (Insert/Rename/Delete)</B> + printlog "- Insert Frame" + '/// new document + Call hNewDocument + '/// Insert / Frame + InsertFrame + Kontext + Active.Setpage TabZusaetze + Kontext "TabZusaetze" + ObjektName.Settext "MyFrame" + TabZusaetze.Ok + '/// string in Undo-list has to be: "Insert frame: MyFrame") + Call CheckUndoStringInUndoList ( 10, "InsertFrame" ) + + printlog "- Rename Frame" + '/// Open navigator and select frame + Call wNavigatorAuswahl ( 3, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + Call hMenuSelectNr(4) + Call hMenuSelectNr(3) + Kontext "ObjekteUmbenennen" + Objektname.Settext "MyRenamedFrame" + ObjekteUmbenennen.Ok + '/// string in Undo-list has to be: "Rename frame: 'MyFrame' -> 'MyRenamedFrame'") + Call CheckUndoStringInUndoList ( 10, "RenameFrame" ) + printlog "- Delete Frame" + '/// Type 'Del' to delete the frame + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete frame: 'MyRenamedFrame'") + Call CheckUndoStringInUndoList ( 10, "DeleteFrame" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoTableGeneral - Dim sTableName as string - - '/// <B>Tables Part 1</B> - printlog "- insert table" - '/// new document - Call hNewDocument - '/// Insert a table - InsertTableWriter - Kontext "TabelleEinfuegenWriter" - sTableName = "MyTable" - Tabellenname.Settext sTableName - TabelleEinfuegenWriter.Ok - '/// string in Undo-list has to be: "Insert table") - Call CheckUndoStringInUndoList ( 10, "InsertTable" ) - printlog "- Insert a row" - '/// <B>Insert a row</B> - Call hToolbarSelect("Table", true) - ZeileEinfuegen.Click - '/// string in Undo-list has to be: "Insert row") - Call CheckUndoStringInUndoList ( 10, "InsertRow" ) - printlog "- Insert a column" - '/// <B>Insert a column</B> - Call hToolbarSelect("Table", true) - SpalteEinfuegen.Click - '/// string in Undo-list has to be: "Insert column") - Call CheckUndoStringInUndoList ( 10, "InsertColumn" ) - printlog "- Delete a row" - '/// <B>Delete a row</B> - Call hToolbarSelect("Table", true) - ZeileLoeschen.Click - '/// string in Undo-list has to be: "Delete row") - Call CheckUndoStringInUndoList ( 10, "DeleteRow" ) - printlog "- Delete a column" - '/// <B>Delete a column</B> - Call hToolbarSelect("Table", true) - SpalteLoeschen.Click - '/// string in Undo-list has to be: "Delete column") - Call CheckUndoStringInUndoList ( 10, "DeleteColumn" ) - printlog "- format a cell" - '/// <B>Format cell (enable number recognition form that)</B> + Dim sTableName as string + + '/// <B>Tables Part 1</B> + printlog "- insert table" + '/// new document + Call hNewDocument + '/// Insert a table + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + sTableName = "MyTable" + Tabellenname.Settext sTableName + TabelleEinfuegenWriter.Ok + '/// string in Undo-list has to be: "Insert table") + Call CheckUndoStringInUndoList ( 10, "InsertTable" ) + printlog "- Insert a row" + '/// <B>Insert a row</B> + Call hToolbarSelect("Table", true) + ZeileEinfuegen.Click + '/// string in Undo-list has to be: "Insert row") + Call CheckUndoStringInUndoList ( 10, "InsertRow" ) + printlog "- Insert a column" + '/// <B>Insert a column</B> + Call hToolbarSelect("Table", true) + SpalteEinfuegen.Click + '/// string in Undo-list has to be: "Insert column") + Call CheckUndoStringInUndoList ( 10, "InsertColumn" ) + printlog "- Delete a row" + '/// <B>Delete a row</B> + Call hToolbarSelect("Table", true) + ZeileLoeschen.Click + '/// string in Undo-list has to be: "Delete row") + Call CheckUndoStringInUndoList ( 10, "DeleteRow" ) + printlog "- Delete a column" + '/// <B>Delete a column</B> + Call hToolbarSelect("Table", true) + SpalteLoeschen.Click + '/// string in Undo-list has to be: "Delete column") + Call CheckUndoStringInUndoList ( 10, "DeleteColumn" ) + printlog "- format a cell" + '/// <B>Format cell (enable number recognition form that)</B> ToolsOptions Call hToolsOptions ("WRITER","Table") if Not AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Cancel - '/// type '1' in a cell - Call wTypeKeys ( "1" ) - Call wTypeKeys ( "<Right>" ) - '/// string in Undo-list has to be: "Format cell") - Call CheckUndoStringInUndoList ( 10, "FormatCell" ) - + '/// type '1' in a cell + Call wTypeKeys ( "1" ) + Call wTypeKeys ( "<Right>" ) + '/// string in Undo-list has to be: "Format cell") + Call CheckUndoStringInUndoList ( 10, "FormatCell" ) + ToolsOptions Call hToolsOptions ("WRITER","Table") if AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.UnCheck Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Cancel - '/// CloseDocument - Call hCloseDocument + '/// CloseDocument + Call hCloseDocument endcase testcase tUndoTableOptionsMerge - '/// <B>Tables Part 2</B> - printlog "- apply table attributes" - '/// new document - Call hNewDocument - '/// Insert a table - InsertTableWriter - Kontext "TabelleEinfuegenWriter" - TabelleEinfuegenWriter.Ok - - printlog "- apply attributes" - '/// Format / Table - FormatTable - '/// change some table options - Kontext - Active.Setpage TabTextflussTabelle - Kontext "TabTextflussTabelle" - if Umbruch.IsChecked then - Umbruch.Uncheck - else - Umbruch.Check - end if - TabTextflussTabelle.Ok - '/// string in Undo-list has to be: "Apply table attributes") - Call CheckUndoStringInUndoList ( 10, "ApplyTableAttributes" ) - - printlog "- merge tables" - '/// <B>Merge tables</B> - Call wTypeKeys ( "<Down>" ,2 ) - '/// Insert a second table - InsertTableWriter - Kontext "TabelleEinfuegenWriter" - TabelleEinfuegenWriter.Ok - '/// Format / Merge / Tables - FormatMergeTables - '/// string in Undo-list has to be: "Merge table") - Call CheckUndoStringInUndoList ( 10, "MergeTable" ) - - '/// close Document - Call hCloseDocument + '/// <B>Tables Part 2</B> + printlog "- apply table attributes" + '/// new document + Call hNewDocument + '/// Insert a table + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabelleEinfuegenWriter.Ok + + printlog "- apply attributes" + '/// Format / Table + FormatTable + '/// change some table options + Kontext + Active.Setpage TabTextflussTabelle + Kontext "TabTextflussTabelle" + if Umbruch.IsChecked then + Umbruch.Uncheck + else + Umbruch.Check + end if + TabTextflussTabelle.Ok + '/// string in Undo-list has to be: "Apply table attributes") + Call CheckUndoStringInUndoList ( 10, "ApplyTableAttributes" ) + + printlog "- merge tables" + '/// <B>Merge tables</B> + Call wTypeKeys ( "<Down>" ,2 ) + '/// Insert a second table + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabelleEinfuegenWriter.Ok + '/// Format / Merge / Tables + FormatMergeTables + '/// string in Undo-list has to be: "Merge table") + Call CheckUndoStringInUndoList ( 10, "MergeTable" ) + + '/// close Document + Call hCloseDocument endcase testcase tUndoTableConvertSort - '/// <B>Tables Part 3</B> - printlog "- Convert to text" - '/// new document - Call hNewDocument - '/// Insert text "This<Return>is a<Return>table to text<Return>text" - Call wTypeKeys ("This<Return>is a<Return>table to text<Return>text") - '/// select all - Call wTypeKeys ( "<Mod1 A>" ) - '/// Format / Text <-> Table - ToolsTextInTable + '/// <B>Tables Part 3</B> + printlog "- Convert to text" + '/// new document + Call hNewDocument + '/// Insert text "This<Return>is a<Return>table to text<Return>text" + Call wTypeKeys ("This<Return>is a<Return>table to text<Return>text") + '/// select all + Call wTypeKeys ( "<Mod1 A>" ) + '/// Format / Text <-> Table + ToolsTextInTable Kontext "TextInTabelleUmwandeln" TextInTabelleUmwandeln.OK - '/// string in Undo-list has to be: "Convert table -> text") - Call CheckUndoStringInUndoList ( 10, "ConvertTable" ) - - printlog "- Sort table" - '/// <B>Sort table</B> - Call wTypeKeys ( "<Mod1 A>", 2 ) - '/// Select all -> Tools / Sort - ToolsSort - Kontext "Sortieren" - Sortieren.Ok - '/// string in Undo-list has to be: "Sort table") - Call CheckUndoStringInUndoList ( 10, "SortTable" ) - - '/// Close Document - Call hCloseDocument + '/// string in Undo-list has to be: "Convert table -> text") + Call CheckUndoStringInUndoList ( 10, "ConvertTable" ) + + printlog "- Sort table" + '/// <B>Sort table</B> + Call wTypeKeys ( "<Mod1 A>", 2 ) + '/// Select all -> Tools / Sort + ToolsSort + Kontext "Sortieren" + Sortieren.Ok + '/// string in Undo-list has to be: "Sort table") + Call CheckUndoStringInUndoList ( 10, "SortTable" ) + + '/// Close Document + Call hCloseDocument endcase testcase tUndoTableSplitDelete - '/// <B>Tables Part 4</B> - printlog "- Split tables" - '/// new document - Call hNewDocument - '/// Insert 2 tables - InsertTableWriter - Kontext "TabelleEinfuegenWriter" - TabelleEinfuegenWriter.Ok - Call wTypeKeys ( "<Down>", 3 ) - InsertTableWriter - Kontext "TabelleEinfuegenWriter" - TabellenName.Settext "AnotherTable" - TabelleEinfuegenWriter.Ok - '/// MergeTables - FormatMergeTables - wait 500 - '/// Split tables - FormatSplitTable - Kontext "TabelleAuftrennen" - TabelleAuftrennen.Ok - '/// string in Undo-list has to be: "Split table") - Call CheckUndoStringInUndoList ( 10, "SplitTable" ) - - '/// <B>Delete table</B> - printlog "- Delete table" - '/// Open navigator and select table - Call wNavigatorAuswahl ( 2, 1, true ) - Kontext "NavigatorWriter" - '/// Open contextmenu and choose 'Delete' - Auswahlliste.OpenContextMenu - Call hMenuSelectNr(4) - Call hMenuSelectNr(2) - '/// string in Undo-list has to be: "Delete table: 'AnotherTable'") - Call CheckUndoStringInUndoList ( 10, "DeleteTable" ) - - '/// Close document - Call hCloseDocument + '/// <B>Tables Part 4</B> + printlog "- Split tables" + '/// new document + Call hNewDocument + '/// Insert 2 tables + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabelleEinfuegenWriter.Ok + Call wTypeKeys ( "<Down>", 3 ) + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabellenName.Settext "AnotherTable" + TabelleEinfuegenWriter.Ok + '/// MergeTables + FormatMergeTables + wait 500 + '/// Split tables + FormatSplitTable + Kontext "TabelleAuftrennen" + TabelleAuftrennen.Ok + '/// string in Undo-list has to be: "Split table") + Call CheckUndoStringInUndoList ( 10, "SplitTable" ) + + '/// <B>Delete table</B> + printlog "- Delete table" + '/// Open navigator and select table + Call wNavigatorAuswahl ( 2, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Delete' + Auswahlliste.OpenContextMenu + Call hMenuSelectNr(4) + Call hMenuSelectNr(2) + '/// string in Undo-list has to be: "Delete table: 'AnotherTable'") + Call CheckUndoStringInUndoList ( 10, "DeleteTable" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoHorizontalRuler - '/// <B>HorizontalRuler</B> - printlog "- Horizontal ruler" - '/// new document - Call hNewDocument - '/// Insert / Horizontal Line - InsertHorizontalLine + '/// <B>HorizontalRuler</B> + printlog "- Horizontal ruler" + '/// new document + Call hNewDocument + '/// Insert / Horizontal Line + InsertHorizontalLine '/// Select one line - Kontext "HorizontaleLinieEinfuegen" - Auswahl.TypeKeys "<Down>", 4 - HorizontaleLinieEinfuegen.Ok - '/// string in Undo-list has to be: "Insert horizontal ruler") - Call CheckUndoStringInUndoList ( 10, "InsertRuler" ) - - '/// close document - Call hCloseDocument + Kontext "HorizontaleLinieEinfuegen" + Auswahl.TypeKeys "<Down>", 4 + HorizontaleLinieEinfuegen.Ok + '/// string in Undo-list has to be: "Insert horizontal ruler") + Call CheckUndoStringInUndoList ( 10, "InsertRuler" ) + + '/// close document + Call hCloseDocument endcase testcase tUndoGraphics - '/// <B>Graphics (Insert/Delete/Replace)</B> - printlog "- Insert graphics from file" - '/// new document - Call hNewDocument - '/// Insert a graphic from file - Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) - '/// string in Undo-list has to be: "Insert graphics") - Call CheckUndoStringInUndoList ( 10, "InsertGraphic" ) + '/// <B>Graphics (Insert/Delete/Replace)</B> + printlog "- Insert graphics from file" + '/// new document + Call hNewDocument + '/// Insert a graphic from file + Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) + '/// string in Undo-list has to be: "Insert graphics") + Call CheckUndoStringInUndoList ( 10, "InsertGraphic" ) '/// <B>Delete graphic</B> - printlog "- delete graphic" - '/// press 'delete' to remove graphic - Call wTypeKeys "<Delete>" - '/// string in Undo-list has to be: "Delete graphics") - Call CheckUndoStringInUndoList ( 10, "DeleteGraphic" ) - - '/// <B>Insert graphic from gallery</B> - printlog "- insert graphic from gallery" - Kontext "Gallery" + printlog "- delete graphic" + '/// press 'delete' to remove graphic + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete graphics") + Call CheckUndoStringInUndoList ( 10, "DeleteGraphic" ) + + '/// <B>Insert graphic from gallery</B> + printlog "- insert graphic from gallery" + Kontext "Gallery" if Gallery.NotExists(2) then ToolsGallery Sleep (2) - View.OpenContextMenu - Call hMenuSelectNr(1) - Call hMenuSelectNr(1) - '/// string in Undo-list has to be: "Insert graphics") - Call CheckUndoStringInUndoList ( 10, "InsertGraphic" ) + View.OpenContextMenu + Call hMenuSelectNr(1) + Call hMenuSelectNr(1) + '/// string in Undo-list has to be: "Insert graphics") + Call CheckUndoStringInUndoList ( 10, "InsertGraphic" ) Sleep (1) - '/// <B>Replace graphic</B> - printlog "- replace graphic" - '/// Insert another graphics from gallery - Kontext "Gallery" - View.OpenContextMenu - Call hMenuSelectNr(1) - Call hMenuSelectNr(1) - '/// string in Undo-list has to be: "Replace graphics") - Call CheckUndoStringInUndoList ( 10, "ReplaceGraphic" ) - - '/// Close gallery - Kontext "Gallery" - if Gallery.Exists then ToolsGallery - - '/// Close document - Call hCloseDocument + '/// <B>Replace graphic</B> + printlog "- replace graphic" + '/// Insert another graphics from gallery + Kontext "Gallery" + View.OpenContextMenu + Call hMenuSelectNr(1) + Call hMenuSelectNr(1) + '/// string in Undo-list has to be: "Replace graphics") + Call CheckUndoStringInUndoList ( 10, "ReplaceGraphic" ) + + '/// Close gallery + Kontext "Gallery" + if Gallery.Exists then ToolsGallery + + '/// Close document + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc index 3f0940fc7537..e1370f29e541 100644..100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Undo-History - Test '* @@ -33,178 +33,178 @@ sub w_undo_history_4 - Call tUndoOLEObject ' Objects (Insert/Delete) - Call tUndoFloatingFrame ' Floating Frame (Insert/Delete) - Call tUndoInsertFile ' Insert file - Call tUndoAsianPhoneticGuides ' Asian Phonetic Guides - Call tUndoAutocorrect ' Autocorrect / Autoformat - Call tUndoDrawObject ' Draw Object (Insert) - Call tUndoDrawObjectGroup ' Draw Object (Group/ungroup/Name/Delete) - Call tUndoSpellcheck ' Spellcheck (Autocheck/Spellcheck) - Call tUndoFormControl ' Form Control (Insert/resize/move/replace/change property/delete) - Call tUndoHeaderFooter ' Header/Footer insert and delete - + Call tUndoOLEObject ' Objects (Insert/Delete) + Call tUndoFloatingFrame ' Floating Frame (Insert/Delete) + Call tUndoInsertFile ' Insert file + Call tUndoAsianPhoneticGuides ' Asian Phonetic Guides + Call tUndoAutocorrect ' Autocorrect / Autoformat + Call tUndoDrawObject ' Draw Object (Insert) + Call tUndoDrawObjectGroup ' Draw Object (Group/ungroup/Name/Delete) + Call tUndoSpellcheck ' Spellcheck (Autocheck/Spellcheck) + Call tUndoFormControl ' Form Control (Insert/resize/move/replace/change property/delete) + Call tUndoHeaderFooter ' Header/Footer insert and delete + end sub testcase tUndoOLEObject - - '/// <B>OLE-Objects (Insert/Delete)</B> - printlog "- Insert OLE-Object" - '/// new Document - Call hNewDocument + + '/// <B>OLE-Objects (Insert/Delete)</B> + printlog "- Insert OLE-Object" + '/// new Document + Call hNewDocument '/// Insert / Object / OLE-Object /// - InsertObjectOLEObject + InsertObjectOLEObject Kontext "OLEObjektEinfuegen" - Objekttyp.Select 1 - OLEObjektEinfuegen.Ok + Objekttyp.Select 1 + OLEObjektEinfuegen.Ok wait 500 - Call wTypeKeys "<Esc>" + Call wTypeKeys "<Esc>" wait 500 Call gMouseClick(15,5) wait 500 - '/// string in Undo-list has to be: "Insert object") - Call CheckUndoStringInUndoList ( 10, "InsertObject" ) + '/// string in Undo-list has to be: "Insert object") + Call CheckUndoStringInUndoList ( 10, "InsertObject" ) - printlog "- delete object" - '/// Select object with <Shift F4> + printlog "- delete object" + '/// Select object with <Shift F4> Call wTypeKeys "<Shift F4>" wait 500 '/// <B>Delete object</B> - Call wTypeKeys "<Delete>" + Call wTypeKeys "<Delete>" wait 500 - '/// press 'delete' to remove object - '/// string in Undo-list has to be: "Delete object") - Call CheckUndoStringInUndoList ( 10, "DeleteObject" ) - - '/// close Document - Call hCloseDocument + '/// press 'delete' to remove object + '/// string in Undo-list has to be: "Delete object") + Call CheckUndoStringInUndoList ( 10, "DeleteObject" ) + + '/// close Document + Call hCloseDocument endcase testcase tUndoFloatingFrame - '/// <B>Floating frames</B> - printlog "- Insert floating frame" - '/// new document - Call hNewDocument - '/// Insert / Floating frame - InsertFloatingFrame - Kontext "TabEigenschaften" - '/// Choose a file as floating frame - Inhalt.Settext Convertpath (gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) - TabEigenschaften.Ok - Sleep 2 - '/// string in Undo-list has to be: "Insert floating frame") - Call CheckUndoStringInUndoList ( 10, "InsertFloatingFrame" ) - - '/// Delete floating frame - printlog "- delete floating frame" - Call wTypeKeys "<Delete>" - '/// string in Undo-list has to be: "Delete floating frame") - Call CheckUndoStringInUndoList ( 10, "DeleteFloatingFrame" ) - - '/// close document - Call hCloseDocument + '/// <B>Floating frames</B> + printlog "- Insert floating frame" + '/// new document + Call hNewDocument + '/// Insert / Floating frame + InsertFloatingFrame + Kontext "TabEigenschaften" + '/// Choose a file as floating frame + Inhalt.Settext Convertpath (gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) + TabEigenschaften.Ok + Sleep 2 + '/// string in Undo-list has to be: "Insert floating frame") + Call CheckUndoStringInUndoList ( 10, "InsertFloatingFrame" ) + + '/// Delete floating frame + printlog "- delete floating frame" + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete floating frame") + Call CheckUndoStringInUndoList ( 10, "DeleteFloatingFrame" ) + + '/// close document + Call hCloseDocument endcase testcase tUndoInsertFile - '/// <B>Insert File</B> - printlog "- Insert file" - '/// new document - Call hNewDocument - '/// Insert / File - InsertFileWriter + '/// <B>Insert File</B> + printlog "- Insert file" + '/// new document + Call hNewDocument + '/// Insert / File + InsertFileWriter Sleep 3 Kontext "OeffnenDlg" Sleep 2 '/// Choose "..\\writer\\input\\htmltest.sxw" - if OeffnenDlg.Exists then - Dateiname.Settext Convertpath (gTesttoolPath & "writer\optional\input\undo\htmltest.sxw" ) - Oeffnen.Click - else - Warnlog "File open dialog missing" - Call hCloseDocument - goto endsub - end if - - '/// string in Undo-list has to be: "Insert document") - Call CheckUndoStringInUndoList ( 10, "InsertDocument" ) - - '/// close document - Call hCloseDocument + if OeffnenDlg.Exists then + Dateiname.Settext Convertpath (gTesttoolPath & "writer\optional\input\undo\htmltest.sxw" ) + Oeffnen.Click + else + Warnlog "File open dialog missing" + Call hCloseDocument + goto endsub + end if + + '/// string in Undo-list has to be: "Insert document") + Call CheckUndoStringInUndoList ( 10, "InsertDocument" ) + + '/// close document + Call hCloseDocument endcase testcase tUndoAsianPhoneticGuides - '/// <B>Asian Phonetic Guides</B> - printlog "- Asian Phonetic Guides" - '/// new document - Call hNewDocument - '/// type some text and select it - Call wTypeKeys ( "JuppHeidiUndJuppHeida" ) - Call wTypeKeys ( "<Home>" ) - '/// Check if Asian support is enabled, if not enable it - if gAsianSup = true then - FormatRuby - Kontext "RubyDialog" - RubyText1.Settext "SeppHeidiUndSeppHeida" - RubyDialog.Ok - RubyDialog.Close - else - Call ActiveDeactivateAsianSupport(True) - FormatRuby - Kontext "RubyDialog" - RubyText1.Settext "SeppHeidiUndSeppHeida" - RubyDialog.Ok - RubyDialog.Close - Call ActiveDeactivateAsianSupport(False) - end if - - '/// string in Undo-list has to be: "Asian Phonectic Guides Setting") - Call CheckUndoStringInUndoList ( 10, "APGS" ) - - '/// close document - Call hCloseDocument + '/// <B>Asian Phonetic Guides</B> + printlog "- Asian Phonetic Guides" + '/// new document + Call hNewDocument + '/// type some text and select it + Call wTypeKeys ( "JuppHeidiUndJuppHeida" ) + Call wTypeKeys ( "<Home>" ) + '/// Check if Asian support is enabled, if not enable it + if gAsianSup = true then + FormatRuby + Kontext "RubyDialog" + RubyText1.Settext "SeppHeidiUndSeppHeida" + RubyDialog.Ok + RubyDialog.Close + else + Call ActiveDeactivateAsianSupport(True) + FormatRuby + Kontext "RubyDialog" + RubyText1.Settext "SeppHeidiUndSeppHeida" + RubyDialog.Ok + RubyDialog.Close + Call ActiveDeactivateAsianSupport(False) + end if + + '/// string in Undo-list has to be: "Asian Phonectic Guides Setting") + Call CheckUndoStringInUndoList ( 10, "APGS" ) + + '/// close document + Call hCloseDocument endcase testcase tUndoAutocorrect - '/// <B>Autocorrect / Autoformat</B> - printlog "- Autocorrect / Autoformat" - '/// new document - Call hNewDocument - '/// <B>Autocorrect</B> - printlog "- Autocorrect" - '/// type with quote and blank at the end 'www.sun.com ' - Call wTypeKeys ( "www.sun.com " ) - '/// string in Undo-list has to be: "AutoCorrect") - Call CheckUndoStringInUndoList ( 10, "AutoCorrect" ) + '/// <B>Autocorrect / Autoformat</B> + printlog "- Autocorrect / Autoformat" + '/// new document + Call hNewDocument + '/// <B>Autocorrect</B> + printlog "- Autocorrect" + '/// type with quote and blank at the end 'www.sun.com ' + Call wTypeKeys ( "www.sun.com " ) + '/// string in Undo-list has to be: "AutoCorrect") + Call CheckUndoStringInUndoList ( 10, "AutoCorrect" ) '/// insert a line break - Call wTypeKeys ( "<Return>" ) - '/// <B>Autoformat</B> - printlog "- Autoformat" - '/// type - AutoFormat test<Return> - Call wTypeKeys ( "- AutoFormat test<Return>" ) - '/// string in Undo-list has to be: "AutoCorrect") - Call CheckUndoStringInUndoList ( 10, "AutoFormat" ) - - '/// close document - Call hCloseDocument + Call wTypeKeys ( "<Return>" ) + '/// <B>Autoformat</B> + printlog "- Autoformat" + '/// type - AutoFormat test<Return> + Call wTypeKeys ( "- AutoFormat test<Return>" ) + '/// string in Undo-list has to be: "AutoCorrect") + Call CheckUndoStringInUndoList ( 10, "AutoFormat" ) + + '/// close document + Call hCloseDocument endcase testcase tUndoDrawObject - '/// <B>Draw object</B> - printlog "- Draw object" - '/// new document - Call hNewDocument - '/// Insert a freeform line object - + '/// <B>Draw object</B> + printlog "- Draw object" + '/// new document + Call hNewDocument + '/// Insert a freeform line object + ViewZoom Kontext "Massstab" Optimal.Check @@ -220,18 +220,18 @@ testcase tUndoDrawObject Call gMouseClick( 55, 70 ) Call wTypeKeys ("<Escape>") - '/// string in Undo-list has to be: "Insert draw object: freeform line") - Call CheckUndoStringInUndoList ( 10, "FreeForm" ) + '/// string in Undo-list has to be: "Insert draw object: freeform line") + Call CheckUndoStringInUndoList ( 10, "FreeForm" ) - '/// close document - Call hCloseDocument + '/// close document + Call hCloseDocument endcase testcase tUndoDrawObjectGroup - '/// <B>Group of Drawing objects</B> - printlog "- Group of Drawing objects" + '/// <B>Group of Drawing objects</B> + printlog "- Group of Drawing objects" '/// new document /// Call hNewDocument ViewZoom @@ -249,172 +249,172 @@ testcase tUndoDrawObjectGroup '/// Select Format / Group / Group /// try printlog "- group objects" - FormatGroupGroup + FormatGroupGroup Sleep 1 - '/// string in Undo-list has to be: "Group draw objects") - Call CheckUndoStringInUndoList ( 10, "DrawGroup" ) - - '/// Format / Name object - printlog "- name objects" - FormatNameObject - Kontext "NameDlgObject" - NameField.Settext "MyGroup" - NameDlgObject.OK - '/// string in Undo-list has to be: "Rename 2 Rectangles") - Call CheckUndoStringInUndoList ( 10, "RenameGroup" ) - - '/// Select Format / Group / Ungroup /// - printlog "- ungroup objects" - FormatUngroupDraw - '/// string in Undo-list has to be: "Ungroup group object") - Call CheckUndoStringInUndoList ( 10, "DrawUnGroup" ) - - '/// Select 1 object and delete it - Call gMouseClick ( 40, 52 ) - printlog "- delete object" - Call wTypeKeys "<Delete>" - '/// string in Undo-list has to be: "Delete 2 Rectangles") - Call CheckUndoStringInUndoList ( 10, "DeleteGroup" ) - catch + '/// string in Undo-list has to be: "Group draw objects") + Call CheckUndoStringInUndoList ( 10, "DrawGroup" ) + + '/// Format / Name object + printlog "- name objects" + FormatNameObject + Kontext "NameDlgObject" + NameField.Settext "MyGroup" + NameDlgObject.OK + '/// string in Undo-list has to be: "Rename 2 Rectangles") + Call CheckUndoStringInUndoList ( 10, "RenameGroup" ) + + '/// Select Format / Group / Ungroup /// + printlog "- ungroup objects" + FormatUngroupDraw + '/// string in Undo-list has to be: "Ungroup group object") + Call CheckUndoStringInUndoList ( 10, "DrawUnGroup" ) + + '/// Select 1 object and delete it + Call gMouseClick ( 40, 52 ) + printlog "- delete object" + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete 2 Rectangles") + Call CheckUndoStringInUndoList ( 10, "DeleteGroup" ) + catch Warnlog "Unable to execute 'Format / Group / Group' -> disabled!" endcatch - '/// close document - Call hCloseDocument + '/// close document + Call hCloseDocument endcase testcase tUndoSpellcheck - Dim sReplace as string + Dim sReplace as string - '/// <B>Spellcheck(Autocheck/Spellcheck)</B> - printlog "- Spellcheck: Autocheck" + '/// <B>Spellcheck(Autocheck/Spellcheck)</B> + printlog "- Spellcheck: Autocheck" '/// new document /// hfileOpen (gTesttoolpath + "writer\optional\input\undo\spellcheck_undo.odt") Call sMakeReadOnlyDocumentEditable - '/// Type "This is a testp<End>" - Call wTypeKeys ( "<End>" ) 'This is a testp - '/// Select word' testp' - Call wTypeKeys ( "<Mod1 Shift Left>" ) - '/// Tools / Spellcheck - ToolsSpellcheckWriter - Kontext "Spellcheck" - Suggestions.Select 1 - sReplace = Suggestions.GetSelText - '///Replace with 1st word in suggestion list - printlog "-> Replace with word: " & sReplace - Change.Click - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - Active.Ok - end if - end if - Kontext "Spellcheck" - if Spellcheck.Exists then Spellcheck.Close - '/// string in Undo-list has to be: "Replace: 'Testp' -> 'Test'") - Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" ) + '/// Type "This is a testp<End>" + Call wTypeKeys ( "<End>" ) 'This is a testp + '/// Select word' testp' + Call wTypeKeys ( "<Mod1 Shift Left>" ) + '/// Tools / Spellcheck + ToolsSpellcheckWriter + Kontext "Spellcheck" + Suggestions.Select 1 + sReplace = Suggestions.GetSelText + '///Replace with 1st word in suggestion list + printlog "-> Replace with word: " & sReplace + Change.Click + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + Active.Ok + end if + end if + Kontext "Spellcheck" + if Spellcheck.Exists then Spellcheck.Close + '/// string in Undo-list has to be: "Replace: 'Testp' -> 'Test'") + Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" ) '/// Uncheck 'Autospellcheck' in Toolbar /// ToolsSpellcheckAutoSpellcheck - printlog "- Spellcheck" - Call wTypeKeys ( "<End><Return>", 2 ) - '/// retype 'testp' - Call wTypeKeys ( "testp<Shift Home>" ) - ToolsSpellcheckWriter - Kontext "Spellcheck" - ' Workaround: For some reasons sometimes dialog is disabled here - ' Only reproducable by testtool - try - Suggestions.Select 1 - catch - Spellcheck.Close - ToolsSpellcheckWriter - Kontext "Spellcheck" - Suggestions.Select 1 - endcatch - Change.Click - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - try - Active.No - catch - Active.Ok - endcatch - end if - end if - Kontext "Spellcheck" - if Spellcheck.Exists then Spellcheck.Close - - '/// string in Undo-list has to be: "Replace: 'Testp' -> 'Test'") - Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" ) - - '/// close document + printlog "- Spellcheck" + Call wTypeKeys ( "<End><Return>", 2 ) + '/// retype 'testp' + Call wTypeKeys ( "testp<Shift Home>" ) + ToolsSpellcheckWriter + Kontext "Spellcheck" + ' Workaround: For some reasons sometimes dialog is disabled here + ' Only reproducable by testtool + try + Suggestions.Select 1 + catch + Spellcheck.Close + ToolsSpellcheckWriter + Kontext "Spellcheck" + Suggestions.Select 1 + endcatch + Change.Click + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.No + catch + Active.Ok + endcatch + end if + end if + Kontext "Spellcheck" + if Spellcheck.Exists then Spellcheck.Close + + '/// string in Undo-list has to be: "Replace: 'Testp' -> 'Test'") + Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" ) + + '/// close document Call hCloseDocument endcase testcase tUndoFormControl - '/// <B>Form Control (Insert/resize/move/replace/change property/delete)</B> - printlog "- Form control (insert)" - '/// new document - Call hNewDocument - '/// Open 'Form' Toolbox /// - Call hToolbarSelect ("FormControls", true) - 'Formsbar.Move 20, 30 - '/// Insert a pushbutton from toolbox /// - Pushbutton.Click + '/// <B>Form Control (Insert/resize/move/replace/change property/delete)</B> + printlog "- Form control (insert)" + '/// new document + Call hNewDocument + '/// Open 'Form' Toolbox /// + Call hToolbarSelect ("FormControls", true) + 'Formsbar.Move 20, 30 + '/// Insert a pushbutton from toolbox /// + Pushbutton.Click Kontext "DocumentWriter" DocumentWriter.MouseDown ( 40, 50 ) DocumentWriter.MouseMove ( 50, 55 ) DocumentWriter.MouseUp ( 50, 55 ) Sleep 1 - '/// string in Undo-list has to be: "Insert control") - Call CheckUndoStringInUndoList ( 10, "ControlInsert" ) - - printlog "- Form control (move)" - '/// Press '<Up>' to move control - Call wTypeKeys ( "<Up>" ) - '/// string in Undo-list has to be: "Move control") - Call CheckUndoStringInUndoList ( 10, "ControlMove" ) - - printlog "- Form control (resize)" - '/// Press '<Ctrl+Tab>' to enter handle selection mode - Call wTypeKeys ( "<Mod1 Tab>" ) - '/// Press '<Up>' to resize control - Call wTypeKeys ( "<Up>" ) - '/// string in Undo-list has to be: "Resize control") - Call CheckUndoStringInUndoList ( 10, "ControlResize" ) - - printlog "- Form control (replace)" - '/// Select 'Format->Replace with-> Text box' - FormatReplaceWithTextBox - wait 500 - '/// string in Undo-list has to be: "Replace control") - Call CheckUndoStringInUndoList ( 10, "ControlReplace" ) - - printlog "- Form control (change property)" - '/// Select 'Format->Control' and change name of control - FormatControl - Kontext "ControlPropertiesTabControl" + '/// string in Undo-list has to be: "Insert control") + Call CheckUndoStringInUndoList ( 10, "ControlInsert" ) + + printlog "- Form control (move)" + '/// Press '<Up>' to move control + Call wTypeKeys ( "<Up>" ) + '/// string in Undo-list has to be: "Move control") + Call CheckUndoStringInUndoList ( 10, "ControlMove" ) + + printlog "- Form control (resize)" + '/// Press '<Ctrl+Tab>' to enter handle selection mode + Call wTypeKeys ( "<Mod1 Tab>" ) + '/// Press '<Up>' to resize control + Call wTypeKeys ( "<Up>" ) + '/// string in Undo-list has to be: "Resize control") + Call CheckUndoStringInUndoList ( 10, "ControlResize" ) + + printlog "- Form control (replace)" + '/// Select 'Format->Replace with-> Text box' + FormatReplaceWithTextBox + wait 500 + '/// string in Undo-list has to be: "Replace control") + Call CheckUndoStringInUndoList ( 10, "ControlReplace" ) + + printlog "- Form control (change property)" + '/// Select 'Format->Control' and change name of control + FormatControl + Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.setPage TabGeneralControl - Kontext "TabGeneralControl" - NameText.Settext "MyControl" + Kontext "TabGeneralControl" + NameText.Settext "MyControl" FormatControl - '/// string in Undo-list has to be: "Set property 'Name'") - Call CheckUndoStringInUndoList ( 10, "ControlChange" ) - - printlog "- Form control (delete)" - '/// Press '<Delete>' to delete control - Call wTypeKeys ( "<Delete>" ) - '/// string in Undo-list has to be: "Delete control") - Call CheckUndoStringInUndoList ( 10, "ControlDelete" ) - - '/// close document + '/// string in Undo-list has to be: "Set property 'Name'") + Call CheckUndoStringInUndoList ( 10, "ControlChange" ) + + printlog "- Form control (delete)" + '/// Press '<Delete>' to delete control + Call wTypeKeys ( "<Delete>" ) + '/// string in Undo-list has to be: "Delete control") + Call CheckUndoStringInUndoList ( 10, "ControlDelete" ) + + '/// close document Call hCloseDocument endcase @@ -423,73 +423,73 @@ testcase tUndoHeaderFooter QAErrorlog "#i56552#footer deletion cannot be undone" goto endsub - '/// Insert header - printlog "- Insert header" - '/// new Document - Call hNewDocument - '/// Insert / Header / Default - DocumentWriter.UseMenu - MenuSelect(Menugetitemid(4)) - Sleep 2 - MenuSelect(Menugetitemid(9)) - Sleep 2 - MenuSelect(Menugetitemid(1)) - Sleep 2 - '/// string in Undo-list has to be: "Header/footer changed") - Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) - - '/// Delete header - printlog "- Delete header" + '/// Insert header + printlog "- Insert header" + '/// new Document + Call hNewDocument + '/// Insert / Header / Default + DocumentWriter.UseMenu + MenuSelect(Menugetitemid(4)) + Sleep 2 + MenuSelect(Menugetitemid(9)) + Sleep 2 + MenuSelect(Menugetitemid(1)) + Sleep 2 + '/// string in Undo-list has to be: "Header/footer changed") + Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) + + '/// Delete header + printlog "- Delete header" Kontext "DocumentWriter" - DocumentWriter.UseMenu + DocumentWriter.UseMenu MenuSelect(Menugetitemid(4)) Sleep 2 MenuSelect(Menugetitemid(9)) Sleep 2 MenuSelect(Menugetitemid(1)) Sleep 2 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - Active.Yes - end if - end if - '/// string in Undo-list has to be: "Header/footer changed") - Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) - - '/// Insert footer - printlog "- Insert footer" - '/// Insert / Header / Default - Kontext "DocumentWriter" - DocumentWriter.UseMenu - MenuSelect(Menugetitemid(4)) - Sleep 2 - MenuSelect(Menugetitemid(10)) - Sleep 2 - MenuSelect(Menugetitemid(1)) - Sleep 2 - '/// string in Undo-list has to be: "Header/footer changed") - Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) - - '/// Delete footer - printlog "- Delete footer" + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + Active.Yes + end if + end if + '/// string in Undo-list has to be: "Header/footer changed") + Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) + + '/// Insert footer + printlog "- Insert footer" + '/// Insert / Header / Default Kontext "DocumentWriter" - DocumentWriter.UseMenu + DocumentWriter.UseMenu MenuSelect(Menugetitemid(4)) Sleep 2 MenuSelect(Menugetitemid(10)) Sleep 2 MenuSelect(Menugetitemid(1)) Sleep 2 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - Active.Yes - end if - end if - '/// string in Undo-list has to be: "Header/footer changed") - Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) - - '/// close document - Call hCloseDocument + '/// string in Undo-list has to be: "Header/footer changed") + Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) + + '/// Delete footer + printlog "- Delete footer" + Kontext "DocumentWriter" + DocumentWriter.UseMenu + MenuSelect(Menugetitemid(4)) + Sleep 2 + MenuSelect(Menugetitemid(10)) + Sleep 2 + MenuSelect(Menugetitemid(1)) + Sleep 2 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + Active.Yes + end if + end if + '/// string in Undo-list has to be: "Header/footer changed") + Call CheckUndoStringInUndoList ( 10, "Header/Footer" ) + + '/// close document + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/w_CJKCTLDependency.bas b/testautomation/writer/optional/w_CJKCTLDependency.bas index 0b488aa0ffa9..f19d922cab47 100755..100644 --- a/testautomation/writer/optional/w_CJKCTLDependency.bas +++ b/testautomation/writer/optional/w_CJKCTLDependency.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test CJK and CTL support dependency '* diff --git a/testautomation/writer/optional/w_alternative_text.bas b/testautomation/writer/optional/w_alternative_text.bas index 1fd3ade0df1c..0096aed4ad3c 100755..100644 --- a/testautomation/writer/optional/w_alternative_text.bas +++ b/testautomation/writer/optional/w_alternative_text.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Alternative Texts For Writer Objects '* diff --git a/testautomation/writer/optional/w_autocorrection.bas b/testautomation/writer/optional/w_autocorrection.bas index a8549293f681..8bb2ae109b81 100644 --- a/testautomation/writer/optional/w_autocorrection.bas +++ b/testautomation/writer/optional/w_autocorrection.bas @@ -31,7 +31,7 @@ '* '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Tools / Autocorrection test '* diff --git a/testautomation/writer/optional/w_autotext.bas b/testautomation/writer/optional/w_autotext.bas index 71ebab149aa9..e30eb667cc7f 100755..100644 --- a/testautomation/writer/optional/w_autotext.bas +++ b/testautomation/writer/optional/w_autotext.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of autotext in writer '* diff --git a/testautomation/writer/optional/w_calculate.bas b/testautomation/writer/optional/w_calculate.bas index 71b7a7ef3043..cb38acdb02ca 100755..100644 --- a/testautomation/writer/optional/w_calculate.bas +++ b/testautomation/writer/optional/w_calculate.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Basic calculation functionality check '* diff --git a/testautomation/writer/optional/w_chinesetranslate.bas b/testautomation/writer/optional/w_chinesetranslate.bas index 4e35abbd7a19..07c14cf06f5a 100755..100644 --- a/testautomation/writer/optional/w_chinesetranslate.bas +++ b/testautomation/writer/optional/w_chinesetranslate.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test Chinese Translation '* diff --git a/testautomation/writer/optional/w_clipbrd.bas b/testautomation/writer/optional/w_clipbrd.bas index 22a3f0147cd8..5fa732706afc 100755..100644 --- a/testautomation/writer/optional/w_clipbrd.bas +++ b/testautomation/writer/optional/w_clipbrd.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Text only) '* diff --git a/testautomation/writer/optional/w_contextmenu.bas b/testautomation/writer/optional/w_contextmenu.bas index 1e9d47485283..c4646dc7c359 100755 --- a/testautomation/writer/optional/w_contextmenu.bas +++ b/testautomation/writer/optional/w_contextmenu.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of contextmenus in writer '* diff --git a/testautomation/writer/optional/w_drawing_tools.bas b/testautomation/writer/optional/w_drawing_tools.bas index 4c826ca46c40..888e94d4ec4f 100755..100644 --- a/testautomation/writer/optional/w_drawing_tools.bas +++ b/testautomation/writer/optional/w_drawing_tools.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Tools / Autocorrection test '* diff --git a/testautomation/writer/optional/w_dropdownLB.bas b/testautomation/writer/optional/w_dropdownLB.bas index f22b88745463..c3978bd8e0cc 100755..100644 --- a/testautomation/writer/optional/w_dropdownLB.bas +++ b/testautomation/writer/optional/w_dropdownLB.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test Drop Down List Box '* diff --git a/testautomation/writer/optional/w_fields.bas b/testautomation/writer/optional/w_fields.bas index 8c51c5f5ee94..6a9d363dae3c 100755..100644 --- a/testautomation/writer/optional/w_fields.bas +++ b/testautomation/writer/optional/w_fields.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of content and update reliability of the fields '* diff --git a/testautomation/writer/optional/w_filter.bas b/testautomation/writer/optional/w_filter.bas index 446c7d8242c9..f4d223b27301 100755 --- a/testautomation/writer/optional/w_filter.bas +++ b/testautomation/writer/optional/w_filter.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Filter Availability Test (Import/Export/Group names) '* diff --git a/testautomation/writer/optional/w_fontwork.bas b/testautomation/writer/optional/w_fontwork.bas index 10b2ee98d172..99c2574cc175 100755..100644 --- a/testautomation/writer/optional/w_fontwork.bas +++ b/testautomation/writer/optional/w_fontwork.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Fontwork test '* diff --git a/testautomation/writer/optional/w_formatcharacter.bas b/testautomation/writer/optional/w_formatcharacter.bas index 2a0eae6ee542..31a895fa3f27 100755 --- a/testautomation/writer/optional/w_formatcharacter.bas +++ b/testautomation/writer/optional/w_formatcharacter.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Formatting of characters, setting styles etc. '* diff --git a/testautomation/writer/optional/w_formatpage.bas b/testautomation/writer/optional/w_formatpage.bas index 1910ac7c95e2..5354809b1696 100755..100644 --- a/testautomation/writer/optional/w_formatpage.bas +++ b/testautomation/writer/optional/w_formatpage.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Page Formatting / Page Styles '* diff --git a/testautomation/writer/optional/w_formatparagraph.bas b/testautomation/writer/optional/w_formatparagraph.bas index 728feb6c07db..785e177a9d15 100755..100644 --- a/testautomation/writer/optional/w_formatparagraph.bas +++ b/testautomation/writer/optional/w_formatparagraph.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of Paragraph '* diff --git a/testautomation/writer/optional/w_hhConversion.bas b/testautomation/writer/optional/w_hhConversion.bas index 8f062e8f57e9..594623540f25 100755..100644 --- a/testautomation/writer/optional/w_hhConversion.bas +++ b/testautomation/writer/optional/w_hhConversion.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test Hangul/Hanja Conversion '* diff --git a/testautomation/writer/optional/w_hyphenation.bas b/testautomation/writer/optional/w_hyphenation.bas index 126b904b6aad..666ec36b75fd 100755..100644 --- a/testautomation/writer/optional/w_hyphenation.bas +++ b/testautomation/writer/optional/w_hyphenation.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Tools / Hyphenation test '* diff --git a/testautomation/writer/optional/w_insertgraphic.bas b/testautomation/writer/optional/w_insertgraphic.bas index f6707185b895..381dcd9d3f89 100755..100644 --- a/testautomation/writer/optional/w_insertgraphic.bas +++ b/testautomation/writer/optional/w_insertgraphic.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of Graphic function '* diff --git a/testautomation/writer/optional/w_issuezilla_regression.bas b/testautomation/writer/optional/w_issuezilla_regression.bas index f515ef94359e..c4a92a3ce3ad 100755 --- a/testautomation/writer/optional/w_issuezilla_regression.bas +++ b/testautomation/writer/optional/w_issuezilla_regression.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Avoid regression (Issuezilla tasks) '* diff --git a/testautomation/writer/optional/w_loadsave.bas b/testautomation/writer/optional/w_loadsave.bas index bef58505d3c0..b0fd90f259b9 100755..100644 --- a/testautomation/writer/optional/w_loadsave.bas +++ b/testautomation/writer/optional/w_loadsave.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Checks the file-export/import through API-Filters '* diff --git a/testautomation/writer/optional/w_navigator.bas b/testautomation/writer/optional/w_navigator.bas index 82bbc7d34fcd..97a188ea5ff9 100755..100644 --- a/testautomation/writer/optional/w_navigator.bas +++ b/testautomation/writer/optional/w_navigator.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer-Navigator test '* diff --git a/testautomation/writer/optional/w_numbering.bas b/testautomation/writer/optional/w_numbering.bas index 1711122d74e1..7844baec136f 100755 --- a/testautomation/writer/optional/w_numbering.bas +++ b/testautomation/writer/optional/w_numbering.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer numbering test '* diff --git a/testautomation/writer/optional/w_opt.bas b/testautomation/writer/optional/w_opt.bas index b776c84c0cea..541f19c41194 100755 --- a/testautomation/writer/optional/w_opt.bas +++ b/testautomation/writer/optional/w_opt.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : WRITER-Options Test '* diff --git a/testautomation/writer/optional/w_redlining.bas b/testautomation/writer/optional/w_redlining.bas index 7dddecc9ef36..13babf613ebf 100755..100644 --- a/testautomation/writer/optional/w_redlining.bas +++ b/testautomation/writer/optional/w_redlining.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the Redlining function '* diff --git a/testautomation/writer/optional/w_search.bas b/testautomation/writer/optional/w_search.bas index 0e8f4ebc7097..b78b332f2c8c 100755 --- a/testautomation/writer/optional/w_search.bas +++ b/testautomation/writer/optional/w_search.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Search & Replace and testing of regular expressions '* diff --git a/testautomation/writer/optional/w_section.bas b/testautomation/writer/optional/w_section.bas index 2643435285c8..e0cabbb27c01 100755..100644 --- a/testautomation/writer/optional/w_section.bas +++ b/testautomation/writer/optional/w_section.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Section test '* diff --git a/testautomation/writer/optional/w_shortcuts.bas b/testautomation/writer/optional/w_shortcuts.bas index 7fa6596d276e..707cf901896a 100755 --- a/testautomation/writer/optional/w_shortcuts.bas +++ b/testautomation/writer/optional/w_shortcuts.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of shortcuts in writer '* diff --git a/testautomation/writer/optional/w_sorting.bas b/testautomation/writer/optional/w_sorting.bas index 5667adce63b9..18fa47675597 100755..100644 --- a/testautomation/writer/optional/w_sorting.bas +++ b/testautomation/writer/optional/w_sorting.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Sorting functions in Writer '* diff --git a/testautomation/writer/optional/w_spellcheck.bas b/testautomation/writer/optional/w_spellcheck.bas index 87288fbb5e8b..13d20ffb860f 100755..100644 --- a/testautomation/writer/optional/w_spellcheck.bas +++ b/testautomation/writer/optional/w_spellcheck.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer-Spellcheck-Test '* diff --git a/testautomation/writer/optional/w_stylist.bas b/testautomation/writer/optional/w_stylist.bas index c8368308766a..f91a4ca9ea22 100755..100644 --- a/testautomation/writer/optional/w_stylist.bas +++ b/testautomation/writer/optional/w_stylist.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test of the writer stylist '* diff --git a/testautomation/writer/optional/w_table.bas b/testautomation/writer/optional/w_table.bas index 3e800cec8d10..e82ad4a25ea5 100755 --- a/testautomation/writer/optional/w_table.bas +++ b/testautomation/writer/optional/w_table.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Table test '* diff --git a/testautomation/writer/optional/w_textframes.bas b/testautomation/writer/optional/w_textframes.bas index 9e9072348b40..80f2f2bfaec3 100755..100644 --- a/testautomation/writer/optional/w_textframes.bas +++ b/testautomation/writer/optional/w_textframes.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the functionality of textframes '* diff --git a/testautomation/writer/optional/w_undo.bas b/testautomation/writer/optional/w_undo.bas index a852f44739b9..52c5f73b3045 100755..100644 --- a/testautomation/writer/optional/w_undo.bas +++ b/testautomation/writer/optional/w_undo.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testing verbosity and functionality of the undo history '* diff --git a/testautomation/writer/optional/ww_opt.bas b/testautomation/writer/optional/ww_opt.bas index 511759bccbc3..994e2bb45ec3 100755 --- a/testautomation/writer/optional/ww_opt.bas +++ b/testautomation/writer/optional/ww_opt.bas @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.coms +'* owner : helge.delfs@oracle.coms '* '* short description : HTML-Options-Test '* diff --git a/testautomation/writer/required/includes/w_001_.inc b/testautomation/writer/required/includes/w_001_.inc index 24292afc4a2a..8cd43ccbcbae 100644..100755 --- a/testautomation/writer/required/includes/w_001_.inc +++ b/testautomation/writer/required/includes/w_001_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Required-Testcases for the File-menu. '* @@ -55,9 +55,6 @@ end sub testcase tFileNewLabels -QAErrorLog "#i102218# - tFileNewLabels outcommented due to bug." -goto endsub - Dim iSheetFormat as integer Dim iBrandIndex as integer Dim iType as integer @@ -78,7 +75,7 @@ goto endsub cBrandList( 10 ) = "Sigel" PrintLog "Open Labels-dialog with File / New / Labels" - if ( hCreateLabels ) then + if ( hCreateLabels() ) then Call DialogTest( TabEtiketten ) @@ -86,7 +83,8 @@ goto endsub PrintLog "Check number of brands and types (see #i44801# for details)" For iSheetFormat = 1 to 2 - + + kontext "TabEtiketten" Select Case( iSheetFormat ) Case 1 Endlos.Check @@ -247,9 +245,6 @@ endcase testcase tFileNewBusinessCards -QAErrorLog "#i102218# - tFileNewBusinessCards outcommented due to bug." -goto endsub - Dim iFormat as integer Dim iBrand as integer Dim iType as integer @@ -359,7 +354,7 @@ goto endsub Kontext "Active" if ( Active.GetRT = 304 ) then - Warnlog( "UNexpected messagebox: " & Active.GetText() ) + Warnlog( "Unexpected messagebox: " & Active.GetText() ) Active.Ok end if diff --git a/testautomation/writer/required/includes/w_001a_.inc b/testautomation/writer/required/includes/w_001a_.inc index ad4951e89a44..b33751752512 100644..100755 --- a/testautomation/writer/required/includes/w_001a_.inc +++ b/testautomation/writer/required/includes/w_001a_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description: Testcases for the Writer Required-test. '* @@ -224,23 +224,15 @@ testcase tFileTemplatesAddressbookSource UseBindings FileTemplatesAddressbookSource - WaitSlot(2000) PrintLog " In 'Address Book Assignement' dialog click pushbutton 'Administrate'" Kontext "AddressbookSource" - if AddressbookSource.Exists then + if AddressbookSource.Exists( 2 ) then Call DialogTest (AddressbookSource) Administrate.Click - Sleep 2 + PrintLog " Close 'Data Source Administration' with 'Cancel'" Kontext "DatabaseProperties" - if Not DatabaseProperties.Exists then - Kontext "AddressSourceAutopilot" - if AddressSourceAutopilot.Exists then - AddressSourceAutopilot.Cancel - end if - Kontext "AddressbookSource" - AddressbookSource.Cancel - else + if ( DatabaseProperties.Exists( 2 ) ) then PrintLog " DatabaseProperties.SetPage TabConnection" Kontext "TabConnection" Call DialogTest ( TabConnection ) @@ -249,6 +241,13 @@ testcase tFileTemplatesAddressbookSource Kontext "AddressbookSource" PrintLog " Close dialog" AddressbookSource.Cancel + else + Kontext "AddressSourceAutopilot" + if AddressSourceAutopilot.Exists( 1 ) then + AddressSourceAutopilot.Cancel + end if + Kontext "AddressbookSource" + AddressbookSource.Cancel end if end if @@ -315,13 +314,8 @@ testcase tFilePagePreview gehtnicht = FALSE printlog " Open new document" Select Case gApplication - Case "WRITER" - Call hNewDocument - - Case "MASTERDOCUMENT" - Call hNewDocument - - Case "HTML" + Case "WRITER", "MASTERDOCUMENT" : hNewDocument() + Case else printlog "Not in Writer/Web!" goto endsub end select @@ -358,9 +352,9 @@ testcase tFilePagePreview if Active.Exists then QAErrorlog "No default printer!" Active.ok - Sleep 1 + Kontext "Printing" - if Printing.Exists then Printing.Cancel + if Printing.Exists( 2 ) then Printing.Cancel else printlog " Close 'Print' dialog with cancel" Kontext "Printing" @@ -392,9 +386,9 @@ testcase tFilePrinterSetup if Active.GetRT = 304 then QAErrorLog "No Default Printer!" Active.Ok - Sleep 2 + Kontext "DruckerEinrichten" - if DruckerEinrichten.Exists then + if DruckerEinrichten.Exists( 2 ) then Call DialogTest ( DruckerEinrichten ) DruckerEinrichten.Cancel end if diff --git a/testautomation/writer/required/includes/w_001b_.inc b/testautomation/writer/required/includes/w_001b_.inc index 979ae00504b8..e20d497482f0 100644..100755 --- a/testautomation/writer/required/includes/w_001b_.inc +++ b/testautomation/writer/required/includes/w_001b_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Required-Testcases for the File-menu. '* @@ -90,11 +90,8 @@ testcase tFileSendCreateHTMLDocument PrintLog "- File / Send / Create HTML-Dokument" PrintLog "Open new document" Select Case gApplication - Case "WRITER" - Call hNewDocument - Case "MASTERDOCUMENT" - Call hNewDocument - Case "HTML" + Case "WRITER", "MASTERDOCUMENT" : hNewDocument() + Case else printlog "Not in WriterWeb!" goto endsub end select @@ -159,11 +156,8 @@ testcase tFileSendOutlineToPresentation endif Kontext "Navigator" - if Navigator.Exists then Navigator.Close - PrintLog "Close documents" - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hCloseDialog( Navigator, "Close,optional" ) + hFileCloseAll() endcase '----------------------------------------------------------- @@ -259,13 +253,9 @@ testcase tFileSendCreateAutoabstract endcatch Kontext "Navigator" - if Navigator.Exists then Navigator.Close - Sleep 1 + hCloseDialog( Navigator, "Close,optional" ) + hFileCloseAll() - PrintLog "Close active documents" - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop endcase '----------------------------------------------------------- @@ -321,12 +311,11 @@ testcase tFileSendAutoabstractToPresentation Warnlog "- Outline in Impress not created!" endif Kontext "Navigator" - if Navigator.Exists then Navigator.Close - Sleep 1 + hCloseDialog( Navigator, "Close,optional" ) Call hCloseDocument PrintLog "Close active document" - Call wDocSetContext + hSetDocumentContext() FileClose endcase '-------------------------------------------------------------------------------------------------------------------------------------------- @@ -694,10 +683,7 @@ testcase tMasterDocFileSendOutlineToPresentation endif Kontext "Navigator" - if Navigator.Exists then - Navigator.Close - WaitSlot() - endif + hCloseDialog( Navigator, "Close,optional" ) PrintLog "Close documents" hFileCloseAll() @@ -755,10 +741,7 @@ testcase tMasterDocFileSendCreateAutoabstract Call hFileOpen ( gTesttoolPath + "writer\required\input\" + sFile ) Kontext "Navigator" - if ( Navigator.Exists ) then - Navigator.Close - WaitSlot() - endif + hCloseDialog( Navigator, "Close,optional" ) Kontext "DocumentWriter" PrintLog "File / Send / Create Autoabstract" @@ -788,10 +771,7 @@ testcase tMasterDocFileSendCreateAutoabstract endif Kontext "Navigator" - if ( Navigator.Exists ) then - Navigator.Close() - WaitSlot() - endif + hCloseDialog( Navigator, "Close,optional" ) PrintLog "Close documents" hFileCloseAll() @@ -811,10 +791,7 @@ testcase tMasterDocFileSendAutoabstractToPresentation Call hFileOpen ( gTesttoolPath + "writer\required\input\" + sFile ) Kontext "Navigator" - if Navigator.Exists then - Navigator.Close - Waitslot() - endif + hCloseDialog( Navigator, "Close,optional" ) Kontext "DocumentWriter" PrintLog "File / Send / Create Autoabstract To Presentation" @@ -854,15 +831,12 @@ testcase tMasterDocFileSendAutoabstractToPresentation endif Kontext "Navigator" - if Navigator.Exists then - Navigator.Close - WaitSlot() - endif + hCloseDialog( Navigator, "Close,optional" ) Call hCloseDocument PrintLog "Close active document" - Call wDocSetContext + hSetDocumentContext() FileClose gApplication = "WRITER" diff --git a/testautomation/writer/required/includes/w_002_.inc b/testautomation/writer/required/includes/w_002_.inc index 73de7ba6edeb..20ddaf92a6b9 100755 --- a/testautomation/writer/required/includes/w_002_.inc +++ b/testautomation/writer/required/includes/w_002_.inc @@ -1,5 +1,5 @@ 'encoding UTF-8 Do not remove or change this line! -'************************************************************************** +'******************************************************************************* ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2000, 2010 Oracle and/or its affiliates. @@ -23,13 +23,13 @@ ' <http://www.openoffice.org/license.html> ' for a copy of the LGPLv3 License. ' -'/************************************************************************ -'* ** -'* owner : helge.delfs@sun.com ** -'* ** -'* short description : ** -'* ** -'\****************************************************************** +'/****************************************************************************** +'* ** +'* owner : helge.delfs@oracle.com ** +'* ** +'* short description : ** +'* ** +'\****************************************************************************** sub w_002_ @@ -60,14 +60,13 @@ sub w_002_ Call tEditImageMap Call tEditObjectEdit - 'Writer Web - gApplication = "HTML" - Call tHtmlDocEditFields - gApplication = "WRITER" - 'Writer Master Document gApplication = "MASTERDOCUMENT" Call tMasterDocEditNavigator + + gApplication "HTML" + Call tEditFields + gApplication = "WRITER" end sub @@ -82,6 +81,7 @@ testcase tEditUndoRedo PrintLog "Insert table" Call hTabelleEinfuegen + PrintLog "Edit / Undo" hUseAsyncSlot( "EditUndo" ) @@ -93,13 +93,14 @@ testcase tEditUndoRedo PrintLog "File / Close" hUseAsyncSlot( "FileClose" ) - Kontext - if ( Active.Exists ) then - if Active.GetRT = 304 then - WarnLog ( "Messagebox: '" & Active.Gettext & "' should not appear" ) - Active.No - end if + + Kontext "Active" + if ( Active.Exists( 1 ) ) then + warnlog( "No messagebox was expected upon file close" ) + printlog( Active.getText ) + Active.no() end if + endcase '---------------------------------------------------- @@ -172,64 +173,62 @@ testcase tEditPasteSpecial PrintLog "Open new document" Call hNewDocument - if gSamePC = TRUE then - PrintLog " - External Clipboard" - PrintLog "Enter some text in external clipboard" - SetClipboard "Text from external clipboard!" + PrintLog " - External Clipboard" + PrintLog "Enter some text in external clipboard" + SetClipboard "Text from external clipboard!" - PrintLog "Paste from external clipboard with Edit / Paste in Office" - hUseAsyncSlot( "EditPaste" ) + PrintLog "Paste from external clipboard with Edit / Paste in Office" + hUseAsyncSlot( "EditPaste" ) - Call wTypeKeys("<Mod1 A>") - Wait(200) - hUseAsyncSlot( "EditCopy" ) + Call wTypeKeys("<Mod1 A>") + Wait(200) + hUseAsyncSlot( "EditCopy" ) - if GetClipboardText <> "Text from external clipboard!" then - Warnlog "External Clipboard not available!" - Warnlog "Is: " & GetClipboardText - end if - Call wTypeKeys("<End><Return>") - SetClipboard "" - SetClipboard "2nd Text from external clipboard!" - try - PrintLog "Edit / Paste / Special" - hUseAsyncSlot( "EditPasteSpecialWriter" ) - - Kontext "InhaltEinfuegen" - if ( InhaltEinfuegen.Exists( 2 ) ) then - try - Auswahl.Select 1 - catch - Warnlog "Unable to select entry in format list !" - InhaltEinfuegen.Close - Call hCloseDocument - goto endsub - endcatch - InhaltEinfuegen.OK - Wait(200) - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - Warnlog "Maybe Bug#109331" - Warnlog Active.Gettext - try - Active.Ok - catch - Active.No - endcatch - end if - else - Call wTypeKeys("<Home><Shift End>") - hUseAsyncSlot( "EditCopy" ) - if GetClipboardText <> "2nd Text from external clipboard!" then Warnlog "Wrong Text inserted! Is: " & GetClipboardText + if GetClipboardText <> "Text from external clipboard!" then + Warnlog "External Clipboard not available!" + Warnlog "Is: " & GetClipboardText + end if + Call wTypeKeys("<End><Return>") + SetClipboard "" + SetClipboard "2nd Text from external clipboard!" + try + PrintLog "Edit / Paste / Special" + hUseAsyncSlot( "EditPasteSpecialWriter" ) + + Kontext "InhaltEinfuegen" + if ( InhaltEinfuegen.Exists( 2 ) ) then + try + Auswahl.Select 1 + catch + Warnlog "Unable to select entry in format list !" + InhaltEinfuegen.Close + Call hCloseDocument + goto endsub + endcatch + InhaltEinfuegen.OK + Wait(200) + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + Warnlog "Maybe Bug#109331" + Warnlog Active.Gettext + try + Active.Ok + catch + Active.No + endcatch end if else - Warnlog "Dialog 'Paste Special' is not up!" + Call wTypeKeys("<Home><Shift End>") + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "2nd Text from external clipboard!" then Warnlog "Wrong Text inserted! Is: " & GetClipboardText end if - catch - Exceptlog - endcatch - end if + else + Warnlog "Dialog 'Paste Special' is not up!" + end if + catch + Exceptlog + endcatch PrintLog " - Internal Clipboard with StarOffice Writer-Text" PrintLog "Enter some text in writer and copy it" @@ -316,11 +315,7 @@ testcase tEditChanges PrintLog "Passwort-dialog has to come up, cancel it" Kontext "Passwort" - if ( Passwort.Exists( 1 ) ) then - Passwort.Close - else - Warnlog "Password-dialog is not up!" - end if + hCloseDialog( Passwort, "close" ) PrintLog "Edit / Changes / Accept or Reject" EditChangesAcceptOrReject @@ -368,52 +363,67 @@ endcase '---------------------------------------------------- testcase tEditCompareDocument + PrintLog "- Edit/Compare Document" - Select Case gApplication - Case "WRITER" - Call hNewDocument - PrintLog "Open new document" - EditCompareDocumentCalc - PrintLog "Edit / Compare document" - Case "MASTERDOCUMENT" - printlog "Comparing documents not in Masterdocument!" - goto endsub - Case "HTML" - printlog "Comparing documents not in WriterWeb!" + + dim sFile as string + sFile = gTesttoolPath & "writer\required\input\bt.sxw" + + if ( gApplication <> "WRITER" ) then + printlog( "Test only designed for WRITER, skipping" ) goto endsub - end select + endif - if gUseSysDlg = False then - Kontext "OeffnenDlg" - Dateiname.SetText ConvertPath ( gTesttoolPath & "writer\required\input\bt.sxw" ) - PrintLog "in File-Open-dialog load ..\writer\required\input\bt.sxw" - Oeffnen.Click - end if - Kontext "FilterAuswahl" - if Filterauswahl.Exists then Filterauswahl.OK - Sleep 1 - Kontext "Active" - if Active.Exists then - Warnlog Active.Gettext - Active.Ok - end if + call hNewDocument() + + printlog( "Open test document") + EditCompareDocumentCalc + + Kontext "OeffnenDlg" + printlog( "File Open dialog" ) + if ( OeffnenDlg.exists( 2 ) ) then + + printlog( "Load file: " & sFile ) + Dateiname.SetText ConvertPath ( sFile ) + Oeffnen.Click() + + Kontext "FilterAuswahl" + printlog( "Check for filterselection dialog (comes up e.g. if file is broken)" ) + if Filterauswahl.Exists( 2 ) then + warnlog( "Dialog <Filterauswahl> was not expected at this point" ) + Filterauswahl.OK() + else + printlog( "No dialog <Filterauswahl>, good" ) + endif + + Kontext "Active" + if Active.Exists( 1 ) then + warnlog( "Unexpected messagebox displayed:" ) + printlog( Active.getText() ) + Active.Ok() + else + printlog( "No unexpected messageboxes, good." ) + endif - Kontext "Redlining" - PrintLog "Dialog 'Accept and Reject changes' has to come up" - if Redlining.Exists then - TabControl.SetPage TabListe - wait 200 - Kontext "Redlining" - TabControl.SetPage TabFilter Kontext "Redlining" - Redlining.Close - PrintLog "Close dialog" + PrintLog "Dialog 'Accept and Reject changes' has to come up" + if Redlining.Exists( 1 ) then + TabControl.SetPage TabListe + wait 200 + Kontext "Redlining" + TabControl.SetPage TabFilter + Kontext "Redlining" + hCloseDialog( Redlining, "close" ) + else + Warnlog "- Dialog 'Redlining' does not exist!" + endif else - Warnlog "- Dialog 'Redlining' does not exist!" - end if + warnlog( "Dialog <FileOpen> did not open") + endif - Call hCloseDocument PrintLog "Close active document" + Call hCloseDocument + endcase '---------------------------------------------------- @@ -529,24 +539,15 @@ testcase tViewNavigator Kontext "NavigatorWriter" Umschalten.Click - Kontext "NavigatorGlobalDoc" - Sleep (1) - printlog " - Bearbeiten" - try - Bearbeiten.Click - catch - Sleep (2) - try - Bearbeiten.Click - catch - Warnlog " Either taking more than three seconds to switch Navigator-modes, or something has gone wrong." - endcatch - endcatch - wait (300) + Kontext "NavigatorGlobalDoc" + printlog( "Click <Edit>" ) + if ( hClickButton( Bearbeiten ) = -1 ) then + warnlog( "Unable to click <Edit> button, cannot switch Navigator-Mode" ) + endif Kontext "Navigator" - Navigator.Close + hCloseDialog( Navigator, "close" ) Call hCloseDocument PrintLog "Close active document" goto endsub @@ -680,9 +681,9 @@ testcase tEditAutotext PrintLog "Click Categories" Kontext "Autotext" Bereiche.Click - Sleep 1 + Kontext "BereicheBearbeitenAutoText" - if BereicheBearbeitenAutoText.Exists then + if BereicheBearbeitenAutoText.Exists( 2 ) then DialogTest ( BereicheBearbeitenAutoText ) PrintLog "Create a new categorie" Bereich.SetText "Hallo" @@ -695,12 +696,11 @@ testcase tEditAutotext if Neu.IsEnabled then Neu.Click Wait (200) - if Loeschen.IsEnabled then - PrintLog "Delete created categorie" - Loeschen.Click - else - Warnlog "- Not able to delete new category. Button disabled!" - end if + + printlog( "Click <Delete>" ) + if ( hClickButton( Loeschen ) = -1 ) then + warnlog( "Unable to delete category, the button is disabled" ) + endif else if gNetzInst = False then Warnlog "- Category cannot be created!" @@ -720,20 +720,19 @@ testcase tEditAutotext Kontext "PfadeAuswaehlen" PrintLog "On 'Select Paths' dialog click 'add'" Hinzufuegen.Click - wait 200 + Kontext "OeffnenDlg" - if OeffnenDlg.Exists then + if OeffnenDlg.Exists( 2 ) then PrintLog "Cancel File-Open dialog" - OeffnenDlg.Cancel + hCloseDialog( OeffnenDlg, "cancel" ) else Warnlog "Dialog ' Select Paths' not up!" end if - wait 200 + Kontext "PfadeAuswaehlen" PrintLog "Cancel dialog 'Select Paths'" - PfadeAuswaehlen.Cancel + hCloseDialog( PfadeAuswaehlen, "cancel" ) - Wait (300) Kontext "AutoText" PrintLog "We have to create an autotext first" PrintLog "to assure the 'Autotext'-Button enabled" @@ -788,6 +787,7 @@ testcase tEditAutotext Call hCloseDocument goto endsub end if + printlog "Select created autotext" EditAutotext WaitSlot (2000) @@ -856,14 +856,16 @@ testcase tEditAutotext exit do end if Loop + ' Dialog needs some time to be opened Kontext "MakroZuweisen" - if NOT MakroZuweisen.Exists(5) then - warnlog "AutoText-Macro - Assign Macro took longer than 5 seconds to load. Check why." + printlog( "Close <MakroZuweisen> dialog" ) + if ( MakroZuweisen.exists( 5 ) ) then + call Dialogtest( MakroZuweisen ) + hCloseDialog( MakroZuweisen, "close" ) else - PrintLog "Cancel 'Macro' dialog" - MakroZuweisen.Cancel - end if + warnlog "AutoText-Macro - Assign Macro took longer than 5 seconds to load. Check why." + endif catch Warnlog "Menu Autotext->'Macro' disabled !" Call hMenuClose @@ -922,200 +924,143 @@ endcase testcase tEditHyperlink Printlog "- Edit / Hyperlink" - Call hNewDocument + PrintLog "Open new document" - InsertHyperlink + Call hNewDocument + PrintLog "Insert / Hyperlink" - WaitSlot(5000) - Kontext "Hyperlink" - - Call wEinfuegenHyperlink(1) - Kontext "TabHyperlinkInternet" - Internet.Check - ZielUrl.Settext "http://www.sonor.de" - PrintLog "Enter URL " - Kontext "Hyperlink" - PrintLog "Click 'Apply'" - Uebernehmen.Click - PrintLog "Close Hyperlink dialog" - Hyperlink.Close - - Call wDocSetContext - try - PrintLog "Check if correct URL has been set to document" - hUseAsyncSlot( "EditCopy" ) + InsertHyperlink + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + + PrintLog "Insert / Hyperlink" + Call wEinfuegenHyperlink(1) + + Kontext "TabHyperlinkInternet" + printlog( "Check <Internet>" ) + Internet.Check() + + PrintLog "Enter URL " + ZielUrl.Settext "http://www.sonor.de" + + Kontext "Hyperlink" + PrintLog "Click 'Apply'" + Uebernehmen.Click + + kontext "HyperlinkDialog" + PrintLog "Close Hyperlink dialog" + hClickButton( CloseButton ) + else + warnlog( "Dialog <Hyperlink> did not open" ) + hCloseDocument() + goto endsub + endif + + hSetDocumentContext() + + PrintLog "Check if correct URL has been set to document" + if ( hUseAsyncSlot( "EditCopy" ) > -1 ) then if GetClipBoardtext = "" then Warnlog "No Hyperlink or wrong hyperlink in document!" & GetClipBoardtext end if - catch - Warnlog "No Hyperlink in document!" - goto endsub - endcatch + else + warnlog( "Slot <EditCopy> could not be executed. Most likely the hyperlink was not selected" ) + endif PrintLog "Set cursor into link" Call wTypeKeys("<Left>") - try - PrintLog "Edit / Hyperlink has to be enabled" - EditHyperlink - Kontext "Hyperlink" - if Hyperlink.Exists then - Hyperlink.Close - else - Warnlog "- Hyperlinkdialog not up" - end if - catch - Warnlog "- Not able to edit Hyperlink!" - endcatch + + PrintLog "Edit / Hyperlink has to be enabled" + if ( hUseAsyncSlot( "EditHyperlink" ) > -1 ) then + kontext "HyperlinkDialog" + hClickButton( CloseButton ) + else + warnlog( "Slot <EditHyperlink> could not be called" ) + endif PrintLog "Close active document" Call hCloseDocument endcase -'---------------------------------------------------------------- +' ---------------------------------------------------------------- testcase tEditFields - PrintLog "- Edit/Fields" - PrintLog "Open new document" - Call hNewDocument + PrintLog( "Edit/Fields: Edit Fields dialog: " & gApplication ) + dim iCurrentType as integer - PrintLog "Select Insert / Fields Other" - InsertFieldsOther - Kontext - Active.Setpage TabDokumentFeldbefehle - Kontext "TabDokumentFeldbefehle" - Sleep 1 - PrintLog "Insert Field 'Sender -> Company'" - Select Case gApplication - Case "HTML" - Select case iSprache - case 01 : Feldtyp.Select 5 'Sender - Auswahl.Select 1 'Company - case 03 : Feldtyp.Select 8 - Auswahl.Select 1 - case 07 : Feldtyp.Select 5 - Auswahl.Select 1 - case 31 : Feldtyp.Select 1 - Auswahl.Select 1 - case 33 : Feldtyp.Select 2 - Auswahl.Select 1 - case 34 : Feldtyp.Select 6 - Auswahl.Select 1 - case 36 : Feldtyp.Select 3 - Auswahl.Select 1 - case 39 : Feldtyp.Select 3 - Auswahl.Select 1 - case 45 : Feldtyp.Select 1 - Auswahl.Select 1 - case 46 : Feldtyp.Select 2 - Auswahl.Select 1 - case 48 : Feldtyp.Select 3 - Auswahl.Select 1 - case 49 : Feldtyp.Select 1 - Auswahl.Select 1 - case 51 : Feldtyp.Select 5 - Auswahl.Select 1 - case 52 : Feldtyp.Select 5 - Auswahl.Select 1 - case 55 : Feldtyp.Select 7 - Auswahl.Select 1 - case 81 : Feldtyp.Select 4 - Auswahl.Select 1 - case 82 : Feldtyp.Select 2 - Auswahl.Select 1 - case 84 : Feldtyp.Select 3 - Auswahl.Select 1 - case 86 : Feldtyp.Select 1 - Auswahl.Select 1 - case 88 : Feldtyp.Select 2 - Auswahl.Select 1 - - case else : Warnlog "Missing language support!" - TabDokumentFeldbefehle.Cancel - PrintLog "Close active document" - Call hCloseDocument - goto endsub - end select - Case else - Select case iSprache - case 01 : Feldtyp.Select 6 'Sender - Auswahl.Select 1 'Company - case 03 : Feldtyp.Select 9 - Auswahl.Select 1 - case 07 : Feldtyp.Select 6 - Auswahl.Select 1 - case 31 : Feldtyp.Select 1 - Auswahl.Select 1 - case 33 : Feldtyp.Select 3 - Auswahl.Select 1 - case 34 : Feldtyp.Select 8 - Auswahl.Select 1 - case 36 : Feldtyp.Select 4 - Auswahl.Select 1 - case 39 : Feldtyp.Select 4 - Auswahl.Select 1 - case 45 : Feldtyp.Select 1 - Auswahl.Select 1 - case 46 : Feldtyp.Select 2 - Auswahl.Select 1 - case 48 : Feldtyp.Select 3 - Auswahl.Select 1 - case 49 : Feldtyp.Select 1 - Auswahl.Select 1 - case 51 : Feldtyp.Select 6 - Auswahl.Select 1 - case 52 : Feldtyp.Select 6 - Auswahl.Select 1 - case 55 : Feldtyp.Select 9 - Auswahl.Select 1 - case 81 : Feldtyp.Select 5 - Auswahl.Select 1 - case 82 : Feldtyp.Select 2 - Auswahl.Select 2 - case 84 : Feldtyp.Select 5 - Auswahl.Select 1 - case 86 : Feldtyp.Select 1 - Auswahl.Select 1 - case 88 : Feldtyp.Select 2 - Auswahl.Select 1 - - case else : Warnlog "Missing language support!" - TabDokumentFeldbefehle.Cancel - PrintLog "Close active document" - Call hCloseDocument - goto endsub - end select - end select - - Einfuegen.Click - Wait (400) - PrintLog "Close Fields dialog" - Schliessen.Click - - PrintLog "Put cursor in front of field" - Call wTypeKeys("<Home>") - - PrintLog "Edit / Fields" - EditFields - WaitSlot (2000) + PrintLog( "Open new document" ) + Call hNewDocument() - Kontext "FeldbefehlBearbeitenDokument" - Call DialogTest ( FeldbefehlBearbeitenDokument ) + printlog( "Insert->Field->Other" ) + hUseAsyncSlot( "InsertFieldsOther" ) - PrintLog "In 'Edit Fields' dialog select 'Edit'" - if Bearbeiten.IsVisible and Bearbeiten.IsEnabled then - Bearbeiten.Click - Kontext "TabBenutzerdaten" - TabBenutzerdaten.Cancel - Kontext "FeldbefehlBearbeitenDokument" + ' Note that the tabdialog does not have a unique ID yet, so we treat it as "Active" + kontext + if ( Active.exists( 2 ) ) then + + printlog( "Switch to <Document> tab" ) + Active.setPage( TabDokumentFeldbefehle ) + + kontext "TabDokumentFeldbefehle" + printlog( "Select sender item from the user data, insert the field, close the dialog" ) + if ( TabDokumentFeldbefehle.isVisible() ) then + + ' Search for the sender item in the "Type" listbox by counting the + ' number of items in the "Select" box. Only the sender item has + ' more than 12 (usually 15) selectable options. + ' This is done to make sure that we have an enabled "Edit..." button + ' in the "Edit Fields" dialog called later in this test + printlog( "Search for suitable field type" ) + for iCurrentType = 1 to FeldTyp.getItemCount() + FeldTyp.select( iCurrentType ) + if ( Auswahl.isEnabled() and Auswahl.getItemCount() > 12 ) then + exit for + endif + next iCurrentType + + hClickButton( Einfuegen ) + hCloseDialog( TabDokumentFeldbefehle , "close" ) + + PrintLog( "Move cursor infront of field (start of document)" ) + Call wTypeKeys("<Home>") + + PrintLog( "Edit / Fields" ) + hUseAsyncSlot( "EditFields" ) + + Kontext "FeldbefehlBearbeitenDokument" + if ( FeldbefehlBearbeitenDokument.exists( 2 ) ) then + Call DialogTest ( FeldbefehlBearbeitenDokument ) + + PrintLog( "In 'Edit Fields' dialog select 'Edit'" ) + hClickButton( Bearbeiten ) + + Kontext "TabBenutzerdaten" + if ( TabBenutzerdaten.exists( 2 ) ) then + printlog( "<TabBenutzerdaten> is open. Good." ) + call DialogTest( TabBenutzerdaten ) + hCloseDialog( TabBenutzerdaten, "cancel" ) + else + warnlog( "<TabBenutzerdaten> did not open" ) + endif + else + warnlog( "<TabDokumentFeldbefehle> is not visible" ) + endif + + PrintLog( "Close dialog" ) + Kontext "FeldbefehlBearbeitenDokument" + hCloseDialog( FeldbefehlBearbeitenDokument, "cancel" ) + else + warnlog( "<FeldbefehlBearbeitenDokument> did not open" ) + endif else - Warnlog "Button 'Edit' in Dialog disabled!" - end if + warnlog( "Unable to open <InsertFieldsOther>") + endif + + PrintLog( "Close active document" ) + Call hCloseDocument() - PrintLog "Close dialog" - FeldbefehlBearbeitenDokument.Cancel - PrintLog "Close active document" - Call hCloseDocument endcase '---------------------------------------------------------------- @@ -1203,9 +1148,7 @@ endcase '---------------------------------------------------------------- testcase tEditIndexEntry - qaErrorLog "#158646# - Insert Indexes Entry causes crash." - goto endsub - + PrintLog "- Edit/Index Entry" if gApplication = "HTML" then printlog "Not in WriterWeb!" @@ -1249,53 +1192,66 @@ endcase testcase tEditLinks PrintLog "- Edit/Links" - if gApplication = "HTML" then + + dim sFile as string + sFile = gTesttoolPath & "writer\required\input\graphics\jolink.jpg" + + if ( gApplication = "HTML" ) then printlog "Not in WriterWeb!" goto endsub end if + printlog( "Open a new document" ) Call hNewDocument - Call hGrafikVerknuepftEinfuegen ( gTesttoolPath & "writer\required\input\graphics\jolink.jpg" ) - Wait 200 - try - EditLinksWriter - catch + + printlog( "Insert graphic file (linked): " & sFile ) + Call hGrafikVerknuepftEinfuegen ( sFile ) + + printlog( "Edit->Links" ) + if ( hUseAsyncSlot( "EditLinksWriter" ) = -1 ) then Warnlog "Error on calling Edit / Links ! (disabled)" Call hCloseDocument goto endsub - endcatch + endif Kontext "VerknuepfungenBearbeiten" - if VerknuepfungenBearbeiten.Exists then + if ( VerknuepfungenBearbeiten.Exists( 1 ) ) then Call DialogTest ( VerknuepfungenBearbeiten ) - Wait 200 - try - Aendern.Click + + Kontext "VerknuepfungenBearbeiten" + printlog( "Click <Change>" ) + if ( hClickButton( Aendern ) > -1 ) then Kontext "GrafikEinfuegenDlg" - GrafikEinfuegenDlg.Cancel - catch + call DialogTest( GrafikEinfuegenDlg ) + hCloseDialog( GrafikEinfuegenDlg, "cancel" ) + else Warnlog "Error modifying the link!" - endcatch + endif Kontext "VerknuepfungenBearbeiten" - Wait 200 - try - Aktualisieren.Click - catch + printlog( "Click <Update>" ) + if ( hClickButton( Aktualisieren ) = -1 ) then Warnlog "Error on updating the link!" - endcatch - Wait 200 + endif - try - Loesen.Click + Kontext "VerknuepfungenBearbeiten" + printlog( "Click <Release>" ) + if ( hClickButton( Loesen ) > -1 ) then Kontext "Active" - if Active.Exists then Active.No - catch - Warnlog "- Error on breaking the link!" - endcatch + printlog( "Check for confirmation message" ) + if ( Active.Exists( 1 ) ) then + printlog( "Message displayed, good. Closing with <No>" ) + printlog( Active.getText() ) + Active.No + else + Warnlog( "The <Are you sure you want to remove the selected link?> message is missing" ) + endif + else + Warnlog( "Unable to break the link to the file" ) + endif Kontext "VerknuepfungenBearbeiten" - VerknuepfungenBearbeiten.Close + hCloseDialog( VerknuepfungenBearbeiten, "close" ) else Warnlog "Dialog Edit / Links not opened!" end if @@ -1321,23 +1277,41 @@ endcase '------------------------------------------------------ testcase tEditImageMap - PrintLog "- Edit / ImageMap" + PrintLog "- Edit / ImageMap" + + dim sFile as string + sFile = gTesttoolPath & "writer\required\input\graphics\jolink.jpg" + PrintLog "Open new document" Call hNewDocument - if hGrafikEinfuegen ( gTesttoolPath & "writer\required\input\graphics\jolink.jpg" )=true then + printlog( "Insert graphics file: " & sFile ) + if ( hGrafikEinfuegen( sFile ) ) then + + printlog( "Edit->Imagemap" ) + EditImageMap + Kontext "ImageMapEditor" - if ImageMapEditor.Exists then ImageMapEditor.Close - try - EditImageMap - Kontext "ImageMapEditor" + if ( ImageMapEditor.exists( 1 ) ) then Call DialogTest (ImageMapEditor) - Sleep 1 - ImageMapEditor.Close - catch - Warnlog "Edit/ImageMap disabled!" - endcatch + hCloseDialog( ImageMapEditor, "close" ) + + printlog( "Check for <Imagemap changed> messagebox (should not appear)" ) + kontext "Active" + if ( Active.exists( 1 ) ) then + qaerrorlog( "#i109605# - <imagemap changed> message displayed." ) + printlog( Active.getText ) + Active.no() + else + printlog( "No messagebox on close, good." ) + endif + + else + warnlog( "Dialog <ImageMapEditor> did not open" ) + endif + else + warnlog( "Insert graphics failed" ) end if PrintLog "Close active document" @@ -1370,103 +1344,6 @@ endcase '---------------------------------------------------------------- -testcase tHtmlDocEditFields - PrintLog "- Edit/Fields" - - gApplication = "HTML" - PrintLog "Open new document" - Call hNewDocument - - PrintLog "Select Insert / Fields Other" - InsertFieldsOther - Kontext - Active.Setpage TabDokumentFeldbefehle - Kontext "TabDokumentFeldbefehle" - Sleep 1 - PrintLog "Insert Field 'Sender -> Company'" - Select case iSprache - case 01 : Feldtyp.Select 5 'Sender - Auswahl.Select 1 'Company - case 03 : Feldtyp.Select 8 - Auswahl.Select 1 - case 07 : Feldtyp.Select 5 - Auswahl.Select 1 - case 31 : Feldtyp.Select 1 - Auswahl.Select 1 - case 33 : Feldtyp.Select 2 - Auswahl.Select 1 - case 34 : Feldtyp.Select 6 - Auswahl.Select 1 - case 36 : Feldtyp.Select 3 - Auswahl.Select 1 - case 39 : Feldtyp.Select 3 - Auswahl.Select 1 - case 45 : Feldtyp.Select 1 - Auswahl.Select 1 - case 46 : Feldtyp.Select 2 - Auswahl.Select 1 - case 48 : Feldtyp.Select 3 - Auswahl.Select 1 - case 49 : Feldtyp.Select 1 - Auswahl.Select 1 - case 51 : Feldtyp.Select 5 - Auswahl.Select 1 - case 52 : Feldtyp.Select 5 - Auswahl.Select 1 - case 55 : Feldtyp.Select 7 - Auswahl.Select 1 - case 81 : Feldtyp.Select 4 - Auswahl.Select 1 - case 82 : Feldtyp.Select 2 - Auswahl.Select 1 - case 84 : Feldtyp.Select 3 - Auswahl.Select 1 - case 86 : Feldtyp.Select 1 - Auswahl.Select 1 - case 88 : Feldtyp.Select 2 - Auswahl.Select 1 - - case else : Warnlog "Missing language support!" - TabDokumentFeldbefehle.Cancel - PrintLog "Close active document" - Call hCloseDocument - goto endsub - end select - - Einfuegen.Click - Wait (400) - PrintLog "Close Fields dialog" - Schliessen.Click - - PrintLog "Put cursor in front of field" - Call wTypeKeys("<Home>") - - PrintLog "Edit / Fields" - EditFields - WaitSlot (2000) - - Kontext "FeldbefehlBearbeitenDokument" - Call DialogTest ( FeldbefehlBearbeitenDokument ) - - PrintLog "In 'Edit Fields' dialog select 'Edit'" - if Bearbeiten.IsVisible and Bearbeiten.IsEnabled then - Bearbeiten.Click - Kontext "TabBenutzerdaten" - TabBenutzerdaten.Cancel - Kontext "FeldbefehlBearbeitenDokument" - else - Warnlog "Button 'Edit' in Dialog disabled!" - end if - - PrintLog "Close dialog" - FeldbefehlBearbeitenDokument.Cancel - PrintLog "Close active document" - Call hCloseDocument - gApplication = "WRITER" -endcase - -'---------------------------------------------------------------- - testcase tMasterDocEditNavigator printlog "- View/Navigator" Dim ToolboxOk as boolean diff --git a/testautomation/writer/required/includes/w_003_.inc b/testautomation/writer/required/includes/w_003_.inc index 858cdd2ba6c5..1e9f5a7b65ce 100644..100755 --- a/testautomation/writer/required/includes/w_003_.inc +++ b/testautomation/writer/required/includes/w_003_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testscripts connected to the View-Menu. '* diff --git a/testautomation/writer/required/includes/w_004_.inc b/testautomation/writer/required/includes/w_004_.inc index 3a4234bfb18a..b157722ee145 100644..100755 --- a/testautomation/writer/required/includes/w_004_.inc +++ b/testautomation/writer/required/includes/w_004_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testcases with connection to the Insert-menu. '* @@ -36,49 +36,24 @@ sub w_004_ printLog Chr(13) + "--------- Insert Menu ( w_004_ ) ----------" gApplication = "WRITER" - Call tInsertManualBreak - Call tInsertFields - - Call tInsertFieldsOther - Call tInsertSpecialCharacter - - Call tInsertSection - Call tInsertHyperlink - - Call tInsertFootnote - Call tInsertCaption - Call tInsertBookmark - Call tInsertCrossReference - Call tInsertComment - Call tInsertScript - Call tInsertIndexesEntry - Call tInsertIndexesIndex - Call tInsertIndexesBibliographyEntry - - Call tInsertEnvelope - - Call tInsertFrame - Call tInsertTable - Call tInsertHorizontalLine - Call tInsertGraphicsFromFile - Call tInsertAllGraphicsFromFile - - Call tInsertObjectOLEObject - Call tInsertObjectPlugIn - Call tInsertObjectSound - Call tInsertObjectVideo - Call tInsertObjectFormula - Call tInsertObjectChart - Call tInsertFile - - 'Writer Web - gApplication = "HTML" - Call tHtmlDocInsertFields - Call tHtmlDocInsertFieldsOther - Call tHtmlDocInsertSection - Call tHtmlDocInsertFrame - Call tHtmlDocInsertGraphicsFromFile - gApplication = "WRITER" + call tInsertManualBreak + call tInsertFields + call tInsertFieldsOther + call tInsertSpecialCharacter + call tInsertSection + call tInsertHyperlink + call tInsertFootnote + call tInsertCaption + call tInsertBookmark + call tInsertComment + call tInsertCrossReference + call tInsertScript + call tInsertIndexesEntry + call tInsertIndexesIndex + call tInsertIndexesBibliographyEntry + call tInsertEnvelope + call tInsertFrame + call tInsertTable end sub @@ -345,46 +320,53 @@ testcase tInsertHyperlink printlog "- Internet" printlog " Insert / Hyperlink" InsertHyperlink - printlog " In 'Hyperlink' dialog step through all pages" - Call wEinfuegenHyperlink(1) - Call DialogTest ( TabHyperlinkInternet ) - Kontext "Hyperlink" - printlog "- Mail & News" - Call wEinfuegenHyperlink(2) - wait 500 - Call DialogTest ( TabHyperlinkMailUndNews ) + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then - Kontext "Hyperlink" - printlog "- Document" - Call wEinfuegenHyperlink(3) - wait 500 - Call DialogTest ( TabHyperlinkDokument ) - - DateiOeffnen.Click + printlog " In 'Hyperlink' dialog step through all pages" + Call wEinfuegenHyperlink(1) + Call DialogTest ( TabHyperlinkInternet ) + + Kontext "Hyperlink" + printlog "- Mail & News" + Call wEinfuegenHyperlink(2) + wait 500 + Call DialogTest ( TabHyperlinkMailUndNews ) + + Kontext "Hyperlink" + printlog "- Document" + Call wEinfuegenHyperlink(3) + wait 500 + Call DialogTest ( TabHyperlinkDokument ) + + DateiOeffnen.Click - Kontext "OeffnenDlg" - if ( OeffnenDlg.exists( 1 ) ) then + Kontext "OeffnenDlg" + if ( OeffnenDlg.exists( 1 ) ) then + OeffnenDlg.Cancel + else + warnlog( "Dialog <OeffnenDlg> is not available" ) + endif + + Kontext "Hyperlink" + printlog "- New Document" + Call wEinfuegenHyperlink(4) + wait 500 + Call DialogTest ( TabHyperlinkNeuesDokument ) + + Pfad.Click + Sleep 1 + Kontext "OeffnenDlg" OeffnenDlg.Cancel + + printlog " Close 'Hyperlink' dialog" + kontext "HyperlinkDialog" + HyperlinkDialog.Close else - warnlog( "Dialog <OeffnenDlg> is not available" ) + warnlog( "Unable to open <HyperlinkDialog>" ) endif - Kontext "Hyperlink" - printlog "- New Document" - Call wEinfuegenHyperlink(4) - wait 500 - Call DialogTest ( TabHyperlinkNeuesDokument ) - - Pfad.Click - Sleep 1 - Kontext "OeffnenDlg" - OeffnenDlg.Cancel - - Kontext "TabHyperlinkNeuesDokument" - TabHyperlinkNeuesDokument.Cancel - printlog " Close 'Hyperlink' dialog" - printlog " Close active document" Call hCloseDocument endcase @@ -1028,777 +1010,3 @@ testcase tInsertTable Call hCloseDocument endcase -'----------------------------------------------------------- - -testcase tInsertHorizontalLine - PrintLog "- Insert / Horizontal Line" - - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Horizontal Line" - InsertHorizontalLine - Kontext "HorizontaleLinieEinfuegen" - Call DialogTest (HorizontaleLinieEinfuegen) - printlog " Close dialog 'Insert Horizontal Ruler'" - HorizontaleLinieEinfuegen.Cancel - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertGraphicsFromFile - PrintLog "- Insert / Graphics / From File" - Dim j as integer - - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Graphics from file" - InsertGraphicsFromFile - - Kontext "GrafikEinfuegenDlg" - printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg" - Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) - Oeffnen.Click - - Kontext "Active" - if Active.Exists( 1 ) then - Warnlog Active.Gettext - Active.Ok - Kontext "GrafikEinfuegenDlg" - GrafikEinfuegenDlg.Cancel - Call hCloseDocument - goto endsub - else - printlog " select again 'Insert / Grahics from file'" - InsertGraphicsFromFile - WaitSlot (2000) - printlog " Step through all tabpages" - Kontext - active.SetPage TabType - wait 500 - Kontext "TabType" - Call DialogTest ( TabType ) - - Kontext - active.SetPage TabZusaetze - wait 500 - Kontext "TabZusaetze" - Call DialogTest ( TabZusaetze ) - - Kontext - active.SetPage TabUmlauf - wait 500 - Kontext "TabUmlauf" - Call DialogTest ( TabUmlauf ) - - Kontext - active.SetPage TabHyperlinkRahmen - wait 500 - Kontext "TabHyperlinkRahmen" - Call DialogTest ( TabHyperlinkRahmen ) - - Kontext - active.SetPage TabGrafik - wait 500 - Kontext "TabGrafik" - Call DialogTest ( TabGrafik ) - - Kontext - active.SetPage TabUmrandung - wait 500 - Kontext "TabUmrandung" - Call DialogTest ( TabUmrandung ) - - Kontext - active.SetPage TabMakro - ' if no JRE is installed a messagebox appears - j = 0 - Do - j = j + 1 - Kontext "Active" - if Active.Exists() then - if Active.GetRT = 304 then - if j = 1 then Warnlog Active.Gettext - Active.Ok - else - exit do - end if - else - exit do - end if - Loop - wait 500 - Kontext "TabMakro" - Call DialogTest ( TabMakro ) - - if gApplication <> "HTML" then - Kontext - active.SetPage TabZuschneiden - wait 500 - Kontext "TabZuschneiden" - Call DialogTest ( TabZuschneiden ) - - Kontext - active.SetPage TabHintergrund - wait 500 - Kontext "TabHintergrund" - Call DialogTest ( TabHintergrund ) - printlog " Close dialog" - TabHintergrund.Cancel - else - printlog " Close dialog" - TabMakro.Cancel - end if - end if - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertAllGraphicsFromFile - Dim i as integer - Dim quellpfad as string - Dim DieDatei as string - Dim Ziel( 5000 ) as String - printlog "Insert / Graphics / From File (all Formats)" - - printlog " Open new document" - Call hNewDocument - - printlog " Insert all graphic formats from directory: global\input\graf_inp\" - quellpfad = ConvertPath(gtesttoolpath + "global\input\graf_inp\") - - GetFileList(quellpfad, "*.*" , Ziel()) - for i=1 to ListCount(Ziel()) - if (gPlatform = "osx") AND (right(ziel(i),3) = "eps") then - qaerrorlog "#i100253# skipping eps" - i=i+1 - endif - printlog "- Graphic: " + Right(Ziel(i),3) + "-Format" - Call hGrafikEinfuegen ( Ziel(i) ) - Sleep 5 - Call wTypeKeys("<Delete>") - Call gMouseDoubleClick (10,10) - Sleep 5 - next i - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertObjectOLEObject - PrintLog "- Insert / Object / OLE-Objekt" - - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Object / OLE-Object" - InsertObjectOLEObject - - Kontext "OLEObjektEinfuegen" - printlog " Check both radiobuttons 'Create now' and 'Create from file'" - NeuErstellen.Check - Call DialogTest (OLEObjektEinfuegen, 1) - AusDateiErstellen.Check - Call DialogTest (OLEObjektEinfuegen, 2) - OLEObjektEinfuegen.Cancel - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertObjectPlugIn - PrintLog "- Insert / Object / Plug-In" - - printlog " Open new document" - Call hNewDocument - - printlog " Close 'Plug in' dialog" - InsertObjectPlugIn - - Kontext "PlugInEinfuegen" - if PlugInEinfuegen.Exists then - Call DialogTest (PlugInEinfuegen) - PlugInEinfuegen.Cancel - else - Warnlog "Dialog 'Plugin' is not up!" - end if - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertObjectSound - Printlog "- Insert / Object / Sound" - printlog " Open new document" - Call hNewDocument - - try - if gUseSysDlg = False then - InsertObjectSound - printlog " Insert / Object / Sound" - Kontext "OeffnenDlg" - if OeffnenDlg.Exists then - OeffnenDlg.Cancel - else - Warnlog "Dialog to insert Sound isn't up!" - end if - end if - catch - 'Warnlog "- Menu disabled or no Sound-PlugIn installed !?" - endcatch - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertObjectVideo - Printlog "- Insert / Object / Video" - - printlog " Open new document" - Call hNewDocument - - try - if gUseSysDlg = False then - InsertObjectVideo - printlog " Insert / Object / Video" - Kontext "OeffnenDlg" - if OeffnenDlg.Exists then - OeffnenDlg.Cancel - else - Warnlog "Dialog to insert Video isn't up!" - end if - end if - catch - 'Warnlog "- Menu disabled or no Video-PlugIn installed !?" - endcatch - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertObjectFormula - PrintLog "- Insert / Object / Formula" - - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Object / Formular" - InsertObjectFormula - WaitSlot (2000) - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - Warnlog Active.Gettext - Active.Ok - end if - end if - Sleep 1 - - printlog " Click in 'Math' document" - Call gMouseClick(1,1) - sleep 1 - printlog " 'Delete math-object in document" - Call wTypeKeys("<Delete>") - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertObjectChart - PrintLog "- Insert / Object / Chart" - - printlog " Open new document" - Call hNewDocument - ' Chart-Wizard will be invoked if data ranges exist - ' Therefor a table will be inserted - printlog " Insert / Table" - InsertTableWriter - Kontext "TabelleEinfuegenWriter" - TabelleEinfuegenWriter.Ok - - printlog " Insert / Object / Chart" - InsertObjectChart - - Kontext "ChartWizard" - if ChartWizard.Exists then - printlog "- Chart-Wizard is up=>OK" - Call DialogTest ( ChartWizard ) - printlog " Cancel Chart-Wizard" - ChartWizard.Cancel - else - warnlog "Chart-Wizard is not up though a table has been inserted" - end if - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tInsertFile - PrintLog "- Insert / File" - - printlog " Open new document" - Call hNewDocument - InsertFileWriter - WaitSlot( 2000 ) - - printlog " Insert / File" - Kontext "OeffnenDlg" - - printlog " Check 'File dialog'" - if OeffnenDlg.Exists( 2 ) then - Call DialogTest ( OeffnenDlg ) - try - Standard.Click - catch - Exceptlog - endcatch - - Kontext "Active" - if Active.Exists then - Warnlog Active.Gettext - Active.Ok - else - Kontext "OeffnenDlg" - OeffnenDlg.Cancel - end if - end if - - printlog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - -testcase tHtmlDocInsertFields - PrintLog "- Insert / Fields" - - gApplication = "HTML" - printlog " Open new document" - Call hNewDocument - - try - printlog "Insert / Fields / Date" - InsertFieldsDate - catch - Warnlog "Unable to execute: Insert / Fields / Date " - endcatch - printlog " Insert / Fields / Date" - Call wTypeKeys (" <Return>") - try - printlog "Insert / Fields / Time" - InsertFieldsTime - catch - Warnlog "Unable to execute: Insert / Fields / Time" - endcatch - printlog " Insert / Fields / Time" - Call wTypeKeys (" <Return>") - try - printlog "Insert / Fields / Page Number" - InsertFieldsPageNumbers - catch - Warnlog "Unable to execute: Insert / Fields / Page numbers" - endcatch - printlog " Insert / Fields / Page numbers" - Call wTypeKeys (" <Return>") - try - printlog "Insert / Fields / Page Count" - InsertFieldsPageCount - catch - Warnlog "Unable to execute: Insert / Fields / Page Count" - endcatch - printlog " Insert / Fields / Page count" - Call wTypeKeys (" <Return>") - try - printlog "Insert / Fields / Title" - InsertFieldsTitle - catch - Warnlog "Unable to execute: Insert / Fields / Title" - endcatch - printlog " Insert / Fields / Title" - Call wTypeKeys (" <Return>") - try - printlog "Insert / Fields / Author" - InsertFieldsAuthor - catch - Warnlog "Unable to execute: Insert / Fields / Author" - endcatch - printlog " Insert / Fields / Author" - if gApplication <> "HTML" then - try - printlog "Insert / Fields / Subject" - InsertFieldsSubject - catch - Warnlog "Unable to execute: Insert / Fields / Subject" - endcatch - printlog " If document not HTML then 'Insert / Fields / Subject" - Call wTypeKeys (" <Return>") - printlog " Press key 'enter'" - end if - - printlog " Close active document" - Call hCloseDocument - gApplication = "WRITER" -endcase - -'----------------------------------------------------------- - -testcase tHtmlDocInsertFieldsOther - Dim i as integer - Dim j as integer - printlog "- Insert / Fields / Other" - - gApplication = "HTML" - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Fields / Other" - InsertFieldsOther - - Kontext - printlog " In dialog step through all tabpages" - Active.SetPage TabDokumentFeldbefehle - Kontext "TabDokumentFeldbefehle" - Call Dialogtest ( TabDokumentFeldbefehle ) - - Kontext - Active.SetPage TabDokumentinfoFeldbefehle - Kontext "TabDokumentinfoFeldbefehle" - Call Dialogtest ( TabDokumentinfoFeldbefehle ) - - Kontext - Active.SetPage TabVariablen - Kontext "TabVariablen" - Call Dialogtest ( TabVariablen ) - - if gApplication <> "HTML" then - Kontext - Active.SetPage TabReferenzen - Kontext "TabReferenzen" - Call Dialogtest ( TabReferenzen ) - - Kontext - Active.SetPage TabFunktionen - Kontext "TabFunktionen" - Call Dialogtest ( TabFunktionen ) - for i=1 to Feldtyp.GetItemCount - Feldtyp.Select i - if MakroButton.IsEnabled then - MakroButton.Click - ' if no JRE is installed a messagebox appears - Do - j = j + 1 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - if j = 1 then Warnlog Active.Gettext - Active.Ok - else - exit do - end if - else - exit do - end if - Loop - - Kontext "ScriptSelector" - if ( ScriptSelector.exists( 3 ) ) then - ScriptSelector.Close - else - warnlog( "Dialog <ScriptSelector> is not available" ) - endif - Kontext "TabFunktionen" - i=100 - end if - next i - - Kontext - Active.SetPage TabDatenbank - Kontext "TabDatenbank" - Call Dialogtest ( TabDatenbank ) - - printlog " Close dialog" - TabDatenbank.Close - else - printlog " Close dialog" - TabVariablen.Close - end if - printlog " Close active document" - Call hCloseDocument - gApplication = "WRITER" -endcase - -'----------------------------------------------------------- - -testcase tHtmlDocInsertSection - PrintLog "- Insert / Section" - - gApplication = "HTML" - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Section" - InsertSection - Kontext - - printlog " In dialog step through all tabpages" - printlog "- Tabpage Section" - Active.Setpage TabBereiche - Kontext "TabBereiche" - Call DialogTest (TabBereiche) - Verknuepfung.Check - - Auswaehlen.Click - Kontext "OeffnenDlg" - if ( OeffnenDlg.exists( 1 ) ) then - OeffnenDlg.Cancel - else - warnlog( "Dialog <OeffnenDlg> is not available" ) - endif - - Wait 500 - Kontext - printlog "- Tabpage Columns" - Active.Setpage TabSpalten - Kontext "TabSpalten" - Call DialogTest (TabSpalten) - - Kontext - printlog "- Tabpage Background" - Active.Setpage TabHintergrund - Kontext "TabHintergrund" - Call DialogTest (TabHintergrund) - - if gApplication <> "HTML" then - printlog "Tabpage Indents" - Kontext - Active.Setpage TabSectionIndent - Kontext "TabSectionIndent" - Call DialogTest (TabSectionIndent) - - printlog "- Tabpage Footnotes/Endnotes" - Kontext - Active.Setpage TabFussEndnoten - Kontext "TabFussEndnoten" - Call DialogTest (TabFussEndnoten) - TabFussEndnoten.Cancel - else - TabHintergrund.Cancel - end if - printlog " Close active document" - Call hCloseDocument - gApplication = "WRITER" -endcase - -'----------------------------------------------------------- - -testcase tHtmlDocInsertFrame - PrintLog "- Insert / Frame" - - gApplication = "HTML" - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Frame" - InsertFrame - WaitSlot (2000) - - printlog " Step through all tabpages" - Kontext - active.SetPage TabType - Kontext "TabType" - Call DialogTest (TabType) - Sleep 1 - - Kontext - active.SetPage TabZusaetze - Kontext "TabZusaetze" - Call DialogTest (TabZusaetze) - Sleep 1 - - Kontext - active.SetPage TabUmlauf - Kontext "TabUmlauf" - Call DialogTest (TabUmlauf) - Sleep 1 - - Kontext - active.SetPage TabUmrandung - Kontext "TabUmrandung" - Call DialogTest (TabUmrandung) - Sleep 1 - - Kontext - active.SetPage TabHintergrund - Kontext "TabHintergrund" - Call DialogTest (TabHintergrund, 1) - Sleep 1 - try - Als.Select (2) - Call DialogTest (TabHintergrund, 2) - Sleep 1 - catch - Warnlog "Maybe missing combobox! (#i29517)" - endcatch - - if gApplication <> "HTML" then - Kontext - active.SetPage TabHyperlinkRahmen - Kontext "TabHyperlinkRahmen" - Call DialogTest (TabHyperlinkRahmen) - Durchsuchen.Click - - if gUSeSysDlg = False then - Kontext "OeffnenDlg" - OeffnenDlg.Cancel - end if - - Kontext - active.SetPage TabSpalten - Kontext "TabSpalten" - Call DialogTest (TabSpalten) - printlog " Close dialog" - TabSpalten.Cancel - else - printlog " Close dialog" - TabHintergrund.Cancel - end if - - printlog " Close active document" - Call hCloseDocument - gApplication = "WRITER" -endcase - -'----------------------------------------------------------- - -testcase tHtmlDocInsertGraphicsFromFile - PrintLog "- Insert / Graphics / From File" - Dim j as integer - - gApplication = "HTML" - printlog " Open new document" - Call hNewDocument - - printlog " Insert / Graphics from file" - InsertGraphicsFromFile - - Kontext "GrafikEinfuegenDlg" - printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg" - Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) - Oeffnen.Click - - Kontext "Active" - if Active.Exists( 1 ) then - Warnlog Active.Gettext - Active.Ok - Kontext "GrafikEinfuegenDlg" - GrafikEinfuegenDlg.Cancel - Call hCloseDocument - goto endsub - else - printlog " select again 'Insert / Grahics from file'" - InsertGraphicsFromFile - WaitSlot (2000) - printlog " Step through all tabpages" - Kontext - active.SetPage TabType - wait 500 - Kontext "TabType" - Call DialogTest ( TabType ) - - Kontext - active.SetPage TabZusaetze - wait 500 - Kontext "TabZusaetze" - Call DialogTest ( TabZusaetze ) - - Kontext - active.SetPage TabUmlauf - wait 500 - Kontext "TabUmlauf" - Call DialogTest ( TabUmlauf ) - - Kontext - active.SetPage TabHyperlinkRahmen - wait 500 - Kontext "TabHyperlinkRahmen" - Call DialogTest ( TabHyperlinkRahmen ) - - Kontext - active.SetPage TabGrafik - wait 500 - Kontext "TabGrafik" - Call DialogTest ( TabGrafik ) - - Kontext - active.SetPage TabUmrandung - wait 500 - Kontext "TabUmrandung" - Call DialogTest ( TabUmrandung ) - - Kontext - active.SetPage TabMakro - ' if no JRE is installed a messagebox appears - j = 0 - Do - j = j + 1 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - if j = 1 then Warnlog Active.Gettext - Active.Ok - else - exit do - end if - else - exit do - end if - Loop - wait 500 - Kontext "TabMakro" - Call DialogTest ( TabMakro ) - - if gApplication <> "HTML" then - Kontext - active.SetPage TabZuschneiden - wait 500 - Kontext "TabZuschneiden" - Call DialogTest ( TabZuschneiden ) - - Kontext - active.SetPage TabHintergrund - wait 500 - Kontext "TabHintergrund" - Call DialogTest ( TabHintergrund ) - printlog " Close dialog" - TabHintergrund.Cancel - else - printlog " Close dialog" - TabMakro.Cancel - end if - end if - - printlog " Close active document" - Call hCloseDocument - gApplication = "WRITER" -endcase - -'----------------------------------------------------------- diff --git a/testautomation/writer/required/includes/w_004b_.inc b/testautomation/writer/required/includes/w_004b_.inc new file mode 100644 index 000000000000..3769ee9ee1ae --- /dev/null +++ b/testautomation/writer/required/includes/w_004b_.inc @@ -0,0 +1,965 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/************************************************************************ +'* +'* owner : Helge.Delfs@Sun.Com +'* +'* short description : Testcases with connection to the Insert-menu part II. +'* +'\*********************************************************************** + +sub w_004b_ + + printLog Chr(13) + "--------- Insert Menu ( w_004_ ) ----------" + + gApplication = "WRITER" + call tInsertHorizontalLine + call tInsertGraphicsFromFile + call tInsertAllGraphicsFromFile + call tInsertObjectOLEObject + call tInsertObjectPlugIn + call tInsertObjectSound + call tInsertObjectVideo + call tInsertObjectFormula + call tInsertObjectChart + call tInsertFile + + gApplication = "HTML" + call tHtmlDocInsertFields + call tHtmlDocInsertFieldsOther + call tHtmlDocInsertSection + call tHtmlDocInsertFrame + call tHtmlDocInsertGraphicsFromFile + gApplication = "WRITER" + +end sub + +testcase tInsertHorizontalLine + PrintLog "- Insert / Horizontal Line" + + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Horizontal Line" + InsertHorizontalLine + Kontext "HorizontaleLinieEinfuegen" + Call DialogTest (HorizontaleLinieEinfuegen) + printlog " Close dialog 'Insert Horizontal Ruler'" + HorizontaleLinieEinfuegen.Cancel + + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertGraphicsFromFile + PrintLog "- Insert / Graphics / From File" + Dim j as integer + + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Graphics from file" + InsertGraphicsFromFile + + Kontext "GrafikEinfuegenDlg" + printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg" + Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) + Oeffnen.Click + + Kontext "Active" + if Active.Exists( 1 ) then + Warnlog Active.Gettext + Active.Ok + Kontext "GrafikEinfuegenDlg" + GrafikEinfuegenDlg.Cancel + Call hCloseDocument + goto endsub + else + printlog " select again 'Insert / Grahics from file'" + InsertGraphicsFromFile + WaitSlot (2000) + printlog " Step through all tabpages" + Kontext + active.SetPage TabType + wait 500 + Kontext "TabType" + Call DialogTest ( TabType ) + + Kontext + active.SetPage TabZusaetze + wait 500 + Kontext "TabZusaetze" + Call DialogTest ( TabZusaetze ) + + Kontext + active.SetPage TabUmlauf + wait 500 + Kontext "TabUmlauf" + Call DialogTest ( TabUmlauf ) + + Kontext + active.SetPage TabHyperlinkRahmen + wait 500 + Kontext "TabHyperlinkRahmen" + Call DialogTest ( TabHyperlinkRahmen ) + + Kontext + active.SetPage TabGrafik + wait 500 + Kontext "TabGrafik" + Call DialogTest ( TabGrafik ) + + Kontext + active.SetPage TabUmrandung + wait 500 + Kontext "TabUmrandung" + Call DialogTest ( TabUmrandung ) + + Kontext + active.SetPage TabMakro + ' if no JRE is installed a messagebox appears + j = 0 + Do + j = j + 1 + Kontext "Active" + if Active.Exists() then + if Active.GetRT = 304 then + if j = 1 then Warnlog Active.Gettext + Active.Ok + else + exit do + end if + else + exit do + end if + Loop + wait 500 + Kontext "TabMakro" + Call DialogTest ( TabMakro ) + + if gApplication <> "HTML" then + Kontext + active.SetPage TabZuschneiden + wait 500 + Kontext "TabZuschneiden" + Call DialogTest ( TabZuschneiden ) + + Kontext + active.SetPage TabHintergrund + wait 500 + Kontext "TabHintergrund" + Call DialogTest ( TabHintergrund ) + printlog " Close dialog" + TabHintergrund.Cancel + else + printlog " Close dialog" + TabMakro.Cancel + end if + end if + + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertAllGraphicsFromFile + + printlog( "Load files of all known graphics formats" ) + + dim iCurrentFile as integer + dim GraphicFile as String + dim Filtername as String + + printlog( "Insert a sample of commonly used file formats into a writer document (not linked)" ) + + gApplication = "WRITER" + Call hNewDocument + + for iCurrentFile = 1 to 25 + + ' MODIFY and ENABLE this SAMPLE snippet to exclude one fileformat from testing + ' if ( iCurrentFile = 7 ) AND (gtPlatform="x86") then + ' qaErrorLog("#<issue-id># crash on <platform> on loading <image-file>") + ' goto skipformat + ' endif + ' Note: Can be locale dependent! + if (iCurrentFile = 4) AND (gPlatform="osx") then + qaerrorlog("#i100253# crash on MacOS X on loading ball.eps") + goto skipformat + endif + + Kontext "GrafikEinfuegenDlg" + if ( not GrafikEinfuegenDlg.exists() ) then + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + endif + + if ( GrafikEinfuegenDlg.Exists( 2 ) ) then + ' the list of files expected to be found in the samples directory + select case iCurrentFile + case 1 : GraphicFile = "desp.bmp" + case 2 : GraphicFile = "columbia.dxf" + case 3 : GraphicFile = "extrud.emf" + case 4 : GraphicFile = "ball.eps" + case 5 : GraphicFile = "airshw.met" + case 6 : GraphicFile = "eface.gif" + case 7 : GraphicFile = "purzel.gif" ' Animated Gif + case 8 : GraphicFile = "borabora.jpg" + case 9 : GraphicFile = "grafix1.pbm" + case 10 : GraphicFile = "circle.pcx" + case 11 : GraphicFile = "papagei1.pcd" + case 12 : GraphicFile = "newtonme.pct" + case 13 : GraphicFile = "grafix2.pgm" + case 14 : GraphicFile = "obst.png" + case 15 : GraphicFile = "london.ppm" + case 16 : GraphicFile = "tiger.psd" + case 17 : GraphicFile = "grafix3.ras" + case 18 : GraphicFile = "mickym.sgf" + case 19 : GraphicFile = "faxpfeil.sgv" + case 20 : GraphicFile = "picture.svm" + case 21 : GraphicFile = "pilz.tga" + case 22 : GraphicFile = "stabler.tif" + case 23 : GraphicFile = "krokodil.wmf" + case 24 : GraphicFile = "grafix4.xbm" + case 25 : GraphicFile = "papagei2.xpm" + end select + + GraphicFile = ConvertPath (gTesttoolPath & "global\input\graf_inp\" & GraphicFile) + printlog( "Current file " + iCurrentFile + ": " & GraphicFile ) + printlog( " * Set filter to <All formats>" ) + DateiName.SetText( GraphicFile ) + DateiTyp.Select( 1 ) + WaitSlot() + + printlog( " * Uncheck Preview- and Link-checkbox, load the file" ) + Vorschau.unCheck + Verknuepfen.unCheck() + Oeffnen.click() + WaitSlot( 2000 ) + + Kontext "Active" + if ( Active.Exists() ) then + Warnlog( "Unexpected messagebox: " & Active.GetText() ) + Warnlog( "Affected file: " & GraphicFile ) + Active.OK + else + try + EditCopy + WaitSlot( 2000 ) + EditDeleteContents + WaitSlot( 2000 ) + catch + Warnlog( "Graphic file not selected/Copy or Delete is disabled: " & GraphicFile ) + gMouseClick (90, 90) + endcatch + endif + else + warnlog( "Insert Graphics Dialog is not open, aborting" ) + goto endsub + endif + + skipformat: + next iCurrentFile + + printlog( "" ) + printlog( "Test the PCD-Filters directly (3 samples)" ) + + for iCurrentFile = 1 to 3 + + printlog( "" ) + + Kontext "GrafikEinfuegenDlg" + if ( not GrafikEinfuegenDlg.exists() ) then + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + endif + + if ( GrafikEinfuegenDlg.exists( 2 ) ) then + + select case iCurrentFile + case 1 : Filtername = "PCD - Kodak Photo CD (768x512) (*.pcd)" + case 2 : Filtername = "PCD - Kodak Photo CD (384x256) (*.pcd)" + case 3 : Filtername = "PCD - Kodak Photo CD (192x128) (*.pcd)" + end select + + GraphicFile = ConvertPath( gTesttoolPath & "global\input\graf_inp\papagei1.pcd" ) + + printlog( "Current filter: " & Filtername ) + printlog( "Current file..: " & GraphicFile ) + DateiName.SetText ( GraphicFile ) + DateiTyp.Select( Filtername ) + + printlog( " * Uncheck Preview- and Link-checkbox, load the file" ) + Vorschau.Uncheck() + Verknuepfen.unCheck() + Oeffnen.click() + WaitSlot( 2000 ) + + Kontext "Active" + if ( Active.Exists() )then + Warnlog( "Unexpected messagebox: " & Active.GetText() ) + Warnlog( "Affected file..: " & GraphicFile ) + Warnlog( "Affected filter: " & Filtername ) + Active.OK() + else + try + EditCopy + WaitSlot( 2000 ) + EditDeleteContents + WaitSlot( 2000 ) + catch + Warnlog( "Problems with filtertype : " & Filtername ) + gMouseClick (90, 90) + endcatch + endif + else + warnlog( "Insert Graphics Dialog is not open. Aborting" ) + goto endsub + endif + + next iCurrentFile + + Kontext "GrafikEinfuegenDlg" + if GrafikEinfuegenDlg.Exists then + GrafikEinfuegenDlg.Cancel + endif + + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectOLEObject + PrintLog "- Insert / Object / OLE-Objekt" + + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Object / OLE-Object" + InsertObjectOLEObject + + Kontext "OLEObjektEinfuegen" + printlog " Check both radiobuttons 'Create now' and 'Create from file'" + NeuErstellen.Check + Call DialogTest (OLEObjektEinfuegen, 1) + AusDateiErstellen.Check + Call DialogTest (OLEObjektEinfuegen, 2) + OLEObjektEinfuegen.Cancel + + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectPlugIn + PrintLog "- Insert / Object / Plug-In" + + printlog " Open new document" + Call hNewDocument + + printlog " Close 'Plug in' dialog" + InsertObjectPlugIn + + Kontext "PlugInEinfuegen" + if PlugInEinfuegen.Exists then + Call DialogTest (PlugInEinfuegen) + PlugInEinfuegen.Cancel + else + Warnlog "Dialog 'Plugin' is not up!" + end if + + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectSound + Printlog "- Insert / Object / Sound" + printlog " Open new document" + Call hNewDocument + + try + if gUseSysDlg = False then + InsertObjectSound + printlog " Insert / Object / Sound" + Kontext "OeffnenDlg" + if OeffnenDlg.Exists then + OeffnenDlg.Cancel + else + Warnlog "Dialog to insert Sound isn't up!" + end if + end if + catch + 'Warnlog "- Menu disabled or no Sound-PlugIn installed !?" + endcatch + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectVideo + Printlog "- Insert / Object / Video" + + printlog " Open new document" + Call hNewDocument + + try + if gUseSysDlg = False then + InsertObjectVideo + printlog " Insert / Object / Video" + Kontext "OeffnenDlg" + if OeffnenDlg.Exists then + OeffnenDlg.Cancel + else + Warnlog "Dialog to insert Video isn't up!" + end if + end if + catch + 'Warnlog "- Menu disabled or no Video-PlugIn installed !?" + endcatch + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectFormula + PrintLog "- Insert / Object / Formula" + + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Object / Formular" + InsertObjectFormula + WaitSlot (2000) + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + Warnlog Active.Gettext + Active.Ok + end if + end if + Sleep 1 + + printlog " Click in 'Math' document" + Call gMouseClick(1,1) + sleep 1 + printlog " 'Delete math-object in document" + Call wTypeKeys("<Delete>") + + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectChart + PrintLog "- Insert / Object / Chart" + + printlog " Open new document" + Call hNewDocument + ' Chart-Wizard will be invoked if data ranges exist + ' Therefor a table will be inserted + printlog " Insert / Table" + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabelleEinfuegenWriter.Ok + + printlog " Insert / Object / Chart" + InsertObjectChart + + Kontext "ChartWizard" + if ChartWizard.Exists then + printlog "- Chart-Wizard is up=>OK" + Call DialogTest ( ChartWizard ) + printlog " Cancel Chart-Wizard" + ChartWizard.Cancel + else + warnlog "Chart-Wizard is not up though a table has been inserted" + end if + + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tInsertFile + PrintLog "- Insert / File" + + printlog " Open new document" + Call hNewDocument + InsertFileWriter + WaitSlot( 2000 ) + + printlog " Insert / File" + Kontext "OeffnenDlg" + + printlog " Check 'File dialog'" + if OeffnenDlg.Exists( 2 ) then + Call DialogTest ( OeffnenDlg ) + try + Standard.Click + catch + Exceptlog + endcatch + + Kontext "Active" + if Active.Exists then + Warnlog Active.Gettext + Active.Ok + else + Kontext "OeffnenDlg" + OeffnenDlg.Cancel + end if + end if + + printlog " Close active document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tHtmlDocInsertFields + PrintLog "- Insert / Fields" + + gApplication = "HTML" + printlog " Open new document" + Call hNewDocument + + try + printlog "Insert / Fields / Date" + InsertFieldsDate + catch + Warnlog "Unable to execute: Insert / Fields / Date " + endcatch + printlog " Insert / Fields / Date" + Call wTypeKeys (" <Return>") + try + printlog "Insert / Fields / Time" + InsertFieldsTime + catch + Warnlog "Unable to execute: Insert / Fields / Time" + endcatch + printlog " Insert / Fields / Time" + Call wTypeKeys (" <Return>") + try + printlog "Insert / Fields / Page Number" + InsertFieldsPageNumbers + catch + Warnlog "Unable to execute: Insert / Fields / Page numbers" + endcatch + printlog " Insert / Fields / Page numbers" + Call wTypeKeys (" <Return>") + try + printlog "Insert / Fields / Page Count" + InsertFieldsPageCount + catch + Warnlog "Unable to execute: Insert / Fields / Page Count" + endcatch + printlog " Insert / Fields / Page count" + Call wTypeKeys (" <Return>") + try + printlog "Insert / Fields / Title" + InsertFieldsTitle + catch + Warnlog "Unable to execute: Insert / Fields / Title" + endcatch + printlog " Insert / Fields / Title" + Call wTypeKeys (" <Return>") + try + printlog "Insert / Fields / Author" + InsertFieldsAuthor + catch + Warnlog "Unable to execute: Insert / Fields / Author" + endcatch + printlog " Insert / Fields / Author" + if gApplication <> "HTML" then + try + printlog "Insert / Fields / Subject" + InsertFieldsSubject + catch + Warnlog "Unable to execute: Insert / Fields / Subject" + endcatch + printlog " If document not HTML then 'Insert / Fields / Subject" + Call wTypeKeys (" <Return>") + printlog " Press key 'enter'" + end if + + printlog " Close active document" + Call hCloseDocument + gApplication = "WRITER" +endcase + +'----------------------------------------------------------- + +testcase tHtmlDocInsertFieldsOther + Dim i as integer + Dim j as integer + printlog "- Insert / Fields / Other" + + gApplication = "HTML" + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Fields / Other" + InsertFieldsOther + + Kontext + printlog " In dialog step through all tabpages" + Active.SetPage TabDokumentFeldbefehle + Kontext "TabDokumentFeldbefehle" + Call Dialogtest ( TabDokumentFeldbefehle ) + + Kontext + Active.SetPage TabDokumentinfoFeldbefehle + Kontext "TabDokumentinfoFeldbefehle" + Call Dialogtest ( TabDokumentinfoFeldbefehle ) + + Kontext + Active.SetPage TabVariablen + Kontext "TabVariablen" + Call Dialogtest ( TabVariablen ) + + if gApplication <> "HTML" then + Kontext + Active.SetPage TabReferenzen + Kontext "TabReferenzen" + Call Dialogtest ( TabReferenzen ) + + Kontext + Active.SetPage TabFunktionen + Kontext "TabFunktionen" + Call Dialogtest ( TabFunktionen ) + for i=1 to Feldtyp.GetItemCount + Feldtyp.Select i + if MakroButton.IsEnabled then + MakroButton.Click + ' if no JRE is installed a messagebox appears + Do + j = j + 1 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + if j = 1 then Warnlog Active.Gettext + Active.Ok + else + exit do + end if + else + exit do + end if + Loop + + Kontext "ScriptSelector" + if ( ScriptSelector.exists( 3 ) ) then + ScriptSelector.Close + else + warnlog( "Dialog <ScriptSelector> is not available" ) + endif + Kontext "TabFunktionen" + i=100 + end if + next i + + Kontext + Active.SetPage TabDatenbank + Kontext "TabDatenbank" + Call Dialogtest ( TabDatenbank ) + + printlog " Close dialog" + TabDatenbank.Close + else + printlog " Close dialog" + TabVariablen.Close + end if + printlog " Close active document" + Call hCloseDocument + gApplication = "WRITER" +endcase + +'----------------------------------------------------------- + +testcase tHtmlDocInsertSection + PrintLog "- Insert / Section" + + gApplication = "HTML" + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Section" + InsertSection + Kontext + + printlog " In dialog step through all tabpages" + printlog "- Tabpage Section" + Active.Setpage TabBereiche + Kontext "TabBereiche" + Call DialogTest (TabBereiche) + Verknuepfung.Check + + Auswaehlen.Click + Kontext "OeffnenDlg" + if ( OeffnenDlg.exists( 1 ) ) then + OeffnenDlg.Cancel + else + warnlog( "Dialog <OeffnenDlg> is not available" ) + endif + + Wait 500 + Kontext + printlog "- Tabpage Columns" + Active.Setpage TabSpalten + Kontext "TabSpalten" + Call DialogTest (TabSpalten) + + Kontext + printlog "- Tabpage Background" + Active.Setpage TabHintergrund + Kontext "TabHintergrund" + Call DialogTest (TabHintergrund) + + if gApplication <> "HTML" then + printlog "Tabpage Indents" + Kontext + Active.Setpage TabSectionIndent + Kontext "TabSectionIndent" + Call DialogTest (TabSectionIndent) + + printlog "- Tabpage Footnotes/Endnotes" + Kontext + Active.Setpage TabFussEndnoten + Kontext "TabFussEndnoten" + Call DialogTest (TabFussEndnoten) + TabFussEndnoten.Cancel + else + TabHintergrund.Cancel + end if + printlog " Close active document" + Call hCloseDocument + gApplication = "WRITER" +endcase + +'----------------------------------------------------------- + +testcase tHtmlDocInsertFrame + PrintLog "- Insert / Frame" + + gApplication = "HTML" + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Frame" + InsertFrame + WaitSlot (2000) + + printlog " Step through all tabpages" + Kontext + active.SetPage TabType + Kontext "TabType" + Call DialogTest (TabType) + Sleep 1 + + Kontext + active.SetPage TabZusaetze + Kontext "TabZusaetze" + Call DialogTest (TabZusaetze) + Sleep 1 + + Kontext + active.SetPage TabUmlauf + Kontext "TabUmlauf" + Call DialogTest (TabUmlauf) + Sleep 1 + + Kontext + active.SetPage TabUmrandung + Kontext "TabUmrandung" + Call DialogTest (TabUmrandung) + Sleep 1 + + Kontext + active.SetPage TabHintergrund + Kontext "TabHintergrund" + Call DialogTest (TabHintergrund, 1) + Sleep 1 + try + Als.Select (2) + Call DialogTest (TabHintergrund, 2) + Sleep 1 + catch + Warnlog "Maybe missing combobox! (#i29517)" + endcatch + + if gApplication <> "HTML" then + Kontext + active.SetPage TabHyperlinkRahmen + Kontext "TabHyperlinkRahmen" + Call DialogTest (TabHyperlinkRahmen) + Durchsuchen.Click + + if gUSeSysDlg = False then + Kontext "OeffnenDlg" + OeffnenDlg.Cancel + end if + + Kontext + active.SetPage TabSpalten + Kontext "TabSpalten" + Call DialogTest (TabSpalten) + printlog " Close dialog" + TabSpalten.Cancel + else + printlog " Close dialog" + TabHintergrund.Cancel + end if + + printlog " Close active document" + Call hCloseDocument + gApplication = "WRITER" +endcase + +'----------------------------------------------------------- + +testcase tHtmlDocInsertGraphicsFromFile + PrintLog "- Insert / Graphics / From File" + Dim j as integer + + gApplication = "HTML" + printlog " Open new document" + Call hNewDocument + + printlog " Insert / Graphics from file" + InsertGraphicsFromFile + + Kontext "GrafikEinfuegenDlg" + printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg" + Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) + Oeffnen.Click + + Kontext "Active" + if Active.Exists( 1 ) then + Warnlog Active.Gettext + Active.Ok + Kontext "GrafikEinfuegenDlg" + GrafikEinfuegenDlg.Cancel + Call hCloseDocument + goto endsub + else + printlog " select again 'Insert / Grahics from file'" + InsertGraphicsFromFile + WaitSlot (2000) + printlog " Step through all tabpages" + Kontext + active.SetPage TabType + wait 500 + Kontext "TabType" + Call DialogTest ( TabType ) + + Kontext + active.SetPage TabZusaetze + wait 500 + Kontext "TabZusaetze" + Call DialogTest ( TabZusaetze ) + + Kontext + active.SetPage TabUmlauf + wait 500 + Kontext "TabUmlauf" + Call DialogTest ( TabUmlauf ) + + Kontext + active.SetPage TabHyperlinkRahmen + wait 500 + Kontext "TabHyperlinkRahmen" + Call DialogTest ( TabHyperlinkRahmen ) + + Kontext + active.SetPage TabGrafik + wait 500 + Kontext "TabGrafik" + Call DialogTest ( TabGrafik ) + + Kontext + active.SetPage TabUmrandung + wait 500 + Kontext "TabUmrandung" + Call DialogTest ( TabUmrandung ) + + Kontext + active.SetPage TabMakro + ' if no JRE is installed a messagebox appears + j = 0 + Do + j = j + 1 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + if j = 1 then Warnlog Active.Gettext + Active.Ok + else + exit do + end if + else + exit do + end if + Loop + wait 500 + Kontext "TabMakro" + Call DialogTest ( TabMakro ) + + if gApplication <> "HTML" then + Kontext + active.SetPage TabZuschneiden + wait 500 + Kontext "TabZuschneiden" + Call DialogTest ( TabZuschneiden ) + + Kontext + active.SetPage TabHintergrund + wait 500 + Kontext "TabHintergrund" + Call DialogTest ( TabHintergrund ) + printlog " Close dialog" + TabHintergrund.Cancel + else + printlog " Close dialog" + TabMakro.Cancel + end if + end if + + printlog " Close active document" + Call hCloseDocument + gApplication = "WRITER" +endcase + diff --git a/testautomation/writer/required/includes/w_005_.inc b/testautomation/writer/required/includes/w_005_.inc index 93fe9ac0237b..a1f4d1d4f8f3 100755 --- a/testautomation/writer/required/includes/w_005_.inc +++ b/testautomation/writer/required/includes/w_005_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testcases for the Format-Menu '* @@ -757,7 +757,7 @@ testcase tFormatColumn printlog " Close dialog" SpaltenBreite.OK Wait 500 - Call wDocSetContext + hSetDocumentContext() printlog " Enter some text in document" Call wTypeKeys ("Dies ist ein langer Text, HALLO HALLO") Wait 500 @@ -776,7 +776,7 @@ testcase tFormatColumn printlog " Format / Cloumn / Delete" TableDeleteColumns WaitSlot (500) - Call wDocSetContext + hSetDocumentContext() printlog " Press 'up' twice to point cursor in the table" Call wTypeKeys ("<Up>",2) wait 500 diff --git a/testautomation/writer/required/includes/w_005b_.inc b/testautomation/writer/required/includes/w_005b_.inc index ad7c69346cf8..707af57a1b6a 100644..100755 --- a/testautomation/writer/required/includes/w_005b_.inc +++ b/testautomation/writer/required/includes/w_005b_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testcases for the Format-Menu. '* @@ -176,7 +176,7 @@ testcase tFormatArrange printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'" Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) - + sleep(2) try printlog " Format / Arrange / Bring to front" FormatArrangeBringToFrontCalc @@ -219,12 +219,12 @@ testcase tFormatAlignment Call hNewDocument printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'" Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) - + sleep(2) if ( gApplication = "HTML" ) then printlog " Format / Anchor / to Page" hUseAsyncSlot( "FormatAnchorToPage" ) end if - + try printlog " Format / Alignment / Left" FormatAlignmentLeft @@ -469,14 +469,14 @@ testcase tFormatWrapObject if ( hUseAsyncSlot( "FormatWrapContour" ) = -1 ) then printlog( "Format / Wrap / Contour disabled. Good." ) else - warnlog( "#i90964# Format / Wrap / Contour should not be enabled for frames" ) + warnlog( "Format / Wrap / Contour should not be enabled for frames" ) end if printlog " Format / Wrap / Edit Contour" if ( hUseAsyncSlot( "FormatWrapEditContour" ) = -1 ) then printlog( "Format / Wrap / Edit Contour disabled. Good." ) else - Warnlog( "#i90964# Wrap / Edit Contour should not be enabled for frames" ) + Warnlog( "Wrap / Edit Contour should not be enabled for frames" ) Kontext "KonturEditor" if ( KonturEditor.exists( 2 ) ) then diff --git a/testautomation/writer/required/includes/w_006_.inc b/testautomation/writer/required/includes/w_006_.inc index 626171707480..ba671b26d1ff 100644..100755 --- a/testautomation/writer/required/includes/w_006_.inc +++ b/testautomation/writer/required/includes/w_006_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Call all functions in table menu '* diff --git a/testautomation/writer/required/includes/w_007_.inc b/testautomation/writer/required/includes/w_007_.inc index 9b9a19ca8676..94fa0d70f9f9 100755 --- a/testautomation/writer/required/includes/w_007_.inc +++ b/testautomation/writer/required/includes/w_007_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testcases for the Tools-Menu '* @@ -80,7 +80,7 @@ testcase tToolsSpellcheck printlog " Open document where the formatting is set to the language we wish to test." TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if ( not hFileExists ( TheFile ) ) then + if ( not FileExists ( TheFile ) ) then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." goto endsub end if @@ -125,7 +125,7 @@ testcase tToolsSpellcheck if Active.exists then if Active.GetRT = 304 then Active.Ok Warnlog "Dialog 'Spellcheck' not up!" - Call hCloseDocument + hFileCloseAll() goto endsub end if catch @@ -204,9 +204,8 @@ testcase tToolsSpellcheck Spellcheck.Close wait 500 PrintLog "Close active documents" - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase ' ------------------------------------------- @@ -243,7 +242,7 @@ testcase tToolsThesaurus printlog " Open document where the formatting is set to the language we wish to test." TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if ( not hFileExists ( TheFile ) ) then + if ( not FileExists ( TheFile ) ) then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." goto endsub end if @@ -292,9 +291,8 @@ testcase tToolsThesaurus printlog " Close 'Thesaurus' dialog" Thesaurus.Cancel PrintLog "Close active documents" - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase ' ------------------------------------------- @@ -332,7 +330,7 @@ testcase tToolsHyphenation LingFile = str$(iSprache) + "-hyph.dat" end select - if ( not hFileExists( DieDatei ) ) then + if ( not FileExists( DieDatei ) ) then Warnlog "No defined Errortext for language: " + isprache + "! Exit!" goto endsub end if @@ -1116,6 +1114,7 @@ endcase ' ------------------------------------------- testcase tHtmlDocToolsHangulHanjaConversion + Dim bAsianLanguage as Boolean Dim sTestFile as String @@ -1225,7 +1224,7 @@ testcase tMasterDocToolsHyphenation end select sTestFile = convertpath( sTestFile ) - if ( not hFileExists( sTestFile ) )then + if ( not FileExists( sTestFile ) )then Warnlog "No defined Errortext for language: " + isprache + "! Exit!" goto endsub end if diff --git a/testautomation/writer/required/includes/w_008_.inc b/testautomation/writer/required/includes/w_008_.inc index f3b20e978a1d..1cd171219a65 100644..100755 --- a/testautomation/writer/required/includes/w_008_.inc +++ b/testautomation/writer/required/includes/w_008_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Diverse Testcases for the office. '* diff --git a/testautomation/writer/required/includes/w_009_.inc b/testautomation/writer/required/includes/w_009_.inc index 90c4cb5aad19..fcc0b0e64cf8 100644..100755 --- a/testautomation/writer/required/includes/w_009_.inc +++ b/testautomation/writer/required/includes/w_009_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* ** -'* owner : helge.delfs@sun.com ** +'* owner : helge.delfs@oracle.com ** '* ** '* short description : Testcases for the Help-Menu '* @@ -86,9 +86,8 @@ testcase tHelpAboutStarOffice DialogTest ( UeberStarWriter ) printlog " In About dialog enter key <Strg+Alt+Del>" UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>" - Sleep 3 printlog " Close About dialog" - UeberStarWriter.OK + hCloseDialog( UeberStarWriter, "ok" ) printlog " Close active document" Call hCloseDocument endcase diff --git a/testautomation/writer/required/includes/w_010_.inc b/testautomation/writer/required/includes/w_010_.inc index 29c802022bed..5e2a596fbfd9 100644..100755 --- a/testautomation/writer/required/includes/w_010_.inc +++ b/testautomation/writer/required/includes/w_010_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testcases for the Objectbars. '* @@ -74,6 +74,9 @@ end sub '----------------------------------------------------------- testcase tFormatting + + GLOBAL_USE_NEW_SLEEP = TRUE + printlog "- Objectbar ( normal ) : Formatting" Call hNewDocument printlog " Open new document" @@ -147,6 +150,9 @@ testcase tFormatting Sleep 1 Call hCloseDocument printlog " Close active document" + + GLOBAL_USE_NEW_SLEEP = FALSE + endcase '----------------------------------------------------------- @@ -1078,6 +1084,10 @@ testcase tHtmlDocFormatting printlog " Open new document" Call hNewDocument + + Kontext "NavigatorWriter" + if NavigatorWriter.Exists then ViewNavigator + Call wTypeKeys ("Formatting <Shift Home>") Kontext "TextObjectbar" if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true ) @@ -1153,6 +1163,11 @@ testcase tMasterDocFormatting printlog " Open new document" Call hNewDocument + + Kontext "NavigatorGlobalDoc" + if NavigatorGlobalDoc.Exists then ViewNavigator + + Call wTypeKeys ("Formatting <Shift Home>") Kontext "TextObjectbar" if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true ) diff --git a/testautomation/writer/required/includes/w_010_1.inc b/testautomation/writer/required/includes/w_010_1.inc index b0cf33b43892..5b746eaf4ad2 100644..100755 --- a/testautomation/writer/required/includes/w_010_1.inc +++ b/testautomation/writer/required/includes/w_010_1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testcases for the Objectbars. '* diff --git a/testautomation/writer/required/includes/w_011_.inc b/testautomation/writer/required/includes/w_011_.inc index 61a20821349f..bc2fc42cf6b7 100755 --- a/testautomation/writer/required/includes/w_011_.inc +++ b/testautomation/writer/required/includes/w_011_.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description: Testcases for the Toolbar. '* diff --git a/testautomation/writer/required/includes/w_020_.inc b/testautomation/writer/required/includes/w_020_.inc index f927d24952f7..d5f4709d9c21 100644..100755 --- a/testautomation/writer/required/includes/w_020_.inc +++ b/testautomation/writer/required/includes/w_020_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description: Testcases for Toolbars. '* @@ -59,8 +59,10 @@ end sub '----------------------------------------------------------- testcase t_TB_Insert - qaErrorLog "#158646# - Inserting Indexes causes crash." - goto endsub + + ' JSK: This issue is solved since OOO300m9, enabling test again + 'qaErrorLog "#158646# - Inserting Indexes causes crash." + 'goto endsub printlog "- Toolbox ( normal ) : All within Insert" @@ -122,7 +124,8 @@ testcase t_TB_Insert else Call hToolbarSelect("Insert", true) endif - + + sleep( 2 ) ' Too fast for some machines. Using dirty fix. if Tabelle.IsEnabled then Tabelle.Click Kontext "TabelleEinfuegenWriter" @@ -235,7 +238,7 @@ testcase t_TB_InsertFields printlog "- Toolbox ( normal ) : Fields" if gPlatgroup = "unx" then - QAErrorlog "Doesn't run on unix" + printlog( "Test not suitable for Unix(like) OS" ) goto endsub end if printlog " Open new document" @@ -658,8 +661,10 @@ endcase '----------------------------------------------------------- testcase tHtmlDoc_TB_Insert - qaErrorLog "#158646# - Inserting Indexes causes crash." - goto endsub + + ' JSK: This issue is solved since OOO300m9, enabling test again + 'qaErrorLog "#158646# - Inserting Indexes causes crash." + 'goto endsub printlog "- Toolbox ( normal ) : All within Insert" gApplication = "HTML" @@ -780,7 +785,7 @@ testcase tHtmlDoc_TB_InsertFields gApplication = "HTML" if gPlatgroup = "unx" then - QAErrorlog "Doesn't run on unix" + printlog( "Test not suitable for Unix(like) OS" ) goto endsub end if diff --git a/testautomation/writer/required/w_updt.bas b/testautomation/writer/required/w_updt.bas index 498826f83e8d..e9fc5aab6458 100755 --- a/testautomation/writer/required/w_updt.bas +++ b/testautomation/writer/required/w_updt.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Ressource-Test Writer Document '* @@ -42,6 +42,7 @@ sub main use "writer\required\includes\w_002_.inc" use "writer\required\includes\w_003_.inc" use "writer\required\includes\w_004_.inc" + use "writer\required\includes\w_004b_.inc" use "writer\required\includes\w_005_.inc" use "writer\required\includes\w_005b_.inc" use "writer\required\includes\w_006_.inc" @@ -64,6 +65,7 @@ sub main Call w_002_ ' Menu Edit Call w_003_ ' Menu View Call w_004_ ' Menu Insert + Call w_004b_ ' Menu Insert Call w_005_ ' Menu Format Call w_005b_ ' Menu Format (2) Call w_006_ ' Menu Table diff --git a/testautomation/writer/tools/includes/w_get_locale_strings.inc b/testautomation/writer/tools/includes/w_get_locale_strings.inc index 3e10bdb3d6ce..23cd09eedadb 100644..100755 --- a/testautomation/writer/tools/includes/w_get_locale_strings.inc +++ b/testautomation/writer/tools/includes/w_get_locale_strings.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : testcase to get Locale Strings used in Writer Optional-Test '* diff --git a/testautomation/writer/tools/includes/w_locale_strings2.inc b/testautomation/writer/tools/includes/w_locale_strings2.inc index 73b987fb2c7e..354bcc44b936 100755 --- a/testautomation/writer/tools/includes/w_locale_strings2.inc +++ b/testautomation/writer/tools/includes/w_locale_strings2.inc @@ -25,7 +25,7 @@ ' '/*********************************************************************** '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : defining locale dependant strings for language guessing '* diff --git a/testautomation/writer/tools/includes/w_tool1.inc b/testautomation/writer/tools/includes/w_tool1.inc index 34b83bc5e97b..a39fa5773102 100755 --- a/testautomation/writer/tools/includes/w_tool1.inc +++ b/testautomation/writer/tools/includes/w_tool1.inc @@ -24,7 +24,7 @@ ' '/****************************************************************************** '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Put description here '* @@ -154,32 +154,48 @@ end sub sub hEinfuegenFloatingFrame InsertFloatingFrame + Kontext "TabEigenschaften" - FrameName.SetText "Hallo" - Inhalt.SetText ConvertPath ( gTesttoolpath + "input\desktop\frameset.htm" ) - TabEigenschaften.OK - Sleep 10 + if ( Tabeigenschaften.exists( 2 ) ) then + FrameName.SetText "Hallo" + Inhalt.SetText ConvertPath ( gTesttoolpath + "input\desktop\frameset.htm" ) + hCloseDialog( TabEigenschaften, "ok" ) + else + warnlog( "Failed to open <TabEigenschaften>" ) + endif end sub ' ----------------------------------------------------------------------- sub hEinfuegenRahmen + InsertFrame + Kontext - Active.SetPage TabType - Kontext "TabType" - TabType.OK - Sleep 3 + if ( Active.exists( 2 ) ) then + Active.SetPage TabType + Kontext "TabType" + hCloseDialog( TabType, "ok" ) + else + warnlog( "Failed to open <TabType>" ) + endif + end sub ' ----------------------------------------------------------------------- sub hEinfuegenChart + InsertObjectChart + Kontext "AutoformatDiagramm1" - Fertigstellen.Click - WaitSlot() ' NOOP + if ( AutoformatDiagramm1.exists( 2 ) ) then + hClickButton( Fertigstellen ) + else + warnlog( "Failed to open <AutoformatDiagramm1>" ) + endif + end sub ' ----------------------------------------------------------------------- @@ -315,6 +331,8 @@ end sub '---------------------------------------------------------------- sub sMenufunktionen(Fuer_Was as string) + + const RC_FAILURE = -1 Dim i as integer Kontext "FormControls" @@ -336,33 +354,20 @@ sub sMenufunktionen(Fuer_Was as string) next i Kontext - try - FormatControl - WaitSlot() + if ( hUseAsyncSlot( "FormatControl" ) <> RC_FAILURE ) then Kontext "ControlPropertiesDialog" if ControlPropertiesDialog.Exists( 2 ) then - ControlPropertiesDialog.Close - ControlPropertiesDialog.notExists( 2 ) - else - FormatControl - Wait 500 - Kontext "ControlPropertiesDialog" - if ControlPropertiesDialog.Exists( 2 ) then - ControlPropertiesDialog.Close - ControlPropertiesDialog.notExists( 2 ) - else - Warnlog " - Controlfieldproperties "+ Fuer_Was +" from Menu not available!" - end if - end if + hCloseDialog( ControlPropertiesDialog, "close" ) + endif printlog Fuer_Was - catch + else if gPlatform = "osx" then Warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything" else Warnlog " - Controlfieldproperties "+ Fuer_Was +" from Menu not available!" end if - endcatch + endif Call wTypeKeys "<Escape>" Kontext "FormControls" diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc index 44e78fd589b4..1378e751fd78 100644..100755 --- a/testautomation/writer/tools/includes/w_tool2.inc +++ b/testautomation/writer/tools/includes/w_tool2.inc @@ -24,17 +24,10 @@ ' '/************************************************************************ '* ** -'* owner : helge.delfs@sun.com ** +'* owner : helge.delfs@oracle.com ** '* ** '* short description : Description of file ** '* ** -'******************************************************************* -'* ** -' #1 OptionenAufrufen -' #1 CheckUberpruefen -' #1 UnCheckUeberpruefen -' #1 WortErgaenzen -'* ** '\****************************************************************** sub OptionenAufrufen(Seite as string) @@ -346,7 +339,7 @@ function wDeleteAutotext(vAutotextName as string) as boolean Dim bDeleted as boolean Dim sAllGroups as integer Dim sAllInGroups as integer - + Kontext "Autotext" if Not Autotext.Exists then EditAutotext @@ -370,36 +363,36 @@ function wDeleteAutotext(vAutotextName as string) as boolean ' count all groups sAllGroups = Liste.GetItemCount ' travel through all groups - For ik = 1 to sAllGroups - Liste.Select ik - Liste.TypeKeys "+" - - sAllInGroups = Liste.GetItemCount - sAllGroups - For j = 1 to sAllInGroups - Liste.TypeKeys "<Down>" - if Liste.Gettext = vAutotextName then - try - Menue.Click - wait 500 - Call hMenuSelectNr ( 3 ) - Kontext "Active" - if Active.Exists and Active.GetRT = 304 then - Active.yes - wDeleteAutotext = true - else - Warnlog "No messages to confirm deleting the Autotext!" - end if - bDeleted = true - exit for - catch - Warnlog "Menu Autotext->'Delete' disabled ! Test failed !" - endcatch - end if - next j - if bDeleted = true then exit for - ' close group + For ik = 1 to sAllGroups + Liste.Select ik + Liste.TypeKeys "+" + + sAllInGroups = Liste.GetItemCount - sAllGroups + For j = 1 to sAllInGroups + Liste.TypeKeys "<Down>" + if Liste.Gettext = vAutotextName then + try + Menue.Click + wait 500 + Call hMenuSelectNr ( 3 ) + Kontext "Active" + if Active.Exists and Active.GetRT = 304 then + Active.yes + wDeleteAutotext = true + else + Warnlog "No messages to confirm deleting the Autotext!" + end if + bDeleted = true + exit for + catch + Warnlog "Menu Autotext->'Delete' disabled ! Test failed !" + endcatch + end if + next j + if bDeleted = true then exit for + ' close group Liste.Select ik - Liste.TypeKeys "-" + Liste.TypeKeys "-" next ik end function @@ -420,4 +413,4 @@ sub wChangeDefaultView() Massstab.Ok Call hCloseDocument -end sub
\ No newline at end of file +end sub diff --git a/testautomation/writer/tools/includes/w_tool3.inc b/testautomation/writer/tools/includes/w_tool3.inc index 8be27ca7bc3c..16fd825f6447 100644..100755 --- a/testautomation/writer/tools/includes/w_tool3.inc +++ b/testautomation/writer/tools/includes/w_tool3.inc @@ -24,7 +24,7 @@ ' '/****************************************************************************** '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Description of file '* @@ -33,7 +33,7 @@ sub InTabelleKontrollieren Call wTypeKeys ("<Home>") Call wTypeKeys ("<Tab><Shift End>") - EditCopy + hUseAsyncSlot( "EditCopy" ) if GetClipBoardText <> "Text" then Warnlog "Text has not been inserted in a table" else @@ -45,7 +45,7 @@ end sub ' **** sub InTabelleKontrollierenExtra Call wTypeKeys ("<Home><Shift Tab><Shift End>") - EditCopy + hUseAsyncSlot( "EditCopy" ) if GetClipBoardText <> "Der" then Warnlog "Text has not been inserted in a table" else @@ -57,7 +57,7 @@ end sub '*** sub InTextKontrollieren Call wTypeKeys ("<Home><Shift Mod1 Right>") - EditCopy + hUseAsyncSlot( "EditCopy" ) if Left$(GetClipBoardText,3) <> "Der" AND Left$(GetClipboardText,4) <> "Der " then Warnlog "Table has not been changed to text" else diff --git a/testautomation/writer/tools/includes/w_tool4.inc b/testautomation/writer/tools/includes/w_tool4.inc index 78cee6ca3042..c2133c1ff4bc 100644..100755 --- a/testautomation/writer/tools/includes/w_tool4.inc +++ b/testautomation/writer/tools/includes/w_tool4.inc @@ -24,7 +24,7 @@ ' '/************************************************************************ '* ** -'* owner : helge.delfs@sun.com ** +'* owner : helge.delfs@oracle.com ** '* ** '* short description : Misc tools for writer tests ** '* ** @@ -143,7 +143,7 @@ function wGetSpellcheckDocumentName(xCategory as integer) as string end select if sReturn <> "None" then - if hFileExists(sTemp) then + if FileExists(sTemp) then sReturn = sTemp else sReturn = "Empty" diff --git a/testautomation/writer/tools/includes/w_tool5.inc b/testautomation/writer/tools/includes/w_tool5.inc index 383aefb2cdf5..6ac59f3f8365 100644..100755 --- a/testautomation/writer/tools/includes/w_tool5.inc +++ b/testautomation/writer/tools/includes/w_tool5.inc @@ -25,7 +25,7 @@ ' '/****************************************************************************** '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Description of file '* diff --git a/testautomation/writer/tools/includes/w_tool6.inc b/testautomation/writer/tools/includes/w_tool6.inc index caba673ae6be..33ddca87709e 100644..100755 --- a/testautomation/writer/tools/includes/w_tool6.inc +++ b/testautomation/writer/tools/includes/w_tool6.inc @@ -25,7 +25,7 @@ ' '/****************************************************************************** '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Tools for writer tests. '* @@ -575,54 +575,6 @@ end function '-------------------------------------------------------------- -function hIsNamedDocLoaded (ShouldFile as String) as Boolean - '/// Input: name of loaded file; Output: True/False///' - '///+ Several checks may be combined: ///' - '///+ disabled: Plan A: requires clippboard: check, if not untitled 1 window... ///' - '///+ Plan B: SaveAs Dialog ///' - '///+ not used now: Plan C: check if hNavigatorOpenWindows() > 0 ///' - - '///' Plan A :-( /// - ''///+ to be able to check, that document was loaded, print something before opening new doc ///' - ''///+ during test, check if it is readable ... ///' - ' Kontext "DocumentWriter" - ' DocumentWriter.TypeKeys "<Mod1 home>" - ' DocumentWriter.TypeKeys "TBOlastWindow" - ' DocumentWriter.TypeKeys "<Return>" - - ' Kontext "DocumentWriter" - ' DocumentWriter.TypeKeys "<Mod1 Home>" - ' DocumentWriter.TypeKeys "<Shift End>" - ' EditCopy - ' DocumentWriter.TypeKeys "<Home>" - ' if GetClipboardText <> "TBOlastWindow" Then ///' - - '/// ' Plan B :-) /// - '///+' if a doc got loaded, the filename in a 'SaveAs' Dlg is different from "" /// - '///+' usually the file name of the loaded document with an changed extension chosen from SO /// - - hIsNamedDocLoaded = False ' Let's start WorstCase :-( - FileSaveAs ' (Plan B) - Kontext "SpeichernDlg" - If DateiOhneExt(DateiExtract(Dateiname.GetSelText)) = DateiOhneExt(DateiExtract(ShouldFile)) Then - hIsNamedDocLoaded = True - ' Printlog "Filename: " + Dateiname.GetSelText+"; "+ShouldFile - ' Printlog "--------------------------------------------------Loaded as: " + Dateityp.GetSelText - Else - 'exception! for templates - if lcase(right(ShouldFile,3)) = "vor" or lcase(right(ShouldFile,3)) = "dot" then hIsNamedDocLoaded = True - End If - SpeichernDlg.Cancel - - '/ remove text of last window test text ///' - ' Kontext "DocumentWriter" - ' DocumentWriter.TypeKeys "<Mod1 home>" - ' DocumentWriter.TypeKeys "TBOlastWindow" - ' DocumentWriter.TypeKeys "<delete>" -end function - -'-------------------------------------------------------------- - sub hSetSpellHypLanguage dim sTrieit if bAsianLan then @@ -753,7 +705,7 @@ end sub function fInsertFrame (x1 as Integer , y1 as Integer , x2 as Integer , y2 as Integer) 'This function will insert a frame with the coordinate - Call wDocSetContext + hSetDocumentContext() Call hToolbarSelect("INSERT", true ) Sleep 1 diff --git a/testautomation/writer/tools/includes/w_tool7.inc b/testautomation/writer/tools/includes/w_tool7.inc index 3823efc65586..1079a4c3dbcc 100644..100755 --- a/testautomation/writer/tools/includes/w_tool7.inc +++ b/testautomation/writer/tools/includes/w_tool7.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Functions mostly used for fields '* diff --git a/testautomation/writer/tools/includes/w_tools.inc b/testautomation/writer/tools/includes/w_tools.inc index 122a44f7da53..27b9526bb0de 100755 --- a/testautomation/writer/tools/includes/w_tools.inc +++ b/testautomation/writer/tools/includes/w_tools.inc @@ -25,7 +25,7 @@ ' '/****************************************************************************** '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer-Tools '* @@ -64,6 +64,7 @@ end sub ' ----------------------------------------------------------------------- sub wTypeKeys ( OutputText , optional iLoop as Integer ) + Dim i as integer If lcase(OutputText) = "<mod1 a>" then If iSprache = 34 then OutputText = "<Mod1 E>" @@ -90,35 +91,7 @@ sub wTypeKeys ( OutputText , optional iLoop as Integer ) end select wait 500 next i -end sub - -' ----------------------------------------------------------------------- - -sub wDocSetContext - Select Case Ucase(gApplication) - Case "WRITER" - Kontext "DocumentWriter" - - Case "MASTERDOCUMENT" - Kontext "DocumentMasterDoc" - - Case "HTML" - Kontext "DocumentWriterWeb" - - Case "IMPRESS" - Kontext "DocumentImpress" - Case "DRAW" - Kontext "DocumentDraw" - - Case "MATH" - Kontext "DocumentMath" - - Case "CALC" - Kontext "DocumentCalc" - - end select - wait 500 end sub ' ----------------------------------------------------------------------- @@ -176,28 +149,28 @@ sub wZeichenobjektEinfuegen ( Objekt$, xStart%, yStart%, xEnde%, yEnde%, optiona Objekt = UCase( Objekt ) select case Objekt - case "RECHTECK" : Rechteck.Click - case "LINIE" : Linie.Click - case "ELLIPSE" : Ellipse.Click - case "TEXT" : Textobjekt.Click - case "VTEXT" : - try - VerticalText.Click - catch - if gAsianSup = True then - Warnlog "Unable to insert Vertical Text! Asian Support in Options activated ?" - end if - endcatch - case "LAUFTEXT" : Lauftext.Click - case "LEGENDE" : Legende.Click - case "VLEGENDE" : - try - VerticalCallout.Click - catch - Warnlog "Unable to insert Vertical Callout! Asian Support in Options activated ?" - endcatch + case "RECHTECK" : Rechteck.Click + case "LINIE" : Linie.Click + case "ELLIPSE" : Ellipse.Click + case "TEXT" : Textobjekt.Click + case "VTEXT" : + try + VerticalText.Click + catch + if gAsianSup = True then + Warnlog "Unable to insert Vertical Text! Asian Support in Options activated ?" + end if + endcatch + case "LAUFTEXT" : Lauftext.Click + case "LEGENDE" : Legende.Click + case "VLEGENDE" : + try + VerticalCallout.Click + catch + Warnlog "Unable to insert Vertical Callout! Asian Support in Options activated ?" + endcatch end select - Sleep (2) + Sleep (2) Select Case gApplication Case "WRITER" @@ -236,7 +209,7 @@ sub wZeichenobjektEinfuegen ( Objekt$, xStart%, yStart%, xEnde%, yEnde%, optiona wait 100 end if end select - sleep (1) + sleep (1) end sub ' ----------------------------------------------------------------------- @@ -534,7 +507,7 @@ sub wNavigatorAuswahl(Gruppe as integer, Eintrag as integer,optional LeaveFocus Sleep 2 - Select Case Ucase(gApplication) + Select Case gApplication Case "CALC" if (Liste.GetItemCount < MinEntrys) then Umschalten.Click if Liste.GetItemCount >MinEntrys then @@ -552,7 +525,7 @@ sub wNavigatorAuswahl(Gruppe as integer, Eintrag as integer,optional LeaveFocus Liste.TypeKeys "<Return>" end if - Case "WRITER","HTML", "HTML" + Case "WRITER","HTML" if (Auswahlliste.GetItemCount < MinEntrys) then try Inhaltsansicht.Click diff --git a/testautomation/writer/tools/includes/w_tools_autocorrection.inc b/testautomation/writer/tools/includes/w_tools_autocorrection.inc index 71a183527ed6..0b745c207696 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_autocorrection.inc +++ b/testautomation/writer/tools/includes/w_tools_autocorrection.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the AutoCorrect/AutoFormat/Word tools '* diff --git a/testautomation/writer/tools/includes/w_tools_drawing.inc b/testautomation/writer/tools/includes/w_tools_drawing.inc index 1a1a8ed7975d..6fd3064f4d88 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_drawing.inc +++ b/testautomation/writer/tools/includes/w_tools_drawing.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Test the AutoCorrect/AutoFormat/Word tools '* diff --git a/testautomation/writer/tools/includes/w_tools_hyphenation.inc b/testautomation/writer/tools/includes/w_tools_hyphenation.inc index 067aeec3cfca..8511197269db 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_hyphenation.inc +++ b/testautomation/writer/tools/includes/w_tools_hyphenation.inc @@ -24,7 +24,7 @@ ' '/****************************************************************** '* ** -'* owner : helge.delfs@sun.com ** +'* owner : helge.delfs@oracle.com ** '* ** '* short description : Misc tools for writer hyphenation tests ** '* ** diff --git a/testautomation/writer/tools/includes/w_tools_undo.inc b/testautomation/writer/tools/includes/w_tools_undo.inc index 4548fe455a1d..8040b34dc841 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_undo.inc +++ b/testautomation/writer/tools/includes/w_tools_undo.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Tools for w_undo.bas '* diff --git a/testautomation/writer/tools/w_get_locale_strings.bas b/testautomation/writer/tools/w_get_locale_strings.bas index f0dbe5c4ae25..ba1010027388 100755 --- a/testautomation/writer/tools/w_get_locale_strings.bas +++ b/testautomation/writer/tools/w_get_locale_strings.bas @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Get Locale Strings for Writer Level1-Test '* |