summaryrefslogtreecommitdiff
path: root/testautomation/writer
diff options
context:
space:
mode:
authorIvo Hinkelmann <ihi@openoffice.org>2011-02-28 18:38:34 +0100
committerIvo Hinkelmann <ihi@openoffice.org>2011-02-28 18:38:34 +0100
commit8de5f9231f26cc662dea207be73b321729c3cd44 (patch)
tree3231564ccc81bae07bfeb868c3a4d48031c7bfad /testautomation/writer
parent36979f1c9e43c42e62b0ad5a32b7abb2fc425b5b (diff)
parentb38b2d8a13ab117047bc3d8057ab5dbe2c704478 (diff)
CWS-TOOLING: integrate CWS automationdev300m99
Diffstat (limited to 'testautomation/writer')
-rw-r--r--testautomation/writer/optional/includes/clipboard/clipbrd_func.inc9
-rw-r--r--testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc8
-rw-r--r--testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc2
-rw-r--r--testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc4
-rw-r--r--testautomation/writer/optional/includes/fields/w_fields2.inc2
-rw-r--r--testautomation/writer/optional/includes/fields/w_fields3.inc4
-rw-r--r--testautomation/writer/optional/includes/fields/w_fields4.inc2
-rw-r--r--testautomation/writer/optional/includes/fields/w_fields5.inc4
-rw-r--r--testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc2
-rw-r--r--testautomation/writer/optional/includes/formatpage/w_formatpage1.inc4
-rw-r--r--testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc4
-rw-r--r--testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc6
-rw-r--r--testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc2
-rw-r--r--testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc6
-rw-r--r--testautomation/writer/optional/includes/loadsave/w_loadsave.inc2
-rw-r--r--testautomation/writer/optional/includes/navigator/w_navigator.inc10
-rw-r--r--testautomation/writer/optional/includes/number/w_205_.inc24
-rw-r--r--testautomation/writer/optional/includes/number/w_205a_.inc2
-rw-r--r--testautomation/writer/optional/includes/option/wh_o_2.inc2
-rw-r--r--testautomation/writer/optional/includes/redlining/w_redlining1.inc4
-rw-r--r--testautomation/writer/optional/includes/redlining/w_redlining2.inc2
-rw-r--r--testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc4
-rw-r--r--testautomation/writer/optional/includes/section/w_section_2.inc2
-rw-r--r--testautomation/writer/optional/includes/shortcut/w_shortcuts.inc2
-rw-r--r--testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc22
-rw-r--r--testautomation/writer/optional/includes/stylist/w_stylist.inc16
-rw-r--r--testautomation/writer/optional/includes/textframes/w_textframes2.inc4
-rw-r--r--testautomation/writer/required/includes/w_001_.inc2
-rw-r--r--testautomation/writer/required/includes/w_001a_.inc2
-rw-r--r--testautomation/writer/required/includes/w_001b_.inc16
-rw-r--r--testautomation/writer/required/includes/w_002_.inc4
-rw-r--r--testautomation/writer/required/includes/w_004_.inc3
-rw-r--r--testautomation/writer/required/includes/w_004b_.inc12
-rw-r--r--testautomation/writer/required/includes/w_005b_.inc2
-rw-r--r--testautomation/writer/required/includes/w_007_.inc2
-rw-r--r--testautomation/writer/required/includes/w_010_.inc8
-rw-r--r--testautomation/writer/required/includes/w_011_.inc6
-rw-r--r--testautomation/writer/required/includes/w_020_.inc4
-rw-r--r--testautomation/writer/tools/includes/w_tool1.inc4
-rwxr-xr-xtestautomation/writer/tools/includes/w_tool2.inc2
-rw-r--r--testautomation/writer/tools/includes/w_tool6.inc2
-rw-r--r--testautomation/writer/tools/includes/w_tools_undo.inc140
42 files changed, 168 insertions, 196 deletions
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
index 659bb2a4ddb7..9537eb2ae948 100644
--- 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 "<Shift Home>"
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 "<Shift Home>"
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 "<Shift Right>"
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 "<Down><Home>"
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 ( "<Shift F4>" )
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
index 1a3624487ffb..2a161b2200d1 100644
--- 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 "<Down><End>"
Call wTypeKeys "<Shift Left>"
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 "<Down><End>"
Call wTypeKeys "<Shift Left>"
EditCopy
diff --git a/testautomation/writer/optional/includes/redlining/w_redlining2.inc b/testautomation/writer/optional/includes/redlining/w_redlining2.inc
index 4b442a8b3464..f3930b8db721 100644
--- 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 ("<Down>")
@@ -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
index 1d79405dfd82..92aa69bff1d5 100644
--- 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 "<Shift End>"
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?<Home>")
case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt<Home>")
case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt<Home>")
- case 50 : Call wTypeKeys ("To je test črkvana<Home>")
+ case 50 : Call wTypeKeys ("To je test ?rkvana<Home>")
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.<Return>"
case 03 : FFText = "Escreva os seus dados de utilizador correctamente e tome nota deles (guardar / imprimir).<Return>"
- case 07 : FFText = "принятый Государственной Думой в первом чтении 16 ноября 1999 года.<Return>"
+ case 07 : FFText = "прин?тый Го?удар?твенной Думой в первом чтении 16 но?бр? 1999 года.<Return>"
case 31 : FFText = "Dit werk is beschermd door de Auteurswet.<Return>"
case 33 : FFText = "Il nous faut donc un de temps pour examiner avec soin tous les dossiers.<Return>"
case 34 : FFText = "Este archivo contiene información importante sobre el programa.<Return>"
@@ -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
index 65f156412f83..6fb093ef89a5 100644
--- 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
index b33751752512..cb9739cd00dd 100644
--- 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
index 20ddaf92a6b9..e19b37514c99 100644
--- 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 <Imagemap changed> messagebox (should not appear)" )
kontext "Active"
if ( Active.exists( 1 ) ) then
- qaerrorlog( "#i109605# - <imagemap changed> message displayed." )
+ Warnlog( "<imagemap changed> 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("#<issue-id># crash on <platform> on loading <image-file>")
- ' goto skipformat
- ' endif
- ' Note: Can be locale dependent!
- if (iCurrentFile = 4) AND (gPlatform="osx") then
- qaerrorlog("#i100253# crash on MacOS X on loading ball.eps")
- goto skipformat
- endif
-
Kontext "GrafikEinfuegenDlg"
if ( not GrafikEinfuegenDlg.exists() ) then
InsertGraphicsFromFile
diff --git a/testautomation/writer/required/includes/w_005b_.inc b/testautomation/writer/required/includes/w_005b_.inc
index 707af57a1b6a..89e04a29e87f 100644
--- 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
index 5e2a596fbfd9..7f717166e4f9 100644
--- 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
index bc2fc42cf6b7..9cd7bbc9f393 100644
--- 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
index a39fa5773102..17f5432edff3 100644
--- 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
index 8040b34dc841..8a22015779df 100644
--- 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