From b38b2d8a13ab117047bc3d8057ab5dbe2c704478 Mon Sep 17 00:00:00 2001 From: hde Date: Fri, 11 Feb 2011 10:13:25 +0100 Subject: #i116921#cws automationdev300m99#removed fixed/closed issue ids from warnlogs --- .../optional/includes/clipboard/clipbrd_func.inc | 9 +- .../includes/contextmenu/w_contextmenu1.inc | 8 -- .../optional/includes/drawing/w_drawing_tools1.inc | 2 +- .../optional/includes/drawing/w_drawing_tools2.inc | 4 +- .../writer/optional/includes/fields/w_fields2.inc | 2 +- .../writer/optional/includes/fields/w_fields3.inc | 4 +- .../writer/optional/includes/fields/w_fields4.inc | 2 +- .../writer/optional/includes/fields/w_fields5.inc | 4 +- .../formatcharacter/w_format_character1.inc | 2 +- .../optional/includes/formatpage/w_formatpage1.inc | 4 +- .../formatparagraph/w_formatparagraph1.inc | 4 +- .../formatparagraph/w_formatparagraph2.inc | 6 +- .../includes/insertgraphic/w_insertgraphic1.inc | 2 +- .../includes/insertgraphic/w_insertgraphic3.inc | 6 +- .../optional/includes/loadsave/w_loadsave.inc | 2 +- .../optional/includes/navigator/w_navigator.inc | 10 +- .../writer/optional/includes/number/w_205_.inc | 24 ++-- .../writer/optional/includes/number/w_205a_.inc | 2 +- .../writer/optional/includes/option/wh_o_2.inc | 2 +- .../optional/includes/redlining/w_redlining1.inc | 4 +- .../optional/includes/redlining/w_redlining2.inc | 2 +- .../issuezilla/w_issuezilla_regression.inc | 4 +- .../optional/includes/section/w_section_2.inc | 2 +- .../optional/includes/shortcut/w_shortcuts.inc | 2 +- .../optional/includes/spellcheck/w_spellcheck.inc | 22 ++-- .../writer/optional/includes/stylist/w_stylist.inc | 16 +-- .../optional/includes/textframes/w_textframes2.inc | 4 +- testautomation/writer/required/includes/w_001_.inc | 2 +- .../writer/required/includes/w_001a_.inc | 2 +- .../writer/required/includes/w_001b_.inc | 16 +-- testautomation/writer/required/includes/w_002_.inc | 4 +- testautomation/writer/required/includes/w_004_.inc | 3 +- .../writer/required/includes/w_004b_.inc | 12 -- .../writer/required/includes/w_005b_.inc | 2 +- testautomation/writer/required/includes/w_007_.inc | 2 +- testautomation/writer/required/includes/w_010_.inc | 8 +- testautomation/writer/required/includes/w_011_.inc | 6 +- testautomation/writer/required/includes/w_020_.inc | 4 +- testautomation/writer/tools/includes/w_tool1.inc | 4 +- testautomation/writer/tools/includes/w_tool2.inc | 2 +- testautomation/writer/tools/includes/w_tool6.inc | 2 +- .../writer/tools/includes/w_tools_undo.inc | 140 ++++++++++----------- 42 files changed, 168 insertions(+), 196 deletions(-) mode change 100755 => 100644 testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc mode change 100755 => 100644 testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc mode change 100755 => 100644 testautomation/writer/optional/includes/redlining/w_redlining2.inc mode change 100755 => 100644 testautomation/writer/optional/includes/section/w_section_2.inc mode change 100755 => 100644 testautomation/writer/optional/includes/stylist/w_stylist.inc mode change 100755 => 100644 testautomation/writer/required/includes/w_001a_.inc mode change 100755 => 100644 testautomation/writer/required/includes/w_002_.inc mode change 100755 => 100644 testautomation/writer/required/includes/w_005b_.inc mode change 100755 => 100644 testautomation/writer/required/includes/w_010_.inc mode change 100755 => 100644 testautomation/writer/required/includes/w_011_.inc mode change 100755 => 100644 testautomation/writer/tools/includes/w_tool1.inc mode change 100755 => 100644 testautomation/writer/tools/includes/w_tools_undo.inc (limited to 'testautomation') diff --git a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc index 0c9f976b187b..c30bfd52d351 100644 --- a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc +++ b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc @@ -55,13 +55,8 @@ function wPasteAvailableClipboardFormats(TheNumber as integer, CheckWhat as Stri printlog "- Paste as: " + ClipboardFormat Select Case CheckWhat Case "ctext", "DRAW" - if lcase(gPlatform) = "sol" and lcase(ClipboardFormat) = "bitmap" then - QAErrorlog "#i49505#Paste drawing object as bitmap crashes office" - goto s_next_item - else - InhaltEinfuegen.Ok - Sleep 3 - end if + InhaltEinfuegen.Ok + Sleep 3 Case else InhaltEinfuegen.Ok Sleep 3 diff --git a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc index 729659dfc54d..4965250e7c9f 100644 --- a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc +++ b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc @@ -177,8 +177,6 @@ endcase testcase tPickGraphic - Warnlog "#i115132#Missing .uno Slots in context menus" - goto endsub printlog "Open context menu on not focussed graphic" Call hNewDocument Printlog " Set zoom to 100%" @@ -267,9 +265,6 @@ endcase testcase tHyperlinkEdit - Warnlog "#i115132#Missing .uno Slots in context menus" - goto endsub - printlog "Context menu on hyperlinks" printlog " Open a new text document" CALL hNewDocument @@ -392,9 +387,6 @@ endcase testcase tPickDrawingObjects - Warnlog "#i115132#Missing .uno Slots in context menus" - goto endsub - printlog "Context menu on drawing objects" printlog " Open a new text document" Call hNewDocument diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc old mode 100755 new mode 100644 index 659bb2a4ddb7..9537eb2ae948 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc @@ -221,7 +221,7 @@ testcase tPositionAndSize_2 Sleep 1 fPositionAndSize("TabPositionAndSizeWriter") - if Horizontalby.Gettext <> sPositionX then Warnlog "#i40845# X-Position is wrong: Not -> "+sPositionX+" but -> "+Horizontalby.Gettext + if Horizontalby.Gettext <> sPositionX then Warnlog "X-Position is wrong: Not -> "+sPositionX+" but -> "+Horizontalby.Gettext if Verticalby.Gettext <> sPositionY then Warnlog "Y-Position is wrong: Not -> "+sPositionY+" but -> "+Verticalby.Gettext TabPositionAndSizeWriter.Cancel diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc index 08ebbfed45d4..17babc991f7e 100644 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc @@ -300,7 +300,7 @@ testcase tGroup_6 PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)" Call gMouseClick(41,40) Call fPositionAndSize("TabPositionAndSizeWriter") - if Horizontalby.Gettext <> sPositionX1 then Warnlog "#i106719#Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext + if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext if Verticalby.Gettext <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+" but -> "+ Verticalby.Gettext TabPositionAndSizeWriter.Cancel @@ -371,7 +371,7 @@ testcase tGroup_7 PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)." Call gMouseClick(40,40) Call fPositionAndSize("TabPositionAndSizeWriter") - if Horizontalby.Gettext <> sPositionX1 then Warnlog "#i106719#Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext + if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext if Verticalby.Gettext <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+" but -> "+ Verticalby.Gettext TabPositionAndSizeWriter.Cancel diff --git a/testautomation/writer/optional/includes/fields/w_fields2.inc b/testautomation/writer/optional/includes/fields/w_fields2.inc index 168fed204ebe..4ac611f39aa6 100644 --- a/testautomation/writer/optional/includes/fields/w_fields2.inc +++ b/testautomation/writer/optional/includes/fields/w_fields2.inc @@ -955,7 +955,7 @@ testcase tDocumentTemplate if GetClipboard <> sResult(i-1) then select case i-1 case 0 - QAErrorlog "#i70342#Field 'Templates->Category' is empty" + Warnlog "Field 'Templates->Category' is empty" case else Warnlog " - Should get " & sResult(i-1) & " but get " & GetClipboard end select diff --git a/testautomation/writer/optional/includes/fields/w_fields3.inc b/testautomation/writer/optional/includes/fields/w_fields3.inc index 64261c7e1ac6..c2fe3d5d27f6 100644 --- a/testautomation/writer/optional/includes/fields/w_fields3.inc +++ b/testautomation/writer/optional/includes/fields/w_fields3.inc @@ -278,7 +278,7 @@ testcase tInsertReferenceChapter Call wTypeKeys "" if fGetFieldContent( ) <> "2" then - Warnlog "#i40625# Should get 2 , but get " & fGetFieldContent() + Warnlog "Should get 2 , but get " & fGetFieldContent() end if '/// Close the document @@ -776,7 +776,7 @@ testcase tInsertBookmarkChapter Call wTypeKeys "" if fGetFieldContent( ) <> "2" then - Warnlog "#i40625# Should get 2 , but get " & fGetFieldContent() + Warnlog "Should get 2 , but get " & fGetFieldContent() end if '/// Close the document diff --git a/testautomation/writer/optional/includes/fields/w_fields4.inc b/testautomation/writer/optional/includes/fields/w_fields4.inc index 315c6b0f96d3..459e91da7912 100644 --- a/testautomation/writer/optional/includes/fields/w_fields4.inc +++ b/testautomation/writer/optional/includes/fields/w_fields4.inc @@ -261,7 +261,7 @@ endcase '----------------------------------------------------------------- testcase tDocInformationUserDefined - QAErrorLog "#i112077#Tabpage 'Custom properties' has no declaration" + Warnlog "#i95523#Tabpage 'Custom properties' has no declaration" goto endsub Dim sTestFile as String Dim sVarResult() as String diff --git a/testautomation/writer/optional/includes/fields/w_fields5.inc b/testautomation/writer/optional/includes/fields/w_fields5.inc index 75f94e8a3351..6ff7f2c1701d 100644 --- a/testautomation/writer/optional/includes/fields/w_fields5.inc +++ b/testautomation/writer/optional/includes/fields/w_fields5.inc @@ -182,7 +182,7 @@ testcase tVariablesSetValueToNumber for i = 0 to j Call wTypeKeys "" if fGetFieldContent() <> sResult(i) then - QaErrorLog i & "#i94596# - Should get " & sResult(i) & " but get " & fGetFieldContent() + Warnlog i & "Should get " & sResult(i) & " but get " & fGetFieldContent() end if Call wTypeKeys "" next i @@ -194,8 +194,6 @@ endcase '----------------------------------------------------------------- testcase tVariablesSetFormats - qaerrorlog "#i94596# - tVariablesSetFormats outcommented due to bug." - goto endsub Dim sName as String Dim sValue as String diff --git a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc b/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc index df216304ea2e..9cfd50567a78 100644 --- a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc +++ b/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc @@ -225,7 +225,7 @@ testcase tFormatCharacter3 Kontext active.SetPage TabHyperlinkZeichen kontext "TabHyperlinkZeichen" - if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "##i105855##Wrong URL : " + URLName.GetText + if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i105855#Wrong URL : " + URLName.GetText SetClipboard UrlName.Gettext if NameText.GetText <> "A hyperlink with testtool" then Warnlog "#i105855#Wrong Linkname : " + NameText.GetText if TargetFrame.GetSelIndex <> 2 then Warnlog "#i105855#Wrong Target selected : " + TargetFrame.GetSelText diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc index a7393d50f6df..ef6280b51cfd 100644 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc @@ -753,7 +753,7 @@ testcase tFormatPage_13 if Not Navigator.Exists then ViewNavigator Kontext "NavigatorWriter" Sleep 1 - if Seitennummer.GetText <> sPage2 then Warnlog "#i40333# 2nd pic isn't in page 3 !" + if Seitennummer.GetText <> sPage2 then Warnlog "2nd pic isn't in page 3 !" fCloseNavigator Wait 500 @@ -810,7 +810,7 @@ testcase tFormatPage_14 if Not Navigator.Exists then ViewNavigator Kontext "NavigatorWriter" Sleep 1 - if Seitennummer.GetText <> sPage2 then Warnlog "#i40333# 2nd pic isn't in page 4 !" + if Seitennummer.GetText <> sPage2 then Warnlog "2nd pic isn't in page 4 !" fCloseNavigator Wait 500 diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc index 7c31482e37af..686c246d0400 100644 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc @@ -939,7 +939,7 @@ testcase tParagraphIndent13 if Not Navigator.Exists then ViewNavigator Kontext "NavigatorWriter" Sleep 1 - if Seitennummer.GetText <> "8" then Warnlog "#i73903#The 8th line should be in 8th page !" + if Seitennummer.GetText <> "8" then Warnlog "The 8th line should be in 8th page !" fCloseNavigator '/// check if the pic moves @@ -1008,7 +1008,7 @@ testcase tParagraphIndent14 if Not Navigator.Exists then ViewNavigator Kontext "NavigatorWriter" Sleep 1 - if Seitennummer.GetText <> "8" then Warnlog "#i73903#The 8th line should be in 8th page !" + if Seitennummer.GetText <> "8" then Warnlog "The 8th line should be in 8th page !" fCloseNavigator '/// check if the pic moves diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc index d204f8f2e02c..7d34b25d886a 100644 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc @@ -197,7 +197,7 @@ testcase tParagraphAlignment4 Call fPositionAndSize("TabPositionAndSizeWriter") if fCalculateTolerance(Horizontalby.Gettext , sPositionX1) > 0.02 then if gPlatGroup = "unx" then - QaErrorLog "#i94769# - Different font-sizes under Linux/Unix compared with windows." + Warnlog "Different font-sizes under Linux/Unix compared with windows." else Warnlog "Alignment Justified doesn't work -1 !" end if @@ -210,7 +210,7 @@ testcase tParagraphAlignment4 Call fPositionAndSize("TabPositionAndSizeWriter") if Horizontalby.Gettext <> sPositionX2 then if gPlatGroup = "unx" then - QaErrorLog "#i94769# - Different font-sizes under Linux/Unix compared with windows." + Warnlog "Different font-sizes under Linux/Unix compared with windows." else warnlog "Alignment Justified doesn't work -2 !" end if @@ -310,7 +310,7 @@ testcase tParagraphAlignment6 Call fPositionAndSize("TabPositionAndSizeWriter") if Horizontalby.Gettext <> sPositionX1 then if gPlatGroup = "unx" then - QaErrorLog "#i94769# - Different font-sizes under Linux/Unix compared with windows." + Warnlog "Different font-sizes under Linux/Unix compared with windows." else warnlog "Alignment Justified doesn't work -1 !" end if diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc index 4e670f290f13..1def138817b4 100644 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc @@ -653,7 +653,7 @@ testcase tInsertGraphic_10 Call wTypeKeys ( "" ) sleep(1) if fFormatGraphic("TabZusaetze") = false then - Warnlog "#i46300#linked JPEG pictures will disappear when doc is modified." + Warnlog "#linked JPEG pictures will disappear when doc is modified." kontext "TabZusatze" if ( TabZusaetze.exists() ) then TabZusaetze.close() diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc old mode 100755 new mode 100644 index 1a3624487ffb..2a161b2200d1 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc @@ -903,7 +903,7 @@ testcase tInsertGraphic_29 fFormatGraphic("TabUmlauf") Sleep 1 - if Parallel.IsChecked <> TRUE then QaErrorLog "#i94558# - Graphic wrapping situation is wrong !" + if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !" if ErsterAbsatz.IsChecked <> TRUE then Warnlog "first paragraph configuration is wrong !" TabUmlauf.Cancel @@ -960,7 +960,7 @@ testcase tInsertGraphic_30 fFormatGraphic("TabUmlauf") Sleep 1 - if Parallel.IsChecked <> TRUE then QaErrorLog "#i94558# - Graphic wrapping situation is wrong !" + if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !" TabUmlauf.Cancel PrintLog " 3. Optimal Page Wrap:" @@ -1013,7 +1013,7 @@ testcase tInsertGraphic_30 fFormatGraphic("TabUmlauf") Sleep 1 - if Parallel.IsChecked <> TRUE then QaErrorLog "#i94558# - Graphic wrapping situation is wrong !" + if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !" if ErsterAbsatz.IsChecked <> TRUE then Warnlog "first paragraph configuration is wrong !" TabUmlauf.Cancel diff --git a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc index 33768d6ffc38..2598c2b5f912 100644 --- a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc +++ b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc @@ -80,7 +80,7 @@ testcase tExportAllReadableFormatsIntoODF if GetExtention ( sExportFile ) = "psw" then QAErrorlog "#i102221#Pocket Word filter puts General I/O Error" elseif LCase( sExceptionFile ) = "swdos.txt" then - QAErrorlog "#i114062#General I/O error loading StarWriter DOS file" + Warnlog "General I/O error loading StarWriter DOS file" else Call hFileOpenLocally( ImportFileList(i) ) printlog "- done" diff --git a/testautomation/writer/optional/includes/navigator/w_navigator.inc b/testautomation/writer/optional/includes/navigator/w_navigator.inc index e164bce470be..1750b4de3950 100644 --- a/testautomation/writer/optional/includes/navigator/w_navigator.inc +++ b/testautomation/writer/optional/includes/navigator/w_navigator.inc @@ -80,13 +80,13 @@ testcase tViewNavigator1 try Navigator.Size (300, 400) catch - Warnlog "Sizen Navigator doesn't work.. see #i32449" + Warnlog "Sizen Navigator doesn't work" endcatch Sleep 1 try Navigator.Size (xSize%, ySize%) catch - Printlog "Sizen Navigator doesn't work.. see #i32449" + Printlog "Sizen Navigator doesn't work" endcatch Sleep 1 @@ -176,12 +176,12 @@ testcase tViewNavigator2 try DocumentWriter.FadeOut catch - Warnlog "#i35096#Unable to Fade out Navigator!" + Warnlog "Unable to Fade out Navigator!" endcatch try DocumentWriter.FadeIn catch - Warnlog "#i35096#Unable to Fade out Navigator!" + Warnlog "Unable to Fade out Navigator!" endcatch Kontext "Navigator" @@ -231,7 +231,7 @@ testcase tViewNavigator3 Navigation.TearOff NavigationTearOff = true catch - Warnlog "Unable to tear off Navigation Toolbar! (#i32092)" + Warnlog "Unable to tear off Navigation Toolbar!" endcatch if NavigationTearOff = true then Sleep 1 diff --git a/testautomation/writer/optional/includes/number/w_205_.inc b/testautomation/writer/optional/includes/number/w_205_.inc index ade7afe66ad2..2d9c844ff922 100644 --- a/testautomation/writer/optional/includes/number/w_205_.inc +++ b/testautomation/writer/optional/includes/number/w_205_.inc @@ -274,35 +274,35 @@ testcase tFormatNumberingPosition Active.SetPage TabPositionNumerierung Kontext "TabPositionNumerierung" Level.Select 1 -' if Alignment.GetSelIndex <> 2 then Warnlog "#i38904#Level 1: Wrong alignment: Should = 2 Ist = "+ Alignment.GetSelIndex +' if Alignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong alignment: Should = 2 Ist = "+ Alignment.GetSelIndex if V1 <> AlignedAt.GetText then Warnlog "Level 1: Wrong Text <-> Rand: Should = "+ V1+ " Is = "+ AlignedAt.GetText if V2 <> IndentAt.GetText then Warnlog "Level 1: Wrong indent: Should = "+ V2+ " Is = "+ IndentAt.GetText Level.Select 3 ' if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 3!" - if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 3: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex if V3 <> AlignedAt.GetText then Warnlog "Level 3: Wrong Text <-> Spacing to text: Should = "+ V3+ " Is = "+ AlignedAt.GetText ' if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Wrong indent: Should = "+ V4+ " Is = "+ AbstandTextNumerierung.GetText Level.Select 4 ' if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 4!" - if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 4: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex if V5 <> AlignedAt.GetText then Warnlog "Level 4: Wrong Text <-> Spacing to text: Should = "+ V5+ " Is = "+ AlignedAt.GetText ' if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Wrong indent: Should = "+ V6+ " Is = "+ AbstandTextNumerierung.GetText if V7 <> IndentAt.GetText then Warnlog "Level 4: Wrong indent: Should = "+ V7+ " Is = "+ IndentAt.GetText Level.Select 6 ' if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 6!" - if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 6: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex if V8 <> AlignedAt.GetText then Warnlog "Level 6: Wrong Text <-> Spacing to text: Should = "+ V8+ " Is = "+ AlignedAt.GetText ' if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Wrong indent: Should = "+ V9+ " Is = "+ AbstandTextNumerierung.GetText if V10 <> IndentAt.GetText then Warnlog "Level 6: Wrong indent: Should = "+ V10+ " Is = "+ IndentAt.GetText Level.Select 9 ' if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 9!" - if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 9: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex if V11 <> AlignedAt.GetText then Warnlog "Level 9: Wrong Text <-> Spacing to text: Should = "+ V11+ " Is = "+ AlignedAt.GetText ' if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Wrong indent: Should = "+ V12+ " Is = "+ AbstandTextNumerierung.GetText if V13 <> IndentAt.GetText then Warnlog "Level 9: Wrong indent: Should = "+ V13+ " Is = "+ IndentAt.GetText Level.Select 10 ' if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 10!" - if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 10: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex if V14 <> AlignedAt.GetText then Warnlog "Level 10: Wrong Text <-> Spacing to text: Should = "+ V14+ " Is = "+ AlignedAt.GetText ' if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Wrong indent: Should = "+ V15+ " Is = "+ AbstandTextNumerierung.GetText if V16 <> IndentAt.GetText then Warnlog "Level 10: Wrong indent: Should = "+ V16+ " Is = "+ IndentAt.GetText @@ -324,35 +324,35 @@ testcase tFormatNumberingPosition Kontext "TabPositionNumerierung" Level.Select 1 - if Alignment.GetSelIndex <> 2 then Warnlog "#i38904#Level 1: Wrong alignment: Should = 2 Ist = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong alignment: Should = 2 Ist = "+ Alignment.GetSelIndex if V1 <> AlignedAt.GetText then Warnlog "Level 1: Wrong Text <-> Rand: Should = "+ V1+ " Is = "+ AlignedAt.GetText if V2 <> IndentAt.GetText then Warnlog "Level 1: Wrong indent: Should = "+ V2+ " Is = "+ IndentAt.GetText Level.Select 3 ' if Not Relativ.IsChecked then Relativ.Check - if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 3: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex if V3 <> AlignedAt.GetText then Warnlog "Level 3: Wrong Text <-> Spacing to text: Should = "+ V3+ " Is = "+ AlignedAt.GetText ' if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Wrong indent: Should = "+ V4+ " Is = "+ AbstandTextNumerierung.GetText Level.Select 4 ' if Not Relativ.IsChecked then Relativ.Check - if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 4: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex if V5 <> AlignedAt.GetText then Warnlog "Level 4: Wrong Text <-> Spacing to text: Should = "+ V5+ " Is = "+ AlignedAt.GetText ' if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Wrong indent: Should = "+ V6+ " Is = "+ AbstandTextNumerierung.GetText if V7 <> IndentAt.GetText then Warnlog "Level 4: Wrong indent: Should = "+ V7+ " Is = "+ IndentAt.GetText Level.Select 6 ' if Not Relativ.IsChecked then Relativ.Check - if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 6: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex if V8 <> AlignedAt.GetText then Warnlog "Level 6: Wrong Text <-> Spacing to text: Should = "+ V8+ " Is = "+ AlignedAt.GetText ' if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Wrong indent: Should = "+ V9+ " Is = "+ AbstandTextNumerierung.GetText if V10 <> IndentAt.GetText then Warnlog "Level 6: Wrong indent: Should = "+ V10+ " Is = "+ IndentAt.GetText Level.Select 9 ' if Not Relativ.IsChecked then Relativ.Check - if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 9: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong alignment: Should = 1 Is = "+ Alignment.GetSelIndex if V11 <> AlignedAt.GetText then Warnlog "Level 9: Wrong Text <-> Spacing to text: Should = "+ V11+ " Is = "+ AlignedAt.GetText ' if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Wrong indent: Should = "+ V12+ " Is = "+ AbstandTextNumerierung.GetText if V13 <> IndentAt.GetText then Warnlog "Level 9: Wrong indent: Should = "+ V13+ " Is = "+ IndentAt.GetText Level.Select 10 ' if Not Relativ.IsChecked then Relativ.Check - if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 10: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex + if Alignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong alignment: Should = 3 Is = "+ Alignment.GetSelIndex if V14 <> AlignedAt.GetText then Warnlog "Level 10: Wrong Text <-> Spacing to text: Should = "+ V14+ " Is = "+ AlignedAt.GetText ' if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Wrong indent: Should = "+ V15+ " Is = "+ AbstandTextNumerierung.GetText if V16 <> IndentAt.GetText then Warnlog "Level 10: Wrong indent: Should = "+ V16+ " Is = "+ IndentAt.GetText diff --git a/testautomation/writer/optional/includes/number/w_205a_.inc b/testautomation/writer/optional/includes/number/w_205a_.inc index 385d2a5501f4..0d285395734d 100644 --- a/testautomation/writer/optional/includes/number/w_205a_.inc +++ b/testautomation/writer/optional/includes/number/w_205a_.inc @@ -866,7 +866,7 @@ testcase tToolsFootnoteEndnote if Davor.GetText <> "Hihi " then Warnlog "Endnote: 'Before' is wrong. Not 'Hihi ' but " + Davor.GetText if Dahinter.GetText <> " HaHa" then Warnlog "Endnote: Text after is wrong. Not ' HaHa' but " + Dahinter.GetText if Absatz.GetSelIndex <> 3 then Warnlog "Endnote: Wrong entry selected in paragraph. Not 3 but " + Absatz.GetSelIndex - if Seite.GetSelIndex <> 2 then Warnlog "#i40579#Endnote: Wrong Page entry selected. Not 2 but " + Seite.GetSelIndex + if Seite.GetSelIndex <> 2 then Warnlog "Endnote: Wrong Page entry selected. Not 2 but " + Seite.GetSelIndex if ZeichenvorlageTextbereich.GetSelIndex <> 4 then Warnlog "Endnote: Text area has been changed!" if ZeichenvorlageEndnotenbereich.GetSelIndex <> 5 then Warnlog "Endnote: Endnote area has been changed!" TabEndnoten.Cancel diff --git a/testautomation/writer/optional/includes/option/wh_o_2.inc b/testautomation/writer/optional/includes/option/wh_o_2.inc index ff58ce4e4f09..841af13dafec 100644 --- a/testautomation/writer/optional/includes/option/wh_o_2.inc +++ b/testautomation/writer/optional/includes/option/wh_o_2.inc @@ -114,7 +114,7 @@ testcase tToolsOptionsHTMLPrint ToolsOptions Call hToolsOptions ( "HTML" , "PRINT" ) - if ( bCheckboxStatus(1) = Grafiken.IsChecked ) Then WarnLog "#i108219#'Graphics' state changed" + if ( bCheckboxStatus(1) = Grafiken.IsChecked ) Then WarnLog "'Graphics' state changed" if ( bCheckboxStatus(2) = Kontrollfelder.IsChecked ) Then WarnLog "'Controls' state changed" if ( bCheckboxStatus(3) = Hintergrund.IsChecked ) Then WarnLog "'Background' state changed" if ( bCheckboxStatus(4) = SchwarzDrucken.IsChecked ) Then WarnLog "'Print black' state changed" diff --git a/testautomation/writer/optional/includes/redlining/w_redlining1.inc b/testautomation/writer/optional/includes/redlining/w_redlining1.inc index b08faaf6d8d8..f84205c34021 100644 --- a/testautomation/writer/optional/includes/redlining/w_redlining1.inc +++ b/testautomation/writer/optional/includes/redlining/w_redlining1.inc @@ -1149,7 +1149,7 @@ testcase tRedlining_16 try EditCopy catch - Warnlog "#i41424# Bullets cannot be removed by Del key" + Warnlog "Bullets cannot be removed by Del key" Call wTypeKeys "" Call wTypeKeys "" EditCopy @@ -1199,7 +1199,7 @@ testcase tRedlining_16 try EditCopy catch - Warnlog "#i41424# Bullets cannot be removed by Del key" + Warnlog "Bullets cannot be removed by Del key" Call wTypeKeys "" Call wTypeKeys "" EditCopy diff --git a/testautomation/writer/optional/includes/redlining/w_redlining2.inc b/testautomation/writer/optional/includes/redlining/w_redlining2.inc old mode 100755 new mode 100644 index 4b442a8b3464..f3930b8db721 --- a/testautomation/writer/optional/includes/redlining/w_redlining2.inc +++ b/testautomation/writer/optional/includes/redlining/w_redlining2.inc @@ -440,7 +440,7 @@ testcase tAcceptReject_6 try AutoListe.Select 2 catch - QAErrorlog "#i99937#Change of author (User name) disregarded when changed during Office session" + Warnlog "Change of author (User name) disregarded when changed during Office session" Redlining.Close Call hCloseDocument goto endsub diff --git a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc b/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc index dd3b304ad151..05e31e19c95c 100644 --- a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc +++ b/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc @@ -123,7 +123,7 @@ testcase i64991 Kontext Active.Setpage TabSeite Kontext "TabSeite" - if Not Quer.IsChecked then Warnlog "#i64991#Setting a printer make the page styles to be lost" + if Not Quer.IsChecked then Warnlog "Setting a printer make the page styles to be lost" TabSeite.Cancel Call wTypeKeys ("") @@ -134,7 +134,7 @@ testcase i64991 Kontext Active.Setpage TabSeite Kontext "TabSeite" - if Not Hoch.IsChecked then Warnlog "#i64991#Setting a printer make the page styles to be lost" + if Not Hoch.IsChecked then Warnlog "Setting a printer make the page styles to be lost" TabSeite.Cancel end if diff --git a/testautomation/writer/optional/includes/section/w_section_2.inc b/testautomation/writer/optional/includes/section/w_section_2.inc old mode 100755 new mode 100644 index 1d79405dfd82..92aa69bff1d5 --- a/testautomation/writer/optional/includes/section/w_section_2.inc +++ b/testautomation/writer/optional/includes/section/w_section_2.inc @@ -1038,7 +1038,7 @@ testcase tDisplaySection_9 end if if GetClipBoardtext <> shouldbe then - qaerrorlog "#i85766# - Copied text not correctly exported through the clipboard" ' "Problem with section" + Warnlog "Copied text not correctly exported through the clipboard" ' "Problem with section" end if Case 3 Call wTypeKeys "" diff --git a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc b/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc index 22d64c36ed43..da1b7dd1704c 100644 --- a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc +++ b/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc @@ -805,7 +805,7 @@ testcase tShortcutPasteUnformattedText printlog "- shortcut did work" else if gPlatgroup = "osx" then - Warnlog "#103102#It is not possible to customize the keyboard combination cmd+option on MAC OSX." + Warnlog "It is not possible to customize the keyboard combination cmd+option on MAC OSX." Call hCloseDocument goto endsub else diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc index a6dd6c18b997..df7e2c5dba34 100644 --- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc +++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc @@ -69,7 +69,7 @@ testcase tToolsSpellcheckWithShortcut case 39 : Call wTypeKeys ("Don Cara Mio, capitoliooo?") case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt") case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt") - case 50 : Call wTypeKeys ("To je test črkvana") + case 50 : Call wTypeKeys ("To je test ?rkvana") case 07 : Printlog "- No Spellcheck in Russian!" goto endsub case 48 : Printlog "- No Spellcheck in Polish!" @@ -108,7 +108,7 @@ testcase tToolsSpellcheckWithShortcut printlog "OK, Spellchecker comes up" Spellcheck.Close 'closing spellchecker else - Warnlog "#i35000#Spellchecker does not come up with shortcut 'F7'" + Warnlog "Spellchecker does not come up with shortcut 'F7'" end if end if Call hCloseDocument @@ -169,7 +169,7 @@ testcase tToolsSpellcheckCorrect select case iSprache case 01 : FFText = "This is a text without any error." case 03 : FFText = "Escreva os seus dados de utilizador correctamente e tome nota deles (guardar / imprimir)." - case 07 : FFText = "принятый Государственной Думой в первом чтении 16 ноября 1999 года." + case 07 : FFText = "прин?тый Го?удар?твенной Думой в первом чтении 16 но?бр? 1999 года." case 31 : FFText = "Dit werk is beschermd door de Auteurswet." case 33 : FFText = "Il nous faut donc un de temps pour examiner avec soin tous les dossiers." case 34 : FFText = "Este archivo contiene información importante sobre el programa." @@ -235,9 +235,9 @@ testcase tToolsSpellcheck1Mistake case 03 : sErrorSampleText = "Escrive os seus dados de utilizador correctamente e tome nota deles." sWordToBeChecked = "Escrive" sLanguageName = "Português" - case 07 : sErrorSampleText = "Военная технического сaтрудничества, проблему задолженности и вопросы региональных связей." - sWordToBeChecked = "сaтрудничества" - sLanguageName = "Русский" + case 07 : sErrorSampleText = "Военна? техниче?кого ?aтрудниче?тва, проблему задолженно?ти и вопро?ы региональных ?в?зей." + sWordToBeChecked = "?aтрудниче?тва" + sLanguageName = "Ру??кий" case 31 : sErrorSampleText = "Wijek danken u voor uw interesse in het samenwerken met Sun Microsystems." sWordToBeChecked = "Wijek" sLanguageName = "Nederlands (NL)" @@ -267,7 +267,7 @@ testcase tToolsSpellcheck1Mistake sLanguageName = "Deutsch (Deutschland)" case 50 : sErrorSampleText = "Tuki je nekaj narobe." sWordToBeChecked = "Tuki" - sLanguageName = "Slovenščina" + sLanguageName = "Slovenš?ina" case 55 : sErrorSampleText = "Esta poderia ser a respista para suas preces?" sWordToBeChecked = "respista" sLanguageName = "Português (Brasil)" @@ -406,7 +406,7 @@ testcase tToolsSpellcheckForward case 46 : sDummy = "handbroken" : sWordToBeAdded = "viktikt" case 48 : sDummy = "znajdujacej" : sWordToBeAdded = "usuniete" case 49 : sDummy = "reichtt" : sWordToBeAdded = "viierter" - case 50 : sDummy = "Paglejmo" : sWordToBeAdded = "čtrto" + case 50 : sDummy = "Paglejmo" : sWordToBeAdded = "?trto" case 55 : sDummy = "horat" : sWordToBeAdded = "dpa" end select @@ -568,7 +568,7 @@ testcase tToolsSpellcheckOnlyOneWord select case iSprache case 01 : sWordToBeChecked = "excetionally" ' this word is wrong - case 07 : sWordToBeChecked = "Кaнституции" + case 07 : sWordToBeChecked = "Кaн?титуции" case 03 : sWordToBeChecked = "semstre" ' this word is wrong case 31 : sWordToBeChecked = "lidstartesn" ' this word is wrong case 33 : sWordToBeChecked = "heues" ' this word is wrong @@ -675,7 +675,7 @@ testcase tToolsSpellcheckOnlyOneWord try EditCopy if GetClipboardtext = sWordToBeChecked then - Warnlog "#i40498#Spellchecker does not commit changes correctly (" & GetClipboardtext & " found )" + Warnlog "Spellchecker does not commit changes correctly (" & GetClipboardtext & " found )" Call hCloseDocument goto endsub end if @@ -697,7 +697,7 @@ testcase tToolsSpellcheckOnlyOneWord if Active.Exists then if Active.GetRT = 304 then Active.Ok - Warnlog "#i40480#Spellchecker finishes though wrong words in documents" + Warnlog "Spellchecker finishes though wrong words in documents" end if end if catch diff --git a/testautomation/writer/optional/includes/stylist/w_stylist.inc b/testautomation/writer/optional/includes/stylist/w_stylist.inc old mode 100755 new mode 100644 index 65f156412f83..6fb093ef89a5 --- a/testautomation/writer/optional/includes/stylist/w_stylist.inc +++ b/testautomation/writer/optional/includes/stylist/w_stylist.inc @@ -112,13 +112,13 @@ testcase tFormatStylist1 try Stylist.Size 300, 400 catch - Warnlog "Sizen Stylist doesn't work.. see #i32449" + Warnlog "Sizen Stylist doesn't work" endcatch Sleep 1 try Stylist.Size xSize%, ySize% catch - Warnlog "Sizen Stylist doesn't work.. see #i32449" + Warnlog "Sizen Stylist doesn't work" endcatch Sleep 1 @@ -498,7 +498,7 @@ testcase tFormatStylist6 Kontext Active.Setpage TabHyperlinkZeichen Kontext "TabHyperlinkZeichen" - if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i41171#TabHyperlink: URL is wrong " + URLName.Gettext + if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "TabHyperlink: URL is wrong " + URLName.Gettext TabHyperlinkZeichen.OK end if @@ -635,7 +635,7 @@ testcase tAssigningStyles1 printlog "More..." Select Case iSprache Case 01 : sStyles = Array("Clear formatting", "Default", "Heading 1", "Heading 2", "Heading 3", "Text body", "More...") - Case 07 : sStyles = Array("Отменить форматирование", "Базовый", "Заголовок 1", "Заголовок 2", "Заголовок 3", "Основной текст", "Дополнительно...") + Case 07 : sStyles = Array("Отменить форматирование", "Базовый", "Заголовок 1", "Заголовок 2", "Заголовок 3", "О?новной тек?т", "Дополнительно...") Case 31 : sStyles = Array("Opmaak wissen", "Kop 1", "Kop 2", "Kop 3", "Standaard", "Tekstblok", "Meer...") Case 33 : sStyles = Array("Effacer le formatage", "Corps de texte", "Par défaut", "Titre 1", "Titre 2", "Titre 3", "Autres...") Case 34 : sStyles = Array("Borrar formato", "Cuerpo de texto", "Encabezado 1", "Encabezado 2", "Encabezado 3", "Predeterminado", "Más...") @@ -645,10 +645,10 @@ testcase tAssigningStyles1 Case 48 : sStyles = Array("Wyczyść formatowanie", "Domyślnie", "Nagłówek 1", "Nagłówek 2", "Nagłówek 3", "Treść tekstu", "Więcej...") Case 49 : sStyles = Array("Formatierung löschen", "Standard", "Textkörper", "Überschrift 1", "Überschrift 2", "Überschrift 3", "Weitere...") Case 55 : sStyles = Array("Limpar formatação", "Corpo do texto", "Padrão", "Título 1", "Título 2", "Título 3", "Mais...") - Case 81 : sStyles = Array("書式設定の解除", "本文", "標準", "見出し 1", "見出し 2", "見出し 3", "詳細...") - Case 82 : sStyles = Array("서식 지우기", "기본값", "제목 1", "제목 2", "제목 3", "텍스트 본문", "자세히...") - Case 86 : sStyles = Array("清除格式", "默认", "标题 1", "标题 2", "标题 3", "正文", "更多(~M)...") - Case 88 : sStyles = Array("清除格式", "內文", "標題 1", "標題 2", "標題 3", "預設", "更多...") + Case 81 : sStyles = Array("書?設定?解除", "本文", "標準", "見出? 1", "見出? 2", "見出? 3", "詳細...") + Case 82 : sStyles = Array("서? 지우기", "기본값", "제목 1", "제목 2", "제목 3", "?스트 본문", "?세히...") + Case 86 : sStyles = Array("清除格?", "默认", "标题 1", "标题 2", "标题 3", "正文", "更多(~M)...") + Case 88 : sStyles = Array("清除格?", "內文", "標題 1", "標題 2", "標題 3", "?設", "更多...") Case 90 : sStyles = Array("Biçimlendirmeyi temizle", "Başlık 1", "Başlık 2", "Başlık 3", "Metin gövdesi", "Varsayılan", "Diğer...") Case else : Warnlog "Current language not supported. Please add styles to list!" Kontext "Textobjectbar" diff --git a/testautomation/writer/optional/includes/textframes/w_textframes2.inc b/testautomation/writer/optional/includes/textframes/w_textframes2.inc index 466b0c99ab15..c4cc19006f36 100644 --- a/testautomation/writer/optional/includes/textframes/w_textframes2.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes2.inc @@ -178,7 +178,7 @@ testcase tTextframes_19 Kontext "Active" if Active.Exists then - Warnlog "#i40348# The frame should move by keyboard!" + Warnlog "The frame should move by keyboard!" Active.Ok end if @@ -188,7 +188,7 @@ testcase tTextframes_19 Wait 500 if GetClipboardText <> sTestText then Warnlog "Something wrong in the test . Clipboard:" +GetClipboardText catch - Warnlog "#i40348#" + Warnlog "The frame should move by keyboard!" endcatch Call hCloseDocument diff --git a/testautomation/writer/required/includes/w_001_.inc b/testautomation/writer/required/includes/w_001_.inc index 1fc2001e78bb..c798b26b47a1 100644 --- a/testautomation/writer/required/includes/w_001_.inc +++ b/testautomation/writer/required/includes/w_001_.inc @@ -941,7 +941,7 @@ testcase tFileSaveWithPassword if ( gPlatgroup = "unx" ) then QAErrorlog "#i73968#Opening a password protected file looses focus after loading" else - Warnlog "#i36015#Checkbox 'Save with password' is not checked in file-dialog !" + Warnlog "Checkbox 'Save with password' is not checked in file-dialog !" Passwort.Check end if SpeichernDlg.Cancel diff --git a/testautomation/writer/required/includes/w_001a_.inc b/testautomation/writer/required/includes/w_001a_.inc old mode 100755 new mode 100644 index b33751752512..cb9739cd00dd --- a/testautomation/writer/required/includes/w_001a_.inc +++ b/testautomation/writer/required/includes/w_001a_.inc @@ -89,7 +89,7 @@ testcase tFileProperties Call DialogTest (TabDokumentinfo) - QAErrorlog "#i95523# - FileProperties - Tabpage 'User Defined' has changed. - Adaption of testcases needed." + Warnlog "#i95523# - FileProperties - Tabpage 'User Defined' has changed. - Adaption of testcases needed." ' printlog " Switch to Tabpage 'User defined'" ' Kontext ' active.SetPage TabBenutzer diff --git a/testautomation/writer/required/includes/w_001b_.inc b/testautomation/writer/required/includes/w_001b_.inc index 4d8e6883891a..65f4794dcefe 100644 --- a/testautomation/writer/required/includes/w_001b_.inc +++ b/testautomation/writer/required/includes/w_001b_.inc @@ -134,7 +134,7 @@ testcase tFileSendOutlineToPresentation try FileSendOutlineToPresentation catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Presentation'" + Warnlog "Unable to execute 'File -> Send -> Outline to Presentation'" Call hCloseDocument goto endsub endcatch @@ -182,7 +182,7 @@ testcase tFileSendOutlineToClipboard try FileSendOutlineToClipboard catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Clipboard'" + Warnlog "Unable to execute 'File -> Send -> Outline to Clipboard'" Call hCloseDocument goto endsub endcatch @@ -233,7 +233,7 @@ testcase tFileSendCreateAutoabstract try FileSendCreateAutoabstract catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Create Autoabstract'" + Warnlog "Unable to execute 'File -> Send -> Create Autoabstract'" Call hCloseDocument goto endsub endcatch @@ -284,7 +284,7 @@ testcase tFileSendAutoabstractToPresentation try FileSendAutoabstractToPresentation catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Autoabstract to Presentation'" + Warnlog "Unable to execute 'File -> Send -> Autoabstract to Presentation'" Call hCloseDocument goto endsub endcatch @@ -666,7 +666,7 @@ testcase tMasterDocFileSendOutlineToPresentation try FileSendOutlineToPresentation catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Presentation'" + Warnlog "Unable to execute 'File -> Send -> Outline to Presentation'" Call hCloseDocument goto endsub endcatch @@ -705,7 +705,7 @@ testcase tMasterDocFileSendOutlineToClipboard try FileSendOutlineToClipboard catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Clipboard'" + Warnlog "Unable to execute 'File -> Send -> Outline to Clipboard'" Call hCloseDocument goto endsub endcatch @@ -749,7 +749,7 @@ testcase tMasterDocFileSendCreateAutoabstract try FileSendCreateAutoabstract catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Create Autoabstract'" + Warnlog "Unable to execute 'File -> Send -> Create Autoabstract'" Call hCloseDocument goto endsub endcatch @@ -799,7 +799,7 @@ testcase tMasterDocFileSendAutoabstractToPresentation try FileSendAutoabstractToPresentation catch - Warnlog "#i38723#Unable to execute 'File -> Send -> Autoabstract to Presentation'" + Warnlog "Unable to execute 'File -> Send -> Autoabstract to Presentation'" Call hCloseDocument goto endsub endcatch diff --git a/testautomation/writer/required/includes/w_002_.inc b/testautomation/writer/required/includes/w_002_.inc old mode 100755 new mode 100644 index 20ddaf92a6b9..e19b37514c99 --- a/testautomation/writer/required/includes/w_002_.inc +++ b/testautomation/writer/required/includes/w_002_.inc @@ -565,7 +565,7 @@ testcase tViewNavigator PrintLog "Tear Off Toolbox from Navigator" Toolbox.TearOff Navigation catch - Warnlog "Unable to tear off Toolbox (#i32092)" + Warnlog "Unable to tear off Toolbox" ToolboxOk = False endcatch @@ -1300,7 +1300,7 @@ testcase tEditImageMap printlog( "Check for messagebox (should not appear)" ) kontext "Active" if ( Active.exists( 1 ) ) then - qaerrorlog( "#i109605# - message displayed." ) + Warnlog( " message displayed." ) printlog( Active.getText ) Active.no() else diff --git a/testautomation/writer/required/includes/w_004_.inc b/testautomation/writer/required/includes/w_004_.inc index ea1972cbafb7..8a536b715335 100644 --- a/testautomation/writer/required/includes/w_004_.inc +++ b/testautomation/writer/required/includes/w_004_.inc @@ -636,7 +636,6 @@ testcase tInsertIndexesIndex Kontext "TabVerzeichnisseVerzeichnis" For i= 1 to VerzeichnisTyp.GetItemCount Sleep 1 - if i = 2 then printlog "Alphabetical index see bug #i33671 (ok in m54)" VerzeichnisTyp.Select i printlog "- " + VerzeichnisTyp.GetSelText Call DialogTest (TabVerzeichnisseVerzeichnis) @@ -934,7 +933,7 @@ testcase tInsertFrame Call DialogTest (TabHintergrund, 2) Sleep 1 catch - Warnlog "Maybe missing combobox! (#i29517)" + Warnlog "Maybe missing combobox!" endcatch if gApplication <> "HTML" then diff --git a/testautomation/writer/required/includes/w_004b_.inc b/testautomation/writer/required/includes/w_004b_.inc index 3769ee9ee1ae..3252e30fd450 100644 --- a/testautomation/writer/required/includes/w_004b_.inc +++ b/testautomation/writer/required/includes/w_004b_.inc @@ -202,18 +202,6 @@ testcase tInsertAllGraphicsFromFile Call hNewDocument for iCurrentFile = 1 to 25 - - ' MODIFY and ENABLE this SAMPLE snippet to exclude one fileformat from testing - ' if ( iCurrentFile = 7 ) AND (gtPlatform="x86") then - ' qaErrorLog("## crash on on loading ") - ' goto skipformat - ' endif - ' Note: Can be locale dependent! - if (iCurrentFile = 4) AND (gPlatform="osx") then - qaerrorlog("#i100253# crash on MacOS X on loading ball.eps") - goto skipformat - endif - Kontext "GrafikEinfuegenDlg" if ( not GrafikEinfuegenDlg.exists() ) then InsertGraphicsFromFile diff --git a/testautomation/writer/required/includes/w_005b_.inc b/testautomation/writer/required/includes/w_005b_.inc old mode 100755 new mode 100644 index 707af57a1b6a..89e04a29e87f --- a/testautomation/writer/required/includes/w_005b_.inc +++ b/testautomation/writer/required/includes/w_005b_.inc @@ -1192,7 +1192,7 @@ testcase tFormatStyleEdit Kontext "Drawbar" Drawbar.Close else - Warnlog "#i33132#Toolbar 'Drawbar' is not opened!" + Warnlog "Toolbar 'Drawbar' is not opened!" end if printlog " Close active document" Call hCloseDocument diff --git a/testautomation/writer/required/includes/w_007_.inc b/testautomation/writer/required/includes/w_007_.inc index 64eae48786c5..86fd50a3f3c4 100644 --- a/testautomation/writer/required/includes/w_007_.inc +++ b/testautomation/writer/required/includes/w_007_.inc @@ -1069,7 +1069,7 @@ testcase tToolsChineseTranslation if ChineseTranslation.Exists then Call DialogTest ( ChineseTranslation ) else - Warnlog "#i41364#Tools-> Language -> Chinese Translation does not work!" + Warnlog "Tools-> Language -> Chinese Translation does not work!" Call hCloseDocument goto endsub end if diff --git a/testautomation/writer/required/includes/w_010_.inc b/testautomation/writer/required/includes/w_010_.inc old mode 100755 new mode 100644 index 5e2a596fbfd9..7f717166e4f9 --- a/testautomation/writer/required/includes/w_010_.inc +++ b/testautomation/writer/required/includes/w_010_.inc @@ -358,7 +358,7 @@ testcase tNumLevelUpDown if Hochstufen.IsEnabled then Hochstufen.Click else - if i = 1 then Warnlog "Level up is disabled! (#i28550)" + if i = 1 then Warnlog "Level up is disabled!" end if sleep (2) next i @@ -394,7 +394,7 @@ testcase tNumSubpointsUpDown if HinunterstufenMitUnterpunkten.IsEnabled then HinunterstufenMitUnterpunkten.Click else - if i = 1 then Warnlog "Move up with subpoints is disabled! (#i28550)" + if i = 1 then Warnlog "Move up with subpoints is disabled!" end if Sleep (1) @@ -767,7 +767,7 @@ testcase tUpLevelUpDown if Hochstufen.IsEnabled then Hochstufen.Click else - if i = 1 then Warnlog "Level up is disabled ! (#i28550)" + if i = 1 then Warnlog "Level up is disabled !" end if sleep (2) next i @@ -825,7 +825,7 @@ testcase tUpSubpointsUpDown if HochstufenMitUnterpunkten.IsEnabled then HochstufenMitUnterpunkten.Click else - if i = 1 then Warnlog "Move with Subpoints up is disabled! (#i28550)" + if i = 1 then Warnlog "Move with Subpoints up is disabled!" end if Sleep 1 next i diff --git a/testautomation/writer/required/includes/w_011_.inc b/testautomation/writer/required/includes/w_011_.inc old mode 100755 new mode 100644 index bc2fc42cf6b7..9cd7bbc9f393 --- a/testautomation/writer/required/includes/w_011_.inc +++ b/testautomation/writer/required/includes/w_011_.inc @@ -333,7 +333,7 @@ testcase tZOEditPoints try Points.Click catch - Warnlog "#i56594#Shortcut selecting objects doesn't work" + Warnlog "Shortcut selecting objects doesn't work" Printlog "Close active document" Call hCloseDocument goto endsub @@ -372,7 +372,7 @@ testcase tZOLine Linie.Click printlog "In Toolbox click 'Line'" catch - Warnlog "#i56594#Shortcut selecting objects doesn't work" + Warnlog "Shortcut selecting objects doesn't work" Call hCloseDocument goto endsub endcatch @@ -425,7 +425,7 @@ testcase tZOArea printlog "In toolbox click 'Area'" Flaeche.Click catch - Warnlog "#i56594#Shortcut selecting objects doesn't work" + Warnlog "Shortcut selecting objects doesn't work" Call hCloseDocument goto endsub endcatch diff --git a/testautomation/writer/required/includes/w_020_.inc b/testautomation/writer/required/includes/w_020_.inc index 9235d1b83d7b..3eee667be02d 100644 --- a/testautomation/writer/required/includes/w_020_.inc +++ b/testautomation/writer/required/includes/w_020_.inc @@ -387,7 +387,7 @@ testcase t_TB_Form Kontext "FormControls" if NOT ControlProperties.IsEnabled then if gPlatform = "osx" then - warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything" + warnlog "Mac OS X (Aqua): Drawing function does not draw anything" else warnlog "Control properties button disabled!" end if @@ -848,7 +848,7 @@ testcase tHtmlDoc_TB_Form Kontext "FormControls" if NOT ControlProperties.IsEnabled then if gPlatform = "osx" then - warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything" + warnlog "Mac OS X (Aqua): Drawing function does not draw anything" else warnlog "Control properties button disabled!" end if diff --git a/testautomation/writer/tools/includes/w_tool1.inc b/testautomation/writer/tools/includes/w_tool1.inc old mode 100755 new mode 100644 index a39fa5773102..17f5432edff3 --- a/testautomation/writer/tools/includes/w_tool1.inc +++ b/testautomation/writer/tools/includes/w_tool1.inc @@ -345,7 +345,7 @@ sub sMenufunktionen(Fuer_Was as string) Sleep 1 if i >= 20 then if gPlatform = "osx" then - Warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything" + Warnlog "Mac OS X (Aqua): Drawing function does not draw anything" else Warnlog "Button (" + i + ")" + Fuer_Was + " is disabled " end if @@ -363,7 +363,7 @@ sub sMenufunktionen(Fuer_Was as string) printlog Fuer_Was else if gPlatform = "osx" then - Warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything" + Warnlog "Mac OS X (Aqua): Drawing function does not draw anything" else Warnlog " - Controlfieldproperties "+ Fuer_Was +" from Menu not available!" end if diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc index 1378e751fd78..c067977ec8c7 100755 --- a/testautomation/writer/tools/includes/w_tool2.inc +++ b/testautomation/writer/tools/includes/w_tool2.inc @@ -400,7 +400,7 @@ end function sub wChangeDefaultView() - ' #i107038: This code forces the writer to display one page only which is + ' #This code forces the writer to display one page only which is ' zoomed to pagewidth, filling the entire - previously maximized - window. ' This is required because the VCL Testtool might eventually draw objects ' outside the document window depending on display size diff --git a/testautomation/writer/tools/includes/w_tool6.inc b/testautomation/writer/tools/includes/w_tool6.inc index 9bc7ed688d9b..6bac06fb9ff5 100644 --- a/testautomation/writer/tools/includes/w_tool6.inc +++ b/testautomation/writer/tools/includes/w_tool6.inc @@ -294,7 +294,7 @@ sub ZeilenHoeheTesten ( Wert as Double ) FormatRowHeight Kontext "ZellenHoehe" zWert = ZahlAusSpinnfield ( Hoehe.GetText ) - if (LiberalMeasurement (Wert, zWert) <> TRUE) then QAErrorlog "#i94556# - Die Zeilenhöhe ist nicht "+ Wert + " sondern "+ zWert + "." + if (LiberalMeasurement (Wert, zWert) <> TRUE) then QAErrorlog "Die Zeilenhhe ist nicht "+ Wert + " sondern "+ zWert + "." ZellenHoehe.OK end sub diff --git a/testautomation/writer/tools/includes/w_tools_undo.inc b/testautomation/writer/tools/includes/w_tools_undo.inc old mode 100755 new mode 100644 index 8040b34dc841..8a22015779df --- a/testautomation/writer/tools/includes/w_tools_undo.inc +++ b/testautomation/writer/tools/includes/w_tools_undo.inc @@ -78,7 +78,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: vTypeString = "Replace" Case 34: vTypeString = "Reemplazar" - Case 86: vTypeString = "替换" + Case 86: vTypeString = "替?" Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")" end select ' Delete @@ -96,7 +96,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Replace: 14 occurrences of 'and'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Reemplazar: 6 ocurrencias de 'and'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select end select @@ -105,7 +105,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Sort text" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Ordenar texto" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "排序文字" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "排?文字" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select ' Convert text -> table @@ -113,7 +113,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Convert text -> table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Convertir texto en tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "文字转换成表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "文字转??表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -124,7 +124,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "New Paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Párrafo nuevo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "新建段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "新建段?" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -132,7 +132,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "删除 段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "删除 段?" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select end select @@ -142,7 +142,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Paste clipboard" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Pegar del portapapeles" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "粘贴剪贴板" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "粘贴剪贴?" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -152,7 +152,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Accept change: Insert 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Aplicar cambio: Insertar 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "接受修改：插入 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "接?修改：?入 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -160,19 +160,19 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Reject change: Insert 'This is a test'" then elseif UndoStringFromUndoList = "Reject change: $1" then - QaErrorlog "#i94489# - Bug with Undo - Reject." + QaErrorlog "#i97506# - Bug with Undo - Reject." else Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList end if Case 34: if UndoStringFromUndoList = "Rechazar cambio: $1" then - QaErrorlog "#i94489# - Bug with Undo - Reject." + QaErrorlog "#i97506# - Bug with Undo - Reject." else - Warnlog "Tell script-writer issue i94489 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList + Warnlog "Tell script-writer issue i97506 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList end if - Case 86: if UndoStringFromUndoList = "拒绝修改：$1" then - QaErrorlog "#i94489# - Bug with Undo - Reject." + Case 86: if UndoStringFromUndoList = "拒?修改：$1" then + QaErrorlog "#i97506# - Bug with Undo - Reject." else - Warnlog "Tell script-writer issue i94489 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList + Warnlog "Tell script-writer issue i97506 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList end if Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -181,7 +181,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Typing: 1 line break(s)" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Escritura: 1 salto(s) de línea" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "键入: 1 换行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "键入: 1 ?行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -189,7 +189,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Delete 1 line break(s)" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Eliminar 1 salto(s) de línea" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "删除 1 换行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "删除 1 ?行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -197,7 +197,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert column break" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar salto de columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入分栏符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入分?符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -205,7 +205,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "删除 段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "删除 段?" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -213,7 +213,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert page break" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar salto de página" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入分页符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入分页符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -221,7 +221,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "删除 段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "删除 段?" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -229,7 +229,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert field" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar campo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 字段" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 字段" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -237,7 +237,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Field changed" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Cambio modificado" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "字段已经被修改" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "字段已?被修改" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -253,7 +253,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert special character" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar carácter especial" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 特殊字符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 特殊字符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -269,7 +269,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Apply Styles: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Aplicar estilos: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "应用样式: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "应用样?: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -277,7 +277,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Change style: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Cambiar estilo: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "修改样式：AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "修改样?：AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -285,7 +285,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Promote/demote outline" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Aumentar/Disminuir nivel" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "升级/降级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?级/?级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -293,7 +293,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Promote/demote outline" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Aumentar/Disminuir nivel" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "升级/降级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?级/?级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -301,7 +301,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert section" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar área" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -325,7 +325,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert Hyperlink" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar hiperenlace" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入超链接" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入超链接" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -333,7 +333,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "insert URL button" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar botón URL" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 URL 按钮" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 URL 按钮" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -348,7 +348,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert footnote" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar nota al pie" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入脚注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入脚注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -372,7 +372,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert caption: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar título: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入标题: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入标题: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -380,7 +380,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert AutoText" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar AutoTexto" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -388,7 +388,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert bookmark: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar marcador: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入书签: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入书签: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -396,7 +396,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Rename bookmark: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498" Case 34: if UndoStringFromUndoList <> "marcador renombrado: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498" - Case 86: if UndoStringFromUndoList <> "重命名书签: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498" + Case 86: if UndoStringFromUndoList <> "?命??书签: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498" Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -412,7 +412,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert comment" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar nota" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 批注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 批注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -428,7 +428,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert script" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar secuencia de comandos" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 脚本" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 脚本" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -444,7 +444,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert index entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar entrada de índice" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入索引条目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入索引?目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -460,7 +460,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert bibliography entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar entrada de bibliografía" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 文献目录条目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 文献目录?目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -468,7 +468,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Delete bibliography entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Eliminar entrada de bibliografía" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "删除 文献目录条目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "删除 文献目录?目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -476,7 +476,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert frame" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar marco" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 框架" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 框架" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -484,7 +484,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Rename frame: 'MyFrame' -> 'MyRenamedFrame'" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if InStr(UndoStringFromUndoList, "renombrado") then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 框架" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 框架" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -500,7 +500,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert table: 'Table1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar tabla: 'Tabla1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入表格: '表格1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入表格: '表格1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -508,7 +508,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert Row" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar fila" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入行" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入行" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -516,7 +516,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert Column" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入列" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入列" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -540,7 +540,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Format cell" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Formatear celda" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "格式化单元格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "格?化?元格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -556,7 +556,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Merge table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "unir tablas" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "合并表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?并表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -564,7 +564,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Convert text -> table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Convertir texto en tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "文字转换成表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "文字转??表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -572,7 +572,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Sort table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Ordenar tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "排序表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "排?表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -596,7 +596,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert horizontal ruler" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar regla horizontal" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入水平标尺" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入水平标尺" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -610,7 +610,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) else Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList end if - Case 86: if (UndoStringFromUndoList = "插入 图形") OR (UndoStringFromUndoList = "插入 图片") then + Case 86: if (UndoStringFromUndoList = "?入 图形") OR (UndoStringFromUndoList = "?入 图片") then else Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList end if @@ -629,7 +629,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Replace graphics" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Reemplazar imagen" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "替换图形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "替?图形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -637,7 +637,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -653,7 +653,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -669,7 +669,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert file" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar archivo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入文件" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入文件" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -677,7 +677,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Asian Phonetic Guides Setting" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Aplicar símbolos fonéticos" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "加上拼音或注音符号" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "加上拼音或注音符?" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -693,7 +693,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "AutoFormat" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Formateado automático" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "自动格式" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "自动格?" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -713,8 +713,8 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList end if end if - Case 86: if UndoStringFromUndoList <> "插入 有 3 个角的折线" then - if UndoStringFromUndoList = "插入 有 %2 个角的折线" then + Case 86: if UndoStringFromUndoList <> "?入 有 3 个角的折线" then + if UndoStringFromUndoList = "?入 有 %2 个角的折线" then QaErrorlog "#i94530# - Bug with Undo-History for Polygon-Line-tool. " + UndoStringFromUndoList else Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList @@ -727,7 +727,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Group draw objects" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Agrupar objetos de dibujo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "组合绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "组?绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -735,7 +735,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Ungroup drawing objects" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Resolver objeto de grupo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "取消组合绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?消组?绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -743,7 +743,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Rename 2 Rectangles" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "组合绘图对象" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "组?绘图对象" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -757,15 +757,15 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Case "Autocheck/Spellcheck" Select Case iSprache - Case 01: if UndoStringFromUndoList <> "Replace: 'Testp' -> 'Test'" then QaErrorLog "#i94489# - Wrong text in Undo-List: " & UndoStringFromUndoList + Case 01: if UndoStringFromUndoList <> "Replace: 'Testp' -> 'Test'" then QaErrorLog "#i97506# - Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList = "Sobrescribir: $1" then elseif InStr(UndoStringFromUndoList, "'Testp'") then - QaErrorLog "#i94489# - Wrong text in Undo-List: " & UndoStringFromUndoList + QaErrorLog "#i97506# - Wrong text in Undo-List: " & UndoStringFromUndoList end if Case 86: if UndoStringFromUndoList = "覆盖: $1" then - QaErrorLog "#i94489# - Wrong text in Undo-List: " & UndoStringFromUndoList + QaErrorLog "#i97506# - Wrong text in Undo-List: " & UndoStringFromUndoList elseif InStr(UndoStringFromUndoList, "'Testp'") then - QaErrorlog "#i94489# - Bug fixed: " & UndoStringFromUndoList + QaErrorlog "#i97506# - Bug fixed: " & UndoStringFromUndoList end if Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -774,7 +774,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Insert Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Insertar Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -790,7 +790,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Resize Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Modificar el tamaño de Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "更改大小 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "更改大? 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -798,7 +798,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Replace Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Reemplazar campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "替换控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "替?控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList end select @@ -835,7 +835,7 @@ sub CheckUndoStringInUndoList(vType as integer, optional vShould as string) Select Case iSprache Case 01: if UndoStringFromUndoList <> "Delete ' ###'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case 34: if UndoStringFromUndoList <> "Eliminar 'g'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList - Case 86: if UndoStringFromUndoList <> "插入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList + Case 86: if UndoStringFromUndoList <> "?入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")" end select -- cgit