diff options
Diffstat (limited to 'testautomation/writer/optional')
25 files changed, 2344 insertions, 2185 deletions
diff --git a/testautomation/writer/optional/includes/autotext/w_autotext.inc b/testautomation/writer/optional/includes/autotext/w_autotext.inc index 11cc9d0955b6..2921a66e5d7b 100644..100755 --- a/testautomation/writer/optional/includes/autotext/w_autotext.inc +++ b/testautomation/writer/optional/includes/autotext/w_autotext.inc @@ -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/clipboard/clipbrd_func.inc b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc index bad0c5f41dae..278ecd229eda 100755 --- a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc +++ b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc @@ -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/drawing/w_drawing_tools1.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc index 8ffdb8afe37e..1b2579ee0aaf 100644..100755 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc @@ -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..0207a177c706 100644..100755 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc @@ -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/fields/w_fields2.inc b/testautomation/writer/optional/includes/fields/w_fields2.inc index 0514ba5b020e..4023480ff7dd 100755 --- a/testautomation/writer/optional/includes/fields/w_fields2.inc +++ b/testautomation/writer/optional/includes/fields/w_fields2.inc @@ -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 diff --git a/testautomation/writer/optional/includes/fields/w_fields4.inc b/testautomation/writer/optional/includes/fields/w_fields4.inc index 20069da398c1..f498051225db 100755 --- a/testautomation/writer/optional/includes/fields/w_fields4.inc +++ b/testautomation/writer/optional/includes/fields/w_fields4.inc @@ -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..d0ef15f71fb3 100755 --- a/testautomation/writer/optional/includes/fields/w_fields5.inc +++ b/testautomation/writer/optional/includes/fields/w_fields5.inc @@ -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_fields7.inc b/testautomation/writer/optional/includes/fields/w_fields7.inc index fdec55afb9ce..70dfedc62085 100644..100755 --- a/testautomation/writer/optional/includes/fields/w_fields7.inc +++ b/testautomation/writer/optional/includes/fields/w_fields7.inc @@ -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/hangulhanjaonversion/hhConversion1.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc index e58a4a2a94da..33b20cf3c910 100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc @@ -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..5b9fc83f58de 100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc @@ -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..3ade639fd26d 100644..100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc @@ -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/loadsave/w_loadsave.inc b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc index 62c997927ab6..57d1be96d871 100644 --- a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc +++ b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc @@ -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..ede650feb713 100644..100755 --- a/testautomation/writer/optional/includes/navigator/w_navigator.inc +++ b/testautomation/writer/optional/includes/navigator/w_navigator.inc @@ -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/option/wr_o_4.inc b/testautomation/writer/optional/includes/option/wr_o_4.inc index de44cdfea13a..d5a692fc5a24 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_4.inc +++ b/testautomation/writer/optional/includes/option/wr_o_4.inc @@ -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" @@ -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/regexp/search.inc b/testautomation/writer/optional/includes/regexp/search.inc index c53ff6250461..e3b2969632e3 100755 --- a/testautomation/writer/optional/includes/regexp/search.inc +++ b/testautomation/writer/optional/includes/regexp/search.inc @@ -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/section/w_section_4.inc b/testautomation/writer/optional/includes/section/w_section_4.inc index 3d8acb4a9cd5..03a59b567f18 100644..100755 --- a/testautomation/writer/optional/includes/section/w_section_4.inc +++ b/testautomation/writer/optional/includes/section/w_section_4.inc @@ -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/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc index 3dfd505d129c..07c0dc4628d0 100755 --- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc +++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc @@ -52,7 +52,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 +120,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 +219,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 +726,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 +1236,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 diff --git a/testautomation/writer/optional/includes/textframes/w_textframes1.inc b/testautomation/writer/optional/includes/textframes/w_textframes1.inc index f6e977e15091..d61d2560d010 100644..100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes1.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes1.inc @@ -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/tools/tools1.inc b/testautomation/writer/optional/includes/tools/tools1.inc index 987548a064d1..c187d34b39ac 100644 --- a/testautomation/writer/optional/includes/tools/tools1.inc +++ b/testautomation/writer/optional/includes/tools/tools1.inc @@ -29,21 +29,6 @@ '* '* 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..8ee87a5b037a 100644 --- a/testautomation/writer/optional/includes/tools/tools2.inc +++ b/testautomation/writer/optional/includes/tools/tools2.inc @@ -29,157 +29,143 @@ '* '* 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..9fe34e5880a7 100644 --- a/testautomation/writer/optional/includes/undo/w_undo1.inc +++ b/testautomation/writer/optional/includes/undo/w_undo1.inc @@ -28,11 +28,6 @@ '* '* 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..72fe352b2319 100755..100644 --- a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc @@ -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..5104b29af85b 100755..100644 --- a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc @@ -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..64b69a512a42 100644 --- a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc @@ -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..4b80936ffbaa 100644 --- a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc @@ -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 |