summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVladimir Glazunov <vg@openoffice.org>2010-02-16 18:29:26 +0100
committerVladimir Glazunov <vg@openoffice.org>2010-02-16 18:29:26 +0100
commit4ff1be44998f4161985cdf04d5d6ebe3047edfdf (patch)
treec7d57c00f9d9e8a26c24c1da507c2957dd3326f3
parentcbb0bfb2792495999bc24f24012fdd5c8c6aa516 (diff)
parent1040e1e7aef9f18c0fc367338d310b7fd6746477 (diff)
CWS-TOOLING: integrate CWS cbosdo01
Diffstat
-rwxr-xr-xtestautomation/global/win/etab_h_o.win12
-rwxr-xr-xtestautomation/global/win/tab_t_z.win11
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_autocorrection.inc86
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_006.inc32
-rwxr-xr-xtestautomation/graphics/required/includes/global/id_006.inc32
-rwxr-xr-xtestautomation/graphics/tools/id_tools_2.inc4
-rwxr-xr-xtestautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc28
-rwxr-xr-xtestautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc1653
-rwxr-xr-xtestautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc543
-rwxr-xr-xtestautomation/writer/optional/includes/tools/tools1.inc2
-rw-r--r--testautomation/writer/optional/input/autocorrection/01-01.odtbin0 -> 7798 bytes
-rw-r--r--testautomation/writer/optional/input/autocorrection/01.odtbin0 -> 7798 bytes
-rw-r--r--testautomation/writer/optional/w_autocorrection.bas78
-rwxr-xr-xtestautomation/writer/required/includes/w_007_.inc40
-rwxr-xr-xtestautomation/writer/tools/includes/w_tool2.inc2
-rwxr-xr-x[-rw-r--r--]testautomation/writer/tools/includes/w_tools_autocorrection.inc70
16 files changed, 1236 insertions, 1357 deletions
diff --git a/testautomation/global/win/etab_h_o.win b/testautomation/global/win/etab_h_o.win
index 60334e1c287d..244e02f717bc 100755
--- a/testautomation/global/win/etab_h_o.win
+++ b/testautomation/global/win/etab_h_o.win
@@ -67,6 +67,18 @@ Records HID_DSADMIN_LDAP_ROWCOUNT
DataSource extensions:ListBox:RID_PAGE_TABLESELECTION:LB_DATASOURCE
Table extensions:ListBox:RID_PAGE_TABLESELECTION:LB_TABLE
+*TabLocalizedOptions HID_OFAPAGE_AUTOCORR_QUOTE
+LocalizedOptionsList HID_OFAPAGE_QUOTE_CLB
+LocalizedOptions HID_OFAPAGE_QUOTE_SW_CLB
+SingleQuotesReplace cui:Checkbox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_SGL_TYPO
+SingleQuotesStart cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STARTQUOTE
+SingleQuotesEnd cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_ENDQUOTE
+SingleQuotesDefault cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STD
+DoubleQuotesReplace cui:CheckBox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_TYPO
+DoubleQuotesStart cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_STARTQUOTE
+DoubleQuotesEnd cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_ENDQUOTE
+DoubleQuotesDefault cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_DBL_STD
+
*TabMailMergeEMail HID_TP_MAILCONFIG
YourName sw:Edit:TP_MAILCONFIG:ED_DISPLAYNAME
EmailAddress sw:Edit:TP_MAILCONFIG:ED_ADDRESS
diff --git a/testautomation/global/win/tab_t_z.win b/testautomation/global/win/tab_t_z.win
index aa054c4b8406..be8f4870de47 100755
--- a/testautomation/global/win/tab_t_z.win
+++ b/testautomation/global/win/tab_t_z.win
@@ -169,17 +169,6 @@ MFRand cui:MetricField:RID_SVXPAGE_TRANSPARENCE:MTR_TRGR_BORDER
MFStartwert cui:MetricField:RID_SVXPAGE_TRANSPARENCE:MTR_TRGR_START_VALUE
MFEndwert cui:MetricField:RID_SVXPAGE_TRANSPARENCE:MTR_TRGR_END_VALUE
-*TabTypografisch HID_OFAPAGE_AUTOCORR_QUOTE
-EinfacheErsetzen cui:Checkbox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_SGL_TYPO
-DoppelteErsetzen cui:CheckBox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_TYPO
-EinfachWortanfang cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STARTQUOTE
-EinfachWortende cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_ENDQUOTE
-EinfachStandard cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STD
-DoppeltWortanfang cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_STARTQUOTE
-DoppeltWortende cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_ENDQUOTE
-DoppeltStandard cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_DBL_STD
-Zurueck HID_TABDLG_RESET_BTN
-
*TabUmlauf HID_FRM_EXT
Kein sw:ImageRadioButton:TP_FRM_WRAP:RB_NO_WRAP
Links sw:ImageRadioButton:TP_FRM_WRAP:RB_WRAP_LEFT
diff --git a/testautomation/graphics/optional/includes/global/g_autocorrection.inc b/testautomation/graphics/optional/includes/global/g_autocorrection.inc
index 21cda12dc6f4..bceff84e9f5b 100755
--- a/testautomation/graphics/optional/includes/global/g_autocorrection.inc
+++ b/testautomation/graphics/optional/includes/global/g_autocorrection.inc
@@ -217,15 +217,15 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
Printlog " - replace quotes" '------------------------------------------------------------------------------------------
ToolsAutocorrect
Kontext
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
+ active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
if bSimple then
- EinfacheErsetzen.Check
+ SingleQuotesReplace.Check
else
- DoppelteErsetzen.Check
- DoppeltStandard.Click
+ DoubleQuotesReplace.Check
+ DoubleQuotesDefault.Click
endif
- TabTypografisch.OK
+ TabLocalizedOptions.OK
sleep 5
gMouseClick 50,50
sleep 5
@@ -252,14 +252,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
Printlog " - dont replace quotes" '------------------------------------------------------------------------------------------
ToolsAutocorrect
Kontext
- Active.SetPage TabTypografisch
- Kontext "TabTypografisch"
+ Active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
if bSimple then
- EinfacheErsetzen.Uncheck
+ SingleQuotesReplace.Uncheck
else
- DoppelteErsetzen.Uncheck
+ DoubleQuotesReplace.Uncheck
endif
- TabTypografisch.OK
+ TabLocalizedOptions.OK
sleep 1
gMouseClick 50,50
sleep 1
@@ -285,14 +285,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
Printlog " - replace quotes" '------------------------------------------------------------------------------------------
ToolsAutocorrect
Kontext
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
+ active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
if bSimple then
- EinfacheErsetzen.Check
- EinfachWortAnfang.Click
+ SingleQuotesReplace.Check
+ SingleQuotesStart.Click
else
- DoppelteErsetzen.Check
- DoppeltWortAnfang.Click
+ DoubleQuotesReplace.Check
+ DoubleQuotesStart.Click
endif
Kontext "Sonderzeichen"
sleep 1
@@ -301,11 +301,11 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
sleep 1
Sonderzeichen.OK
- Kontext "TabTypografisch"
+ Kontext "TabLocalizedOptions"
if bSimple then
- EinfachWortEnde.Click
+ SingleQuotesEnd.Click
else
- DoppeltWortEnde.Click
+ DoubleQuotesEnd.Click
endif
Kontext "Sonderzeichen"
sleep 1
@@ -314,8 +314,8 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
sleep 1
Sonderzeichen.OK
- Kontext "TabTypografisch"
- TabTypografisch.OK
+ Kontext "TabLocalizedOptions"
+ TabLocalizedOptions.OK
sleep 5
gMouseClick 50,50
sleep 5
@@ -341,17 +341,17 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
Printlog " - back to standard" '------------------------------------------------------------------------------------------
ToolsAutocorrect
Kontext
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
+ active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
if bSimple then
- EinfacheErsetzen.Check
- EinfachStandard.Click
+ SingleQuotesReplace.Check
+ SingleQuotesDefault.Click
else
- DoppelteErsetzen.Check
- DoppeltStandard.Click
+ DoubleQuotesReplace.Check
+ DoubleQuotesDefault.Click
endif
- TabTypografisch.OK
+ TabLocalizedOptions.OK
sleep 1
hTextrahmenErstellen ( Normal$ + "Hello" + Normal$ + " ",20,20,60,30)
sleep 2
@@ -374,14 +374,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
ToolsAutocorrect
Kontext
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
+ active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
if bSimple then
- EinfacheErsetzen.UnCheck
+ SingleQuotesReplace.UnCheck
else
- DoppelteErsetzen.UnCheck
+ DoubleQuotesReplace.UnCheck
endif
- TabTypografisch.OK
+ TabLocalizedOptions.OK
sleep 1
hCloseDocument
@@ -390,7 +390,7 @@ endcase
'-------------------------------------------------------------------------------
testcase tToolsAutocorrectOption
- const cEntryCount = 9
+ const cEntryCount = 7
dim i as integer
dim iEntryCount as integer
dim sEntries (20, 2) as string
@@ -407,14 +407,14 @@ testcase tToolsAutocorrectOption
sEntries (4,2) = "*Hello* " '"_Hello_ "
sEntries (5,1) = "URL Recognition"
sEntries (5,2) = "It is www.ksta.de "
- sEntries (6,1) = "Replace 1st... with 1^st..."
- sEntries (6,2) = "1st "
- sEntries (7,1) = "Replace 1/2 ... with û ..."
- sEntries (7,2) = "1/2 "
- sEntries (8,1) = "Replace dashes"
- sEntries (8,2) = "Hello - Hrbert "
- sEntries (9,1) = "Ignore double spaces"
- sEntries (9,2) = "Hello this is 2 blanks "
+ 'sEntries (6,1) = "Replace 1st... with 1^st..."
+ 'sEntries (6,2) = "1st "
+ 'sEntries (7,1) = "Replace 1/2 ... with û ..."
+ 'sEntries (7,2) = "1/2 "
+ sEntries (6,1) = "Replace dashes"
+ sEntries (6,2) = "Hello - Hrbert "
+ sEntries (7,1) = "Ignore double spaces"
+ sEntries (7,2) = "Hello this is 2 blanks "
Printlog "- Tools / Autocorrect -options"
Call hNewDocument()
diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc
index fb774c22acb2..284e0b530c4a 100755
--- a/testautomation/graphics/optional/includes/global/id_006.inc
+++ b/testautomation/graphics/optional/includes/global/id_006.inc
@@ -199,35 +199,35 @@ testcase tiToolsAutoCorrect
Kontext "TabOptionen"
Call DialogTest ( TabOptionen )
Kontext
- Messagebox.SetPage TabTypografisch
- Kontext "TabTypografisch" ' 1a
- EinfacheErsetzen.Check
- EinfachWortAnfang.Click
+ Messagebox.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions" ' 1a
+ SingleQuotesReplace.Check
+ SingleQuotesStart.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 1 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 1b
- EinfachWortEnde.Click
+ Kontext "TabLocalizedOptions" ' 1b
+ SingleQuotesEnd.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 2 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 1s
- EinfachStandard.Click
+ Kontext "TabLocalizedOptions" ' 1s
+ SingleQuotesDefault.Click
- Kontext "TabTypografisch" ' 2a
- DoppeltWortAnfang.Click
+ Kontext "TabLocalizedOptions" ' 2a
+ DoubleQuotesStart.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 3 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 2b
- DoppeltWortEnde.Click
+ Kontext "TabLocalizedOptions" ' 2b
+ DoubleQuotesEnd.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 4 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 2s
- DoppeltStandard.Click
- EinfacheErsetzen.UnCheck
- TabTypografisch.cancel
+ Kontext "TabLocalizedOptions" ' 2s
+ DoubleQuotesDefault.Click
+ SingleQuotesReplace.UnCheck
+ TabLocalizedOptions.cancel
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc
index d7a3834f64b7..edbc42b3d09b 100755
--- a/testautomation/graphics/required/includes/global/id_006.inc
+++ b/testautomation/graphics/required/includes/global/id_006.inc
@@ -250,50 +250,50 @@ testcase tiToolsAutoCorrect
Call DialogTest ( TabOptionen )
Kontext
'/// select tabpage 'Custom Quotes' ///'
- Messagebox.SetPage TabTypografisch
- Kontext "TabTypografisch" ' 1a
+ Messagebox.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions" ' 1a
'/// in the part of 'single quotes': ///'
'///+ check 'replace' ///'
'///+ click 'start quote' ///'
- EinfacheErsetzen.Check
- EinfachWortAnfang.Click
+ SingleQuotesReplace.Check
+ SingleQuotesStart.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 1 )
'///+ cancel dialog 'start quote' ///'
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 1b
+ Kontext "TabLocalizedOptions" ' 1b
'///+ click 'end quote' ///'
- EinfachWortEnde.Click
+ SingleQuotesEnd.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 2 )
'///+ cancel dialog 'end quote' ///'
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 1s
+ Kontext "TabLocalizedOptions" ' 1s
'///+ click button 'default' ///'
- EinfachStandard.Click
+ SingleQuotesDefault.Click
- Kontext "TabTypografisch" ' 2a
+ Kontext "TabLocalizedOptions" ' 2a
'/// in the part of 'double quotes': ///'
'///+ click 'start quote' ///'
- DoppeltWortAnfang.Click
+ DoubleQuotesStart.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 3 )
'///+ cancel dialog 'start quote' ///'
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 2b
+ Kontext "TabLocalizedOptions" ' 2b
'///+ click 'end quote' ///'
- DoppeltWortEnde.Click
+ DoubleQuotesEnd.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 4 )
'///+ cancel dialog 'end quote' ///'
Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 2s
+ Kontext "TabLocalizedOptions" ' 2s
'///+ click button 'default' ///'
- DoppeltStandard.Click
+ DoubleQuotesDefault.Click
'///+ UNcheck 'replace' ///'
- EinfacheErsetzen.UnCheck
+ SingleQuotesReplace.UnCheck
'/// cancel dialog 'AtorCorrect' ///'
- TabTypografisch.cancel
+ TabLocalizedOptions.cancel
'/// close application ///'
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/tools/id_tools_2.inc b/testautomation/graphics/tools/id_tools_2.inc
index 78a71da95775..15c5665867c4 100755
--- a/testautomation/graphics/tools/id_tools_2.inc
+++ b/testautomation/graphics/tools/id_tools_2.inc
@@ -142,8 +142,8 @@ sub sCheckCheck (i, Pruefung$, bEnabled)
select case i
' Disabled sCheckUnderlined due to start of external program (web-browser) - FHA
case 5: bEnabled 'sCheckUnderlined (bEnabled)
- case 6: sCheckSupperscript (bEnabled)
- case 8: sCheckDash (bEnabled)
+ case 6: sCheckDash (bEnabled)
+ case 8: sCheckSupperscript (bEnabled)
case else:
hTypeKeys "<Home><Shift End>"
EditCopy
diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
index 21816865681f..5f3af612d3fe 100755
--- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
@@ -615,50 +615,50 @@ testcase tToolsAutoCorrect
'/// Switch to tabpage 'Custom Quotes'
printlog " Switch to tabpage 'Custom Quotes'"
Kontext
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- Call DialogTest ( TabTypografisch )
+ active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
+ Call DialogTest ( TabLocalizedOptions )
'/// Press on button for 'Start quote' for 'Single quotes'
printlog " Press on button for 'Start quote' for 'Single quotes'"
- EinfachWortAnfang.Click
+ SingleQuotesStart.Click
Kontext "Sonderzeichen"
'/// Close 'Start quote' dialog with 'Cancel'
printlog " Close 'Start quote' dialog with 'Cancel'"
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
+ Kontext "TabLocalizedOptions"
'/// Press on button for 'End quote' for 'Single quotes'
printlog " Press on button for 'End quote' for 'Single quotes'"
- EinfachWortEnde.Click
+ SingleQuotesEnd.Click
Kontext "Sonderzeichen"
'/// Close 'End quote' dialog with 'Cancel'
printlog " Close 'End quote' dialog with 'Cancel'"
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
+ Kontext "TabLocalizedOptions"
'/// Click on 'Default' button for 'Single quotes'
printlog " Click on 'Default' button for 'Single quotes'"
- EinfachStandard.Click
+ SingleQuotesDefault.Click
'/// Press on button for 'Start quote' for 'Double quotes'
printlog " Press on button for 'Start quote' for 'Double quotes'"
- DoppeltWortAnfang.Click
+ DoubleQuotesStart.Click
Kontext "Sonderzeichen"
'/// Close 'Start quote' dialog with 'Cancel'
printlog " Close 'Start quote' dialog with 'Cancel'"
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
+ Kontext "TabLocalizedOptions"
'/// Press on button for 'End quote' for 'Double quotes'
printlog " Press on button for 'End quote' for 'Double quotes'"
- DoppeltWortEnde.Click
+ DoubleQuotesEnd.Click
Kontext "Sonderzeichen"
'/// Close 'End quote' dialog with 'Cancel'
printlog " Close 'End quote' dialog with 'Cancel'"
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
+ Kontext "TabLocalizedOptions"
'/// Click on 'Default' button for 'Double quotes'
printlog " Click on 'Default' button for 'Double quotes'"
- DoppeltStandard.Click
+ DoubleQuotesDefault.Click
'/// Close 'AutoCorrect' dialog with 'Cancel'
printlog " Close 'AutoCorrect' dialog with 'Cancel'"
- TabTypografisch.cancel
+ TabLocalizedOptions.cancel
'/// Close document
printlog " Close document"
call hCloseDocument
diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc
index 229289cdb556..f33aaaaccc44 100755
--- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc
+++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc
@@ -35,30 +35,9 @@
'*
'* short description : Test the AutoCorrect/AutoFormat/Options
'*
-'************************************************************************
-'*
-' #1 tOpenDialog_1
-' #1 tReplaceDashes_1
-' #1 tToolsAutocorrectOptions_1
-' #1 tToolsAutocorrectOptions_2
-' #1 tToolsAutocorrectOptions_3
-' #1 tToolsAutocorrectOptions_4_1
-' #1 tToolsAutocorrectOptions_4_2
-' #1 tToolsAutocorrectOptions_5
-' #1 tToolsAutocorrectOptions_6
-' #1 tToolsAutocorrectOptions_7
-' #1 tToolsAutocorrectOptions_8
-' #1 tToolsAutocorrectOptions_11
-' #1 tToolsAutocorrectOptions_12
-' #1 tToolsAutocorrectOptions_13
-' #1 tToolsAutocorrectOptions_14
-' #1 tToolsAutocorrectOptions_16
-' #1 tToolsAutocorrectOptions_18
-' #1 tToolsAutocorrectOptions_19
-'*
'\***********************************************************************
-sub w_autocorrect_autoformat_1
+sub w_autocorrect1
printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Options features"
@@ -70,16 +49,14 @@ sub w_autocorrect_autoformat_1
Call tToolsAutocorrectOptions_4_1 'Automatic bold
Call tToolsAutocorrectOptions_4_2 'Automatic underline
Call tToolsAutocorrectOptions_5 'URL Recognition
- Call tToolsAutocorrectOptions_6 'Replace 1st ... with 1^st...
- Call tToolsAutocorrectOptions_7 'Replace 1/2 ... with ½ ...
- Call tToolsAutocorrectOptions_8 'Replace dashes
- Call tToolsAutocorrectOptions_11 'Ignore double spaces
- Call tToolsAutocorrectOptions_12 'Apply numbering
- Call tToolsAutocorrectOptions_13 'Apply Border
- Call tToolsAutocorrectOptions_14 'Create Table
- Call Ttoolsautocorrectoptions_16 'Remove Blank Paragraphs
- Call Ttoolsautocorrectoptions_18 'Replace bullets with •
- Call tToolsAutocorrectOptions_19 'Replace standard quotes with custom quotes
+ Call tToolsAutocorrectOptions_6 'Replace dashes
+ Call tToolsAutocorrectOptions_7 'Ignore double spaces
+ Call tToolsAutocorrectOptions_8 'Apply numbering
+ Call tToolsAutocorrectOptions_9 'Apply Border
+ Call tToolsAutocorrectOptions_10 'Create Table
+ Call tToolsAutocorrectOptions_11 'Remove Blank Paragraphs
+ Call tToolsAutocorrectOptions_12 'Replace bullets with •
+ Call tToolsAutocorrectOptions_13 'Replace standard quotes with custom quotes
end sub
@@ -143,19 +120,27 @@ testcase tToolsAutocorrectOptions_1
Kuerzel.SetText "Aabbcc"
ErsetzenDurch.SetText "Aaccbb"
Sleep 1
- Neu.Click
+ try
+ Neu.Click
+ catch
+ Warnlog "Seems settings are already made. Please remove entries from replacement table"
+ endcatch
Sleep 1
TabErsetzung.OK
- '/// M:Y T:Y (default)
+ printlog "- M:Y T:Y (default)"
ToolsAutoCorrect
Kontext
Active.SetPage TabOptionenAutokorrektur
Kontext "TabOptionenAutokorrektur"
- Einstellungen.Select 1
- if Not Einstellungen.IsChecked then Warnlog "First Checkbox: " & Einstellungen.IsChecked
- Einstellungen.TypeKeys "<Right>"
- if Not Einstellungen.IsChecked then Warnlog "Second Checkbox: " & Einstellungen.IsChecked
+ if Einstellungen.IsChecked(1,2) = FALSE then
+ Warnlog "First Checkbox not checked by default"
+ Einstellungen.Check(1,2)
+ endif
+ if Einstellungen.IsChecked(1,3) = FALSE then
+ Warnlog "Second Checkbox not checked by default"
+ Einstellungen.Check(1,3)
+ endif
TabOptionenAutokorrektur.Ok
Call wTypeKeys "Aabbcc"
@@ -166,8 +151,8 @@ testcase tToolsAutocorrectOptions_1
Call wTypeKeys "<DELETE>"
- '/// M:Y T:N
- Call fAutocorrectOptions("UseReplacementTable")
+ printlog "- M:Y T:N"
+ Call fAutocorrectOptions("UseReplacementTable", 1, 0)
Call wTypeKeys "Aabbcc"
Call wTypeKeys " "
@@ -189,8 +174,8 @@ testcase tToolsAutocorrectOptions_1
Call wTypeKeys "<DELETE>"
- '/// M:N T:Y
- Call fAutocorrectOptions("UseReplacementTable")
+ printlog "- M:N T:Y"
+ Call fAutocorrectOptions("UseReplacementTable", 0, 1)
Call wTypeKeys "Aabbcc"
Call wTypeKeys " "
@@ -201,8 +186,8 @@ testcase tToolsAutocorrectOptions_1
Call wTypeKeys "<DELETE>"
- '/// M:N T:N
- Call fAutocorrectOptions("UseReplacementTable")
+ printlog "- M:N T:N"
+ Call fAutocorrectOptions("UseReplacementTable", 0, 0)
Call wTypeKeys "Aabbcc"
Call wTypeKeys " "
@@ -210,9 +195,9 @@ testcase tToolsAutocorrectOptions_1
EditCopy
if GetClipboardText <> "Aabbcc" then
Warnlog "The content should NOT be changed before Autoformat! M:N T:N"
- goto testend
- else
-
+ Call hCloseDocument
+ goto endsub
+ else
Call wTypeKeys "<ESCAPE>"
FormatAutoformatApply
Call wTypeKeys "<Home><Shift End>"
@@ -223,8 +208,8 @@ testcase tToolsAutocorrectOptions_1
end if
end if
- '/// Recover to the default M:Y T:Y
- Call fAutocorrectOptions("UseReplacementTable")
+ printlog "- Recover to the default M:Y T:Y"
+ Call fAutocorrectOptions("UseReplacementTable", 1, 1)
'remove the test words which you insert in the replacement table
Dim i as Integer
@@ -250,95 +235,94 @@ endcase
testcase tToolsAutocorrectOptions_2
- Dim testContent as String
- Dim hopeResult as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
+ Dim testContent as String
+ Dim hopeResult as String
+ Dim hopeResultBeforeAutoformat as String
+ Dim hopeResultAfterAutoformat as String
- printLog "Test 'Correct TWo INitial CApital' "
- '/// Test 'Correct TWo INitial CApital'
- Call hNewDocument
+ printLog "Test 'Correct TWo INitial CApital' "
+ '/// Test 'Correct TWo INitial CApital'
+ Call hNewDocument
'/// M:Y T:Y (default)
- testContent = "TEst"
- hopeResult = "Test"
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y"
+ testContent = "TEst"
+ hopeResult = "Test"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y"
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:Y T:N
- testContent = "TEst"
- hopeResultBeforeAutoformat = "TEst"
- hopeResultAfterAutoformat = "Test"
+ testContent = "TEst"
+ hopeResultBeforeAutoformat = "TEst"
+ hopeResultAfterAutoformat = "Test"
- Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+ Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,0)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
- Warnlog "The content should NOT be changed before Autoformat! M:Y T:N"
- goto GOING1
- end if
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
+ Warnlog "The content should NOT be changed before Autoformat! M:Y T:N"
+ goto GOING1
+ end if
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
- Warnlog "The content should be changed after Autoformat!M:Y T:N"
- end if
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
+ Warnlog "The content should be changed after Autoformat!M:Y T:N"
+ end if
-GOING1:
- Call wTypeKeys "<DELETE>"
+ GOING1:
+ Call wTypeKeys "<DELETE>"
'/// M:N T:Y
- testContent = "TEst"
- hopeResult = "Test"
+ testContent = "TEst"
+ hopeResult = "Test"
- Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+ Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,1)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y"
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:N T:N
- testContent = "TEst"
- hopeResultBeforeAutoformat = "TEst"
- hopeResultAfterAutoformat = "TEst"
+ testContent = "TEst"
+ hopeResultBeforeAutoformat = "TEst"
+ hopeResultAfterAutoformat = "TEst"
- Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+ Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,0)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
Warnlog "The content should NOT be changed before Autoformat! M:N T:N"
- goto testend
- end if
+ Call hCloseDocument
+ end if
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
Warnlog "The content should NOT be changed after Autoformat! M:N T:N"
- end if
+ end if
-testend:
'/// Recover to the default M:Y T:Y
- Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+ Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,1)
Call hCloseDocument
@@ -348,14 +332,14 @@ endcase
testcase tToolsAutocorrectOptions_3
- Dim testContent as String
- Dim hopeResult as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
+ Dim testContent as String
+ Dim hopeResult as String
+ Dim hopeResultBeforeAutoformat as String
+ Dim hopeResultAfterAutoformat as String
- printLog "Test 'Capitalize first letter of every setence'"
- '/// Test 'Capitalize first letter of every setence'
- Call hNewDocument
+ printLog "Test 'Capitalize first letter of every setence'"
+ '/// Test 'Capitalize first letter of every setence'
+ Call hNewDocument
'/// M:Y T:Y (default)
testContent = "the test for StarOffice automation. who is the author?"
@@ -372,7 +356,7 @@ testcase tToolsAutocorrectOptions_3
hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?"
hopeResultAfterAutoformat = "The test for StarOffice automation. Who is the author?"
- Call fAutocorrectOptions("CapitalizeFirstLetter")
+ Call fAutocorrectOptions("CapitalizeFirstLetter",1,0)
Call wTypeKeys testContent
Call wTypeKeys "<Shift Home>"
EditCopy
@@ -396,7 +380,7 @@ GOING1:
testContent = "the test for StarOffice automation. who is the author?"
hopeResult = "The test for StarOffice automation. Who is the author?"
- Call fAutocorrectOptions("CapitalizeFirstLetter")
+ Call fAutocorrectOptions("CapitalizeFirstLetter",0,1)
Call wTypeKeys testContent
Call wTypeKeys "<Shift Home>"
EditCopy
@@ -409,7 +393,7 @@ GOING1:
hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?"
hopeResultAfterAutoformat = "the test for StarOffice automation. who is the author?"
- Call fAutocorrectOptions("CapitalizeFirstLetter")
+ Call fAutocorrectOptions("CapitalizeFirstLetter",0,0)
Call wTypeKeys testContent
Call wTypeKeys "<Shift Home>"
@@ -430,7 +414,7 @@ GOING1:
testend:
'/// Recover to the default
- Call fAutocorrectOptions("CapitalizeFirstLetter")
+ Call fAutocorrectOptions("CapitalizeFirstLetter",1,1)
Call hCloseDocument
@@ -441,16 +425,16 @@ endcase
testcase tToolsAutocorrectOptions_4_1
- Dim testContent as String
- Dim hopeResult as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
- Dim getStyle as String
- Dim hopeStyle as String
+ Dim testContent as String
+ Dim hopeResult as String
+ Dim hopeResultBeforeAutoformat as String
+ Dim hopeResultAfterAutoformat as String
+ Dim getStyle as String
+ Dim hopeStyle as String
- printLog "Test 'Automatic bold and underline' --- bold "
- '/// Test 'Automatic bold'
- Call hNewDocument
+ printLog "Test 'Automatic bold and underline' --- bold "
+ '/// Test 'Automatic bold'
+ Call hNewDocument
'/// M:Y T:Y (default)
testContent = "*Test*"
@@ -464,193 +448,193 @@ testcase tToolsAutocorrectOptions_4_1
fFormatCharacter("TabFont")
try
- getStyle = Style.GetSelText
- Style.Select 3
- hopeStyle = Style.GetSelText
+ getStyle = Style.GetSelText
+ Style.Select 3
+ hopeStyle = Style.GetSelText
catch
- getStyle = StyleWest.GetSelText
- StyleWest.Select 3
- hopeStyle = StyleWest.GetSelText
+ getStyle = StyleWest.GetSelText
+ StyleWest.Select 3
+ hopeStyle = StyleWest.GetSelText
endcatch
Sleep 1
- if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y"
+ if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y"
try
- Style.Select 1
+ Style.Select 1
catch
- StyleWest.Select 1
+ StyleWest.Select 1
endcatch
Sleep 1
- TabFont.OK
- Sleep 1
+ TabFont.OK
+ Sleep 1
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:Y T:N
- testContent = "*Test*"
- hopeResultBeforeAutoformat = "*Test*"
- hopeResultAfterAutoformat = "Test"
+ testContent = "*Test*"
+ hopeResultBeforeAutoformat = "*Test*"
+ hopeResultAfterAutoformat = "Test"
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0)
- Call wTypeKeys testContent
- Call wTypeKeys "<Shift Home>"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
- Warnlog "The content should NOT be changed before Autoformat! M:Y T:N"
- goto GOING1
- end if
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
+ Warnlog "The content should NOT be changed before Autoformat! M:Y T:N"
+ goto GOING1
+ end if
- fFormatCharacter("TabFont")
+ fFormatCharacter("TabFont")
try
- getStyle = Style.GetSelText
- Style.Select 1
- hopeStyle = Style.GetSelText
+ getStyle = Style.GetSelText
+ Style.Select 1
+ hopeStyle = Style.GetSelText
catch
- getStyle = StyleWest.GetSelText
- StyleWest.Select 1
- hopeStyle = StyleWest.GetSelText
+ getStyle = StyleWest.GetSelText
+ StyleWest.Select 1
+ hopeStyle = StyleWest.GetSelText
endcatch
Sleep 1
- if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
- TabFont.Cancel
+ if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
+ TabFont.Cancel
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
Warnlog "The content should be changed after Autoformat!M:Y T:N"
- end if
+ end if
- fFormatCharacter("TabFont")
+ Call fFormatCharacter("TabFont")
try
- getStyle = Style.GetSelText
- Style.Select 3
- hopeStyle = Style.GetSelText
+ getStyle = Style.GetSelText
+ Style.Select 3
+ hopeStyle = Style.GetSelText
catch
- getStyle = StyleWest.GetSelText
- StyleWest.Select 3
- hopeStyle = StyleWest.GetSelText
+ getStyle = StyleWest.GetSelText
+ StyleWest.Select 3
+ hopeStyle = StyleWest.GetSelText
endcatch
Sleep 1
- if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y"
+ if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y"
try
- Style.Select 1
+ Style.Select 1
catch
- StyleWest.Select 1
+ StyleWest.Select 1
endcatch
- Sleep 1
+ Sleep 1
- TabFont.OK
- Sleep 1
+ TabFont.OK
+ Sleep 1
-GOING1:
+ GOING1:
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:N T:Y
- testContent = "*Test*"
- hopeResult = "Test"
+ testContent = "*Test*"
+ hopeResult = "Test"
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1)
- Call wTypeKeys testContent
- Call wTypeKeys "<Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y"
- fFormatCharacter("TabFont")
+ Call fFormatCharacter("TabFont")
try
- getStyle = Style.GetSelText
- Style.Select 3
- hopeStyle = Style.GetSelText
+ getStyle = Style.GetSelText
+ Style.Select 3
+ hopeStyle = Style.GetSelText
catch
- getStyle = StyleWest.GetSelText
- StyleWest.Select 3
- hopeStyle = StyleWest.GetSelText
+ getStyle = StyleWest.GetSelText
+ StyleWest.Select 3
+ hopeStyle = StyleWest.GetSelText
endcatch
Sleep 1
- if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y"
+ if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y"
try
- Style.Select 1
+ Style.Select 1
catch
- StyleWest.Select 1
+ StyleWest.Select 1
endcatch
- TabFont.OK
- Sleep 1
+ TabFont.OK
+ Sleep 1
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:N T:N
- testContent = "*Test*"
- hopeResultBeforeAutoformat = "*Test*"
- hopeResultAfterAutoformat = "*Test*"
+ testContent = "*Test*"
+ hopeResultBeforeAutoformat = "*Test*"
+ hopeResultAfterAutoformat = "*Test*"
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0)
- Call wTypeKeys testContent
- Call wTypeKeys "<Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
Warnlog "The content should NOT be changed before Autoformat! M:N T:N"
goto testend
- end if
+ end if
- fFormatCharacter("TabFont")
+ Call fFormatCharacter("TabFont")
try
- getStyle = Style.GetSelText
- Style.Select 1
- hopeStyle = Style.GetSelText
+ getStyle = Style.GetSelText
+ Style.Select 1
+ hopeStyle = Style.GetSelText
catch
- getStyle = StyleWest.GetSelText
- StyleWest.Select 1
- hopeStyle = StyleWest.GetSelText
+ getStyle = StyleWest.GetSelText
+ StyleWest.Select 1
+ hopeStyle = StyleWest.GetSelText
endcatch
Sleep 1
- if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
- TabFont.Cancel
+ if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
+ TabFont.Cancel
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
Warnlog "The content should NOT be changed after Autoformat! M:N T:N"
- end if
+ end if
- fFormatCharacter("TabFont")
+ Call fFormatCharacter("TabFont")
try
- getStyle = Style.GetSelText
- Style.Select 1
- hopeStyle = Style.GetSelText
+ getStyle = Style.GetSelText
+ Style.Select 1
+ hopeStyle = Style.GetSelText
catch
- getStyle = StyleWest.GetSelText
- StyleWest.Select 1
- hopeStyle = StyleWest.GetSelText
+ getStyle = StyleWest.GetSelText
+ StyleWest.Select 1
+ hopeStyle = StyleWest.GetSelText
endcatch
Sleep 1
- if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!"
- TabFont.OK
- Sleep 1
+ if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!"
+ TabFont.OK
+ Sleep 1
-testend:
+ testend:
'/// Recover to the default M:Y T:Y
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1)
Call hCloseDocument
@@ -660,155 +644,155 @@ endcase
testcase tToolsAutocorrectOptions_4_2
- Dim testContent as String
- Dim hopeResult as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
- Dim getUnderlineStatus as Integer
- Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single
+ Dim testContent as String
+ Dim hopeResult as String
+ Dim hopeResultBeforeAutoformat as String
+ Dim hopeResultAfterAutoformat as String
+ Dim getUnderlineStatus as Integer
+ Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single
- printLog "Test 'Automatic bold and underline' --- underline "
- '/// Test 'Automatic underline'
- Call hNewDocument
+ printLog "Test 'Automatic bold and underline' --- underline "
+ '/// Test 'Automatic underline'
+ Call hNewDocument
'/// M:Y T:Y (default)
- testContent = "_Test_"
- hopeResult = "Test"
+ testContent = "_Test_"
+ hopeResult = "Test"
- Call wTypeKeys testContent
- Call wTypeKeys "<Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y"
- fFormatCharacter("TabFontEffects")
+ Call fFormatCharacter("TabFontEffects")
- getUnderlineStatus = Underline.GetSelIndex
- Underline.Select 2
- hopeUnderlineStatus = Underline.GetSelIndex
+ getUnderlineStatus = Underline.GetSelIndex
+ Underline.Select 2
+ hopeUnderlineStatus = Underline.GetSelIndex
- if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y"
- Underline.Select 1
- TabFontEffects.OK
- Sleep 1
+ if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y"
+ Underline.Select 1
+ TabFontEffects.OK
+ Sleep 1
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:Y T:N
- testContent = "_Test_"
- hopeResultBeforeAutoformat = "_Test_"
- hopeResultAfterAutoformat = "Test"
+ testContent = "_Test_"
+ hopeResultBeforeAutoformat = "_Test_"
+ hopeResultAfterAutoformat = "Test"
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0)
- Call wTypeKeys testContent
- Call wTypeKeys "<Shift Home>"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
Warnlog "The content should NOT be changed before Autoformat! M:Y T:N"
goto GOING1
- end if
+ end if
- fFormatCharacter("TabFontEffects")
+ Call fFormatCharacter("TabFontEffects")
- getUnderlineStatus = Underline.GetSelIndex
- Underline.Select 1
- Sleep 1
- hopeUnderlineStatus = Underline.GetSelIndex
+ getUnderlineStatus = Underline.GetSelIndex
+ Underline.Select 1
+ Sleep 1
+ hopeUnderlineStatus = Underline.GetSelIndex
- if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!"
- TabFontEffects.OK
- Sleep 1
+ if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!"
+ TabFontEffects.OK
+ Sleep 1
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
Warnlog "The content should be changed after Autoformat!M:Y T:N"
- end if
+ end if
- fFormatCharacter("TabFontEffects")
- getUnderlineStatus = Underline.GetSelIndex
- Underline.Select 2
- hopeUnderlineStatus = Underline.GetSelIndex
+ Call fFormatCharacter("TabFontEffects")
+ getUnderlineStatus = Underline.GetSelIndex
+ Underline.Select 2
+ hopeUnderlineStatus = Underline.GetSelIndex
- if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N"
- Underline.Select 1
- TabFontEffects.OK
- Sleep 1
-GOING1:
- Call wTypeKeys "<DELETE>"
+ if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N"
+ Underline.Select 1
+ TabFontEffects.OK
+ Sleep 1
+ GOING1:
+ Call wTypeKeys "<DELETE>"
'/// M:N T:Y
- testContent = "_Test_"
- hopeResult = "Test"
+ testContent = "_Test_"
+ hopeResult = "Test"
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1)
- Call wTypeKeys testContent
- Call wTypeKeys "<Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y"
- fFormatCharacter("TabFontEffects")
- getUnderlineStatus = Underline.GetSelIndex
- Underline.Select 2
- Sleep 1
- hopeUnderlineStatus = Underline.GetSelIndex
+ Call fFormatCharacter("TabFontEffects")
+ getUnderlineStatus = Underline.GetSelIndex
+ Underline.Select 2
+ Sleep 1
+ hopeUnderlineStatus = Underline.GetSelIndex
- if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y"
- Underline.Select 1
- Sleep 1
- TabFontEffects.OK
- Sleep 1
+ if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y"
+ Underline.Select 1
+ Sleep 1
+ TabFontEffects.OK
+ Sleep 1
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:N T:N
- testContent = "_Test_"
- hopeResultBeforeAutoformat = "_Test_"
- hopeResultAfterAutoformat = "_Test_"
+ testContent = "_Test_"
+ hopeResultBeforeAutoformat = "_Test_"
+ hopeResultAfterAutoformat = "_Test_"
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0)
- Call wTypeKeys testContent
- Call wTypeKeys "<Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
Warnlog "The content should NOT be changed before Autoformat! M:N T:N"
goto testend
- end if
+ end if
- fFormatCharacter("TabFontEffects")
- getUnderlineStatus = Underline.GetSelIndex
- Underline.Select 1
- hopeUnderlineStatus = Underline.GetSelIndex
+ Call fFormatCharacter("TabFontEffects")
+ getUnderlineStatus = Underline.GetSelIndex
+ Underline.Select 1
+ hopeUnderlineStatus = Underline.GetSelIndex
- if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N "
- TabFontEffects.OK
+ if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N "
+ TabFontEffects.OK
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
- Warnlog "The content should NOT be changed after Autoformat! M:N T:N"
- end if
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
+ Warnlog "The content should NOT be changed after Autoformat! M:N T:N"
+ end if
- fFormatCharacter("TabFontEffects")
- getUnderlineStatus = Underline.GetSelIndex
- Underline.Select 1
- Sleep 1
- hopeUnderlineStatus = Underline.GetSelIndex
+ Call fFormatCharacter("TabFontEffects")
+ getUnderlineStatus = Underline.GetSelIndex
+ Underline.Select 1
+ Sleep 1
+ hopeUnderlineStatus = Underline.GetSelIndex
- if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N"
- TabFontEffects.OK
- Sleep 1
+ if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N"
+ TabFontEffects.OK
+ Sleep 1
-testend:
+ testend:
'/// Recover to the default M:Y T:Y
- Call fAutocorrectOptions("AutomaticBoldAndUnderline")
+ Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1)
Call hCloseDocument
@@ -818,100 +802,100 @@ endcase
testcase tToolsAutocorrectOptions_5
- Dim testContent as String
- Dim hopeResult as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
+ Dim testContent as String
+ Dim hopeResult as String
+ Dim hopeResultBeforeAutoformat as String
+ Dim hopeResultAfterAutoformat as String
- printLog "URL Recognition"
- '/// URL Recognition
- Call hNewDocument
+ printLog "URL Recognition"
+ '/// URL Recognition
+ Call hNewDocument
'/// M:Y T:Y (default)
- testContent = "WWW.sun.com"
- hopeResult = "http://WWW.sun.com/"
+ testContent = "WWW.sun.com"
+ hopeResult = "http://WWW.sun.com/"
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<Home>"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<Home>"
- fFormatCharacter("TabHyperlinkZeichen")
- if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y"
- URLName.SetText ""
- TabHyperlinkZeichen.OK
+ Call fFormatCharacter("TabHyperlinkZeichen")
+ if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y"
+ URLName.SetText ""
+ TabHyperlinkZeichen.OK
Call hCloseDocument
Call hNewDocument
'/// M:Y T:N
- testContent = "WWW.sun.com"
- hopeResultBeforeAutoformat = ""
- hopeResultAfterAutoformat = "http://WWW.sun.com/"
+ testContent = "WWW.sun.com"
+ hopeResultBeforeAutoformat = ""
+ hopeResultAfterAutoformat = "http://WWW.sun.com/"
- Call fAutocorrectOptions("URLRecognition")
+ Call fAutocorrectOptions("URLRecognition",1,0)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<Home>"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<Home>"
- fFormatCharacter("TabHyperlinkZeichen")
- if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!"
- URLName.SetText ""
- TabHyperlinkZeichen.OK
+ Call fFormatCharacter("TabHyperlinkZeichen")
+ if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!"
+ URLName.SetText ""
+ TabHyperlinkZeichen.OK
- FormatAutoformatApply
+ FormatAutoformatApply
- fFormatCharacter("TabHyperlinkZeichen")
- if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!"
- URLName.SetText ""
- TabHyperlinkZeichen.OK
+ Call fFormatCharacter("TabHyperlinkZeichen")
+ if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!"
+ URLName.SetText ""
+ TabHyperlinkZeichen.OK
Call hCloseDocument
Call hNewDocument
'/// M:N T:Y
- testContent = "WWW.sun.com"
- hopeResult = "http://WWW.sun.com/"
+ testContent = "WWW.sun.com"
+ hopeResult = "http://WWW.sun.com/"
- Call fAutocorrectOptions("URLRecognition")
+ Call fAutocorrectOptions("URLRecognition",0,1)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<Home>"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<Home>"
- fFormatCharacter("TabHyperlinkZeichen")
- if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y"
- URLName.SetText ""
- TabHyperlinkZeichen.OK
+ Call fFormatCharacter("TabHyperlinkZeichen")
+ if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y"
+ URLName.SetText ""
+ TabHyperlinkZeichen.OK
Call hCloseDocument
Call hNewDocument
'/// M:N T:N
- testContent = "WWW.sun.com"
- hopeResultBeforeAutoformat = ""
- hopeResultAfterAutoformat = ""
+ testContent = "WWW.sun.com"
+ hopeResultBeforeAutoformat = ""
+ hopeResultAfterAutoformat = ""
- Call fAutocorrectOptions("URLRecognition")
+ Call fAutocorrectOptions("URLRecognition",0,0)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<Home>"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<Home>"
- fFormatCharacter("TabHyperlinkZeichen")
- if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!"
- URLName.SetText ""
- TabHyperlinkZeichen.OK
+ Call fFormatCharacter("TabHyperlinkZeichen")
+ if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!"
+ URLName.SetText ""
+ TabHyperlinkZeichen.OK
- FormatAutoformatApply
+ FormatAutoformatApply
- fFormatCharacter("TabHyperlinkZeichen")
- if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!"
- URLName.SetText ""
- TabHyperlinkZeichen.OK
+ Call fFormatCharacter("TabHyperlinkZeichen")
+ if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!"
+ URLName.SetText ""
+ TabHyperlinkZeichen.OK
'/// Recover to the default M:Y T:Y
- Call fAutocorrectOptions("URLRecognition")
+ Call fAutocorrectOptions("URLRecognition",1,1)
Call hCloseDocument
@@ -921,279 +905,93 @@ endcase
testcase tToolsAutocorrectOptions_6
- Dim testContent as String
-
- printLog "Replace 1st ... with 1^st..."
- '/// Replace 1st ... with 1^st...
- Call hNewDocument
-
- testContent = "1st"
-
- '/// M:Y T:Y (default)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
- fFormatCharacter("TabFontPosition")
- if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:Y"
- Normal.Check
- TabFontPosition.OK
-
- EditSelectAll
- Call wTypeKeys "<DELETE>"
-
- '/// M:Y T:N
- Call fAutocorrectOptions("Replace1st")
-
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
- fFormatCharacter("TabFontPosition")
- if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:Y T:N before autoformat!"
- Normal.Check
- TabFontPosition.OK
-
- FormatAutoformatApply
-
- fFormatCharacter("TabFontPosition")
- if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:N after autoformat!"
- Normal.Check
- TabFontPosition.OK
-
- EditSelectAll
- Call wTypeKeys "<DELETE>"
-
- '/// M:N T:Y
- Call fAutocorrectOptions("Replace1st")
-
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
- fFormatCharacter("TabFontPosition")
- if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:N T:Y"
- Normal.Check
- TabFontPosition.OK
-
- EditSelectAll
- Call wTypeKeys "<DELETE>"
-
- '/// M:N T:N
- Call fAutocorrectOptions("Replace1st")
-
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
- fFormatCharacter("TabFontPosition")
- if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N before autoformat!"
- Normal.Check
- TabFontPosition.OK
-
- FormatAutoformatApply
-
- fFormatCharacter("TabFontPosition")
- if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N after autoformat!"
- Normal.Check
- TabFontPosition.OK
-
- '/// Recover to the default M:Y T:Y
- Call fAutocorrectOptions("Replace1st")
-
- Call hCloseDocument
+ Dim testContent as String
+ Dim hopeResult as String
+ Dim hopeResultBeforeAutoformat
+ Dim hopeResultAfterAutoformat as String
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_7
-
- Dim testContent as String
- Dim hopeResult as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
-
- printLog "Replace 1/2 ... with ½ ... "
- '/// Replace 1/2 ... with ½ ...
- Call hNewDocument
-
- '/// M:Y T:Y (default)
- testContent = "1/2"
- hopeResult = "½"
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... M:Y T:Y"
-
- Call wTypeKeys "<DELETE>"
-
- '/// M:Y T:N
- testContent = "1/2"
- hopeResultBeforeAutoformat = "1/2"
- hopeResultAfterAutoformat = "½"
-
- Call fAutocorrectOptions("Replace1/2")
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
- Warnlog "The content should NOT be changed before Autoformat! M:Y T:N"
- goto GOING1
- end if
-
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
- Warnlog "The content should be changed after Autoformat!M:Y T:N"
- end if
-
-GOING1:
- Call wTypeKeys "<DELETE>"
-
- '/// M:N T:Y
- testContent = "1/2"
- hopeResult = "½"
-
- Call fAutocorrectOptions("Replace1/2")
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... when M:N T:Y"
-
- Call wTypeKeys "<DELETE>"
-
- '/// M:N T:N
- testContent = "1/2"
- hopeResultBeforeAutoformat = "1/2"
- hopeResultAfterAutoformat = "1/2"
-
- Call fAutocorrectOptions("Replace1/2")
-
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
- Warnlog "The content should NOT be changed before Autoformat! M:N T:N"
- goto testend
- end if
-
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
- Warnlog "The content should NOT be changed after Autoformat! M:N T:N"
- end if
-
-testend:
-
- '/// Recover to the default
- Call fAutocorrectOptions("Replace1/2")
-
- Call hCloseDocument
-
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_8
-
- Dim testContent as String
- Dim hopeResult as String
- Dim hopeResultBeforeAutoformat
- Dim hopeResultAfterAutoformat as String
-
- printLog "Replace dashes"
- '/// Replace dashes
- Call hNewDocument
+ printLog "Replace dashes"
+ '/// Replace dashes
+ Call hNewDocument
'/// M:Y T:Y (default)
- testContent = "Bla - Bla"
- hopeResult = "Bla – Bla"
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y"
+ testContent = "Bla - Bla"
+ hopeResult = "Bla – Bla"
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y"
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:Y T:N
- testContent = "Bla - Bla"
- hopeResultBeforeAutoformat = "Bla - Bla"
- hopeResultAfterAutoformat = "Bla – Bla"
+ testContent = "Bla - Bla"
+ hopeResultBeforeAutoformat = "Bla - Bla"
+ hopeResultAfterAutoformat = "Bla – Bla"
- Call fAutocorrectOptions("ReplaceDashes")
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
+ Call fAutocorrectOptions("ReplaceDashes",1,0)
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
Warnlog "The content should NOT be changed before Autoformat! M:Y T:N"
goto GOING1
- end if
+ end if
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
Warnlog "The content should be changed after Autoformat!M:Y T:N"
- end if
+ end if
-GOING1:
- Call wTypeKeys "<DELETE>"
+ GOING1:
+ Call wTypeKeys "<DELETE>"
'/// M:N T:Y
- testContent = "Bla - Bla"
- hopeResult = "Bla – Bla"
+ testContent = "Bla - Bla"
+ hopeResult = "Bla – Bla"
- Call fAutocorrectOptions("ReplaceDashes")
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y"
+ Call fAutocorrectOptions("ReplaceDashes",0,1)
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y"
- Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<DELETE>"
'/// M:N T:N
- testContent = "Bla - Bla"
- hopeResultBeforeAutoformat = "Bla - Bla"
- hopeResultAfterAutoformat = "Bla - Bla"
+ testContent = "Bla - Bla"
+ hopeResultBeforeAutoformat = "Bla - Bla"
+ hopeResultAfterAutoformat = "Bla - Bla"
- Call fAutocorrectOptions("ReplaceDashes")
+ Call fAutocorrectOptions("ReplaceDashes",0,0)
- Call wTypeKeys testContent
- Call wTypeKeys " "
- Call wTypeKeys "<BACKSPACE><Shift Home>"
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then
+ Call wTypeKeys testContent
+ Call wTypeKeys " "
+ Call wTypeKeys "<BACKSPACE><Shift Home>"
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then
Warnlog "The content should NOT be changed before Autoformat! M:N T:N"
goto testend
- end if
+ end if
- Call wTypeKeys "<ESCAPE>"
- FormatAutoformatApply
- Call wTypeKeys "<Shift End>"
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then
+ Call wTypeKeys "<ESCAPE>"
+ FormatAutoformatApply
+ Call wTypeKeys "<Shift End>"
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then
Warnlog "The content should NOT be changed after Autoformat! M:N T:N"
- end if
+ end if
-testend:
+ testend:
'/// Recover to the default
- Call fAutocorrectOptions("ReplaceDashes")
+ Call fAutocorrectOptions("ReplaceDashes",1,1)
Call hCloseDocument
@@ -1201,14 +999,14 @@ endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectOptions_11
+testcase tToolsAutocorrectOptions_7
- Dim testContent as String
- Dim hopeResult as String
+ Dim testContent as String
+ Dim hopeResult as String
- printLog "Ignore double spaces"
- '/// Ignore double spaces
- Call hNewDocument
+ printLog "Ignore double spaces"
+ '/// Ignore double spaces
+ Call hNewDocument
'/// + T:N (default)
testContent = "Two Space"
@@ -1224,7 +1022,7 @@ testcase tToolsAutocorrectOptions_11
testContent = "Two Space"
hopeResult = "Two Space"
- Call fAutocorrectOptions("IgnoreDoulbeSpaces")
+ Call fAutocorrectOptions("IgnoreDoubleSpaces",1,1)
Call wTypeKeys testContent
Call wTypeKeys "<Shift Home>"
EditCopy
@@ -1234,7 +1032,7 @@ testcase tToolsAutocorrectOptions_11
Call wTypeKeys "<ESCAPE>"
'/// Recover to the default
- Call fAutocorrectOptions("IgnoreDoulbeSpaces")
+ Call fAutocorrectOptions("IgnoreDoubleSpaces",0,0)
Call hCloseDocument
@@ -1242,49 +1040,54 @@ endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectOptions_12
+testcase tToolsAutocorrectOptions_8
- Dim firstLine as String
- Dim testContent as String
- Dim hopeResult as String
+ Dim firstLine as String
+ Dim testContent as String
+ Dim hopeResult as String
- printLog "Apply numbering"
- '/// Apply numbering
+ printLog "Apply numbering"
+ '/// Apply numbering
- Call hNewDocument
+ Call hNewDocument
'/// + T:Y (default)
- firstLine = "1. FirstLine"
- testContent = "Test1"
- hopeResult = "1.Test1"
+ firstLine = "1. FirstLine"
+ testContent = "Test1"
+ hopeResult = "1.Test1"
- Call wTypeKeys firstLine
- Call wTypeKeys "<Return>"
- Call wTypeKeys testContent
- Call wTypeKeys "<Return><Up><Home><Shift End>"
- EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y "
+ Call wTypeKeys firstLine
+ Call wTypeKeys "<Return>"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Return>"
+ Call wTypeKeys "<Up><End>"
+ Call wTypeKeys "<Mod1 Shift Up>"
+ EditCopy
+ printlog GetClipBoardtext
+ if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y. Not " & hopeResult & " but " & GetClipboardtext
- EditSelectAll
- Call wTypeKeys "<DELETE>"
- Call wTypeKeys "<BACKSPACE>",3
+ EditSelectAll
+ Call wTypeKeys "<DELETE>"
+ Call wTypeKeys "<BACKSPACE>",3
'/// + T:N
- testContent = "Test1"
- hopeResult = "Test1"
-
- Call fAutocorrectOptions("ApplyNumbering")
- Call wTypeKeys firstLine
- Call wTypeKeys "<Return>"
- Call wTypeKeys testContent
- Call wTypeKeys "<Return><Up><Home><Shift End>"
- EditCopy
+ testContent = "Test1"
+ hopeResult = "Test1"
+
+ Call fAutocorrectOptions("ApplyNumbering",0,0)
+ Call wTypeKeys firstLine
+ Call wTypeKeys "<Return>"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Return>"
+ Call wTypeKeys "<Up><End>"
+ Call wTypeKeys "<Mod1 Shift Up>"
+ EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:Y"
+ if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:N. Not " & hopeResult & " but " & GetClipboardtext
'/// Recover to the default
- Call fAutocorrectOptions("ApplyNumbering")
+ Call fAutocorrectOptions("ApplyNumbering",1,1)
Call hCloseDocument
@@ -1292,132 +1095,124 @@ endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectOptions_13
-
- Dim testList() as String
- Dim testContent as String
- Dim hopeResult as String
- Dim i as String
- Dim j as Integer
- Dim bottom as String
-
- bottom = "0" + gSeperator + "10" + gMeasurementUnit
+testcase tToolsAutocorrectOptions_9
- testList = Array( _
- "---" , _
- "___" , _
- "===" , _
- "***" , _
- "~~~" , _
- "###" , _
- )
- j = UBound(testList)
+ Dim testList() as String
+ Dim testContent as String
+ Dim hopeResult as String
+ Dim i as integer
+ Dim bottom as String
- '/// Apply border test , including
- '/// + '---' , '___", "===", "***" , "~~~", "###"
- printLog "Apply border"
+ bottom = "0" + gSeperator + "10" + gMeasurementUnit
- Call hNewDocument
+ testList = Array( "---", "___", "===", "***", "~~~" , "###" )
- For i = 0 to j
+ '/// Apply border test , including
+ '/// + '---' , '___", "===", "***" , "~~~", "###"
+ printLog "Apply border"
- '/// + T:Y (default)
- testContent = testlist(i)
+ Call hNewDocument
- Call wTypeKeys testContent
- Call wTypeKeys "<Return><Up><Home><Shift End>"
- try
+ For i = 0 to 5
+
+ printlog testlist(i)
+ printlog "- T:Y (default)"
+ testContent = testlist(i)
+
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Return><Up><Home><Shift End>"
+ try
+ EditCopy
+ Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
+ catch
+ endcatch
+
+ Call fFormatParagraph("TabUmrandung")
+ try
+ Unten.SetText bottom
+ catch
+ Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
+ endcatch
+ TabUmrandung.Cancel
+
+ Call wTypeKeys "<Down>"
+
+ printlog "- T:N"
+ testContent = testlist(i)
+ hopeResult = testlist(i)
+
+ Call fAutocorrectOptions("ApplyBorder",0,0)
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Return><Up><Home><Shift End>"
EditCopy
- Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
- catch
- endcatch
- fFormatParagraph("TabUmrandung")
- try
- Unten.SetText bottom
- catch
- Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
- endcatch
- TabUmrandung.Cancel
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i)
- Call wTypeKeys "<Down>"
+ Call fFormatParagraph("TabUmrandung")
+ try
+ Unten.SetText bottom
+ Warnlog "Apply border is NOT correct when T:N "+testlist(i)
+ catch
+ endcatch
+ TabUmrandung.Cancel
- '/// + T:N
- testContent = testlist(i)
- hopeResult = testlist(i)
-
- Call fAutocorrectOptions("ApplyBorder")
- Call wTypeKeys testContent
- Call wTypeKeys "<Return><Up><Home><Shift End>"
- EditCopy
-
- if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i)
-
- fFormatParagraph("TabUmrandung")
- try
- Unten.SetText bottom
- Warnlog "Apply border is NOT correct when T:N "+testlist(i)
- catch
- endcatch
- TabUmrandung.Cancel
-
- '/// Recover to the default
- Call fAutocorrectOptions("ApplyBorder")
+ printlog "- Recover to the default"
+ Call fAutocorrectOptions("ApplyBorder",1,1)
- next i
+ next i
- Call hCloseDocument
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectOptions_14
+testcase tToolsAutocorrectOptions_10
- Dim testContent as String
- Dim hopeResult as String
+ Dim testContent as String
+ Dim hopeResult as String
- printLog "Create Table"
- '/// Create Table
- Call hNewDocument
+ printLog "Create Table"
+ '/// Create Table
+ Call hNewDocument
'/// + T:Y (default)
- testContent = "+---+"
- Call wTypeKeys testContent
- Call wTypeKeys "<Return><Up><Home><Shift End>"
- try
+ testContent = "+---+"
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Return><Up><Home><Shift End>"
+ try
EditCopy
Warnlog "Something wrong in create table T:Y"
- catch
- endcatch
+ catch
+ endcatch
- try
+ try
FormatRowDelete
Sleep 1
- catch
+ catch
Warnlog "Can't delete table ,T:Y"
- endcatch
+ endcatch
'/// + T:N
- testContent = "+---+"
- hopeResult = "+---+"
+ testContent = "+---+"
+ hopeResult = "+---+"
- Call fAutocorrectOptions("CreateTable")
- Call wTypeKeys testContent
- Call wTypeKeys "<Return><Up><Home><Shift End>"
- EditCopy
+ Call fAutocorrectOptions("CreateTable",0,0)
+ Call wTypeKeys testContent
+ Call wTypeKeys "<Return><Up><Home><Shift End>"
+ EditCopy
- if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N"
+ if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N"
- try
+ try
FormatRowDelete
Sleep 1
Warnlog "Should NOT generate table when T:N"
- catch
- endcatch
+ catch
+ endcatch
'/// Recover to the default
- Call fAutocorrectOptions("CreateTable")
+ Call fAutocorrectOptions("CreateTable",1,1)
Call hCloseDocument
@@ -1425,74 +1220,73 @@ endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectOptions_16
-
- Dim testContent1 as String
- Dim testContent2 as String
- Dim hopeResultAfterAutoformat1 as String
- Dim hopeResultAfterAutoformat2 as String
+testcase tToolsAutocorrectOptions_11
- testContent1 = "ABCD1234"
- testContent2 = "EFGH5678"
+ Dim testContent1 as String
+ Dim testContent2 as String
+ Dim hopeResultAfterAutoformat1 as String
+ Dim hopeResultAfterAutoformat2 as String
- hopeResultAfterAutoformat1 = "ABCD1234"
- hopeResultAfterAutoformat2 = "EFGH5678"
+ testContent1 = "ABCD1234"
+ testContent2 = "EFGH5678"
+ hopeResultAfterAutoformat1 = "ABCD1234"
+ hopeResultAfterAutoformat2 = "EFGH5678"
- printLog "Remove Blank Paragraphs"
- '/// Remove Blank Paragraphs
+ printLog "Remove Blank Paragraphs"
+ '/// Remove Blank Paragraphs
- Call hNewDocument
+ Call hNewDocument
'/// M:N (default)
- wTypeKeys testContent1
- wTypeKeys "<Return>",2
- wTypeKeys testContent2
+ Call wTypeKeys testContent1
+ Call wTypeKeys "<Return>",2
+ Call wTypeKeys testContent2
- FormatAutoformatApply
+ FormatAutoformatApply
- wTypeKeys "<Up><Up><Home><Shift End>"
- wait 200
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N"
+ Call wTypeKeys "<Up><Up><Home><Shift End>"
+ wait 200
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N"
- wTypeKeys "<Down><Home><Shift End>"
- try
+ Call wTypeKeys "<Down><Home><Shift End>"
+ try
EditCopy
Warnlog "the second line's content is NOT correct when M:N"
- catch
- endcatch
+ catch
+ endcatch
- wTypeKeys "<Down><Home><Shift End>"
- wait 200
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N"
+ Call wTypeKeys "<Down><Home><Shift End>"
+ wait 200
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N"
Call hCloseDocument
Call hNewDocument
'/// M:Y
- Call fAutocorrectOptions("RemoveBlankParagraphs")
+ Call fAutocorrectOptions("RemoveBlankParagraphs",1,1)
- wTypeKeys testContent1
- wTypeKeys "<Return>",2
- wTypeKeys testContent2
+ Call wTypeKeys testContent1
+ Call wTypeKeys "<Return>",2
+ Call wTypeKeys testContent2
- FormatAutoformatApply
+ FormatAutoformatApply
- wTypeKeys "<Up><Up><Home><Shift End>"
- wait 200
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y"
+ Call wTypeKeys "<Up><Up><Home><Shift End>"
+ wait 200
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y"
- wTypeKeys "<Down><Home><Shift End>"
- wait 200
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y"
+ Call wTypeKeys "<Down><Home><Shift End>"
+ wait 200
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y"
'/// Recover to the default
- Call fAutocorrectOptions("RemoveBlankParagraphs")
+ Call fAutocorrectOptions("RemoveBlankParagraphs",0,0)
Call hCloseDocument
@@ -1500,39 +1294,39 @@ endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectOptions_18
+testcase tToolsAutocorrectOptions_12
- Dim testContent as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
+ Dim testContent as String
+ Dim hopeResultBeforeAutoformat as String
+ Dim hopeResultAfterAutoformat as String
- printLog "Replace bullets with •"
- '/// Replace bullets with •
+ printLog "Replace bullets with •"
+ '/// Replace bullets with •
- Call hNewDocument
+ Call hNewDocument
'/// M:Y (default)
printLog "M:Y (default)"
- testContent = "+ Hello"
- hopeResultBeforeAutoformat = "+ Hello"
- hopeResultAfterAutoformat = "• Hello"
-
- wTypeKeys testContent
- wait 100
- wTypeKeys "<Shift Home>"
- Sleep 1
- GetClipboardText = ""
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat "
+ testContent = "+ Hello"
+ hopeResultBeforeAutoformat = "+ Hello"
+ hopeResultAfterAutoformat = "• Hello"
- FormatAutoformatApply
+ Call wTypeKeys testContent
+ wait 100
+ Call wTypeKeys "<Shift Home>"
+ Sleep 1
+ GetClipboardText = ""
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat "
- wTypeKeys "<Home><Shift End>"
- Sleep 1
- GetClipboardText = ""
- EditCopy
- Sleep 1
- if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat "
+ FormatAutoformatApply
+
+ Call wTypeKeys "<Home><Shift End>"
+ Sleep 1
+ GetClipboardText = ""
+ EditCopy
+ Sleep 1
+ if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat "
Call hCloseDocument
@@ -1540,30 +1334,30 @@ testcase tToolsAutocorrectOptions_18
'/// M:N
printLog "M:N"
- testContent = "+ Hello"
- hopeResultBeforeAutoformat = "+ Hello"
- hopeResultAfterAutoformat = "+ Hello"
+ testContent = "+ Hello"
+ hopeResultBeforeAutoformat = "+ Hello"
+ hopeResultAfterAutoformat = "+ Hello"
- Call fAutocorrectOptions("ReplaceBullets")
+ Call fAutocorrectOptions("ReplaceBullets",0,0)
- wTypeKeys testContent
- wait 100
- wTypeKeys "<Shift Home>"
- Sleep 1
- GetClipboardText = ""
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
+ Call wTypeKeys testContent
+ wait 100
+ Call wTypeKeys "<Shift Home>"
+ Sleep 1
+ GetClipboardText = ""
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
- FormatAutoformatApply
- Sleep 1
- wTypeKeys "<Home><Shift End>"
- Sleep 1
- GetClipboardText = ""
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat "
+ FormatAutoformatApply
+ Sleep 1
+ Call wTypeKeys "<Home><Shift End>"
+ Sleep 1
+ GetClipboardText = ""
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat "
'/// Recover to the default
- Call fAutocorrectOptions("ReplaceBullets")
+ Call fAutocorrectOptions("ReplaceBullets",1,1)
Call hCloseDocument
@@ -1571,89 +1365,88 @@ endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectOptions_19
+testcase tToolsAutocorrectOptions_13
- Dim testContent as String
- Dim hopeResultBeforeAutoformat as String
- Dim hopeResultAfterAutoformat as String
+ Dim testContent as String
+ Dim hopeResultBeforeAutoformat as String
+ Dim hopeResultAfterAutoformat as String
- printLog "Replace standard quotes with custom quotes"
- '/// Replace standard quotes with custom quotes
+ printLog "Replace standard quotes with custom quotes"
+ '/// Replace standard quotes with custom quotes
- Call hNewDocument
+ Call hNewDocument
'/// M:Y (default)
- testContent = "'"
- hopeResultBeforeAutoformat = "'"
- hopeResultAfterAutoformat = "["
-
- ToolsAutoCorrect
- Kontext
- Active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- EinfacheErsetzen.UnCheck
- EinfachWortAnfang.Click
- Kontext "Sonderzeichen"
- Schriftliste.TypeKeys "<PageUp><Home>"
- Schriftliste.TypeKeys "<Right>", 59 ' is [
- Schriftliste.TypeKeys "<Space>"
- Sonderzeichen.OK
-
- Kontext "TabTypografisch"
- TabTypografisch.OK
-
- wTypeKeys (testContent + "Hello")
- wait 100
- wTypeKeys "<Home><Shift Right>"
- Sleep 1
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
+ testContent = "'"
+ hopeResultBeforeAutoformat = "'"
+ hopeResultAfterAutoformat = "["
- FormatAutoformatApply
+ ToolsAutoCorrect
+ Kontext
+ Active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
+ SingleQuotesReplace.UnCheck
+ SingleQuotesStart.Click
+ Kontext "Sonderzeichen"
+ Schriftliste.TypeKeys "<PageUp><Home>"
+ Schriftliste.TypeKeys "<Right>", 59 ' is [
+ Schriftliste.TypeKeys "<Space>"
+ Sonderzeichen.OK
+
+ Kontext "TabLocalizedOptions"
+ TabLocalizedOptions.OK
+
+ Call wTypeKeys (testContent + "Hello")
+ wait 100
+ Call wTypeKeys "<Home><Shift Right>"
+ Sleep 1
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
- wTypeKeys "<Home><Shift Right>"
- Sleep 1
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should change after autoformat "
+ FormatAutoformatApply
+
+ Call wTypeKeys "<Home><Shift Right>"
+ Sleep 1
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should change after autoformat "
Call hCloseDocument
Call hNewDocument
'/// M:N
- testContent = "'"
- hopeResultBeforeAutoformat = "'"
- hopeResultAfterAutoformat = "'"
+ testContent = "'"
+ hopeResultBeforeAutoformat = "'"
+ hopeResultAfterAutoformat = "'"
- Call fAutocorrectOptions("ReplaceQuotes")
+ Call fAutocorrectOptions("ReplaceQuotes",0,0)
- wTypeKeys (testContent + "Hello")
- wait 100
- wTypeKeys "<Home><Shift Right>"
- Sleep 1
- EditCopy
- if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
+ Call wTypeKeys (testContent + "Hello")
+ wait 100
+ Call wTypeKeys "<Home><Shift Right>"
+ Sleep 1
+ EditCopy
+ if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
- FormatAutoformatApply
+ FormatAutoformatApply
- wTypeKeys "<Home><Shift Right>"
- Sleep 1
- EditCopy
- if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat "
+ Call wTypeKeys "<Home><Shift Right>"
+ Sleep 1
+ EditCopy
+ if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat "
'/// Recover to the default
- Call fAutocorrectOptions("ReplaceQuotes")
+ Call fAutocorrectOptions("ReplaceQuotes",1,1)
- ToolsAutoCorrect
- Kontext
- Active.Setpage TabTypografisch
- Kontext "TabTypografisch"
- EinfacheErsetzen.Check
- EinfachStandard.Click
- wait 100
- TabTypografisch.OK
+ ToolsAutoCorrect
+ Kontext
+ Active.Setpage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
+ SingleQuotesReplace.Check
+ SingleQuotesDefault.Click
+ wait 100
+ TabLocalizedOptions.OK
Call hCloseDocument
endcase
-
diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc
index e627b1632c62..cfa21c0ecd6a 100755
--- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc
+++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc
@@ -35,86 +35,80 @@
'*
'* short description : Test AutoCorrect/AutoFormat/Word Completion
'*
-'************************************************************************
-'*
-' #1 tToolsAutocorrectWordCompletion_1
-' #1 tToolsAutocorrectWordCompletion_2
-' #1 tToolsAutocorrectWordCompletion_3
-' #1 tToolsAutocorrectWordCompletion_4
-' #1 tToolsAutocorrectWordCompletion_5
-'*
'\***********************************************************************
-sub w_autocorrect_autoformat_2
+sub w_autocorrect2
printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Word Completion features"
Call tToolsAutocorrectWordCompletion_1 'Check the default settings
Call tToolsAutocorrectWordCompletion_2 'Check entries
Call tToolsAutocorrectWordCompletion_3 'Check list of suggestions can be "scrolled"
Call tToolsAutocorrectWordCompletion_4 'Test Max entries
- Call Ttoolsautocorrectwordcompletion_5 'Check 'When closing a document, save the list for later use in other documents'
-
+ Call tToolsAutocorrectWordCompletion_5 'Check 'When closing a document, save the list for later use in other documents'
+ Call tToolsAutocorrectWordCompletion_6
+
end sub
'-------------------------------------------------------------------------
testcase tToolsAutocorrectWordCompletion_1
- Dim iAcceptWith as String
- Dim iEntriesNumber as Integer
- Dim sMinWordLength as String
- Dim sMaxEntries as String
- Dim sMinMaxEntries as String
-
- iAcceptWith = 2
- iEntriesNumber = 0
- sMinWordLength = "10"
- sMaxEntries = "500"
- sMinMaxEntries = "50"
-
- 'Delete all entries in the list
- fDeleteAllEntries()
-
- printLog "Check the default settings"
- '/// Check the default settings
- '/// - Check box "Enable word completion" (default: checked)
- '/// - Check box "Append Space" (default: unchecked)
- '/// - Check box "Show as tip" (default: unchecked)
- '/// - Check box "Collect Words" (default: checked)
- '/// - Check box "When closing a document, save the list for later use in other documents" (default: checked)
- '/// - List box "Accept with" (Default = "Return")
- '/// - Spin box "minimal number of characters" default = 10
- '/// - Spin box "Max. entries" (default =500, minimum = 50)
- '/// - Box: "List of words collected" -- should be empty after Office restart.
-
- Call hNewDocument
-
- ToolsAutocorrect
- Active.Setpage TabWortergaenzung
- Kontext "TabWortergaenzung"
-
- if WoerterErgaenzen.IsChecked <> TRUE then Warnlog "Complete words should be checked ."
- if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ."
- if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ."
- if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ."
- if KeepList.IsChecked <> TRUE then Warnlog "When closing a document, save the list for later use in other documents should be checked ."
- if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ."
- if MinWortlaenge.GetText <> sMinWordLength then Warnlog "#i40540# Min word length should be " + sMinWordLength
- if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries
- if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber
-
- MaxEintraege.SetText "49"
-
- TabWortergaenzung.OK
-
- ToolsAutocorrect
- Active.Setpage TabWortergaenzung
- Kontext "TabWortergaenzung"
- if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries
- MaxEintraege.SetText sMaxEntries
- TabWortergaenzung.OK
-
- Call hCloseDocument
+ Dim iAcceptWith as String
+ Dim iEntriesNumber as Integer
+ Dim sMinWordLength as String
+ Dim sMaxEntries as String
+ Dim sMinMaxEntries as String
+
+ iAcceptWith = 2
+ iEntriesNumber = 0
+ sMinWordLength = "10"
+ sMaxEntries = "500"
+ sMinMaxEntries = "50"
+
+ printLog "Check the default settings"
+ '/// Check the default settings
+ '/// - Check box "Enable word completion" (default: checked)
+ '/// - Check box "Append Space" (default: unchecked)
+ '/// - Check box "Show as tip" (default: unchecked)
+ '/// - Check box "Collect Words" (default: checked)
+ '/// - Check box "When closing a document, remove the words collected from it from the list" (default: unchecked)
+ '/// - List box "Accept with" (Default = "Return")
+ '/// - Spin box "minimal number of characters" default = 10
+ '/// - Spin box "Max. entries" (default =500, minimum = 50)
+ '/// - Box: "List of words collected" -- should be empty after Office restart.
+
+ Call hNewDocument
+ 'Delete all entries in the list
+ Call fDeleteAllEntries()
+
+ ToolsAutocorrect
+ Kontext
+ Active.Setpage TabWortergaenzung
+ Kontext "TabWortergaenzung"
+
+ if WoerterErgaenzen.IsChecked = False then Warnlog "Complete words should be checked ."
+ if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ."
+ if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ."
+ if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ."
+ if KeepList.IsChecked = TRUE then Warnlog "When closing a document, remove the words collected from it from the list should be unchecked ."
+ if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ."
+ if MinWortlaenge.GetText <> sMinWordLength then Warnlog "Min word length should be " + sMinWordLength
+ if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries
+ if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber
+
+ MaxEintraege.SetText "49"
+
+ TabWortergaenzung.OK
+
+ ToolsAutocorrect
+ Kontext
+ Active.Setpage TabWortergaenzung
+ Kontext "TabWortergaenzung"
+ if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries
+ MaxEintraege.SetText sMaxEntries
+ TabWortergaenzung.OK
+
+ Call hCloseDocument
endcase
@@ -122,66 +116,68 @@ endcase
testcase tToolsAutocorrectWordCompletion_2
- Dim iDefaultEntriesNumber as Integer
- Dim iEntriesNumber as Integer
- Dim i as Integer
- Dim sMinWordLength as String
-
- iDefaultEntriesNumber = 0
- iEntriesNumber = 3
- sMinWordLength = "5"
-
- 'Delete all entries in the list
- fDeleteAllEntries()
-
- printLog "Check the default settings"
- '/// Check entries
- '/// delete all entries first
- '/// input some test words
- '/// check if some words should are remembered in the entries
- '/// delete all entries
- '/// close and reopen dialog, check entries again
-
- Call hNewDocument
-
- ToolsAutocorrect
- Active.Setpage TabWortergaenzung
- Kontext "TabWortergaenzung"
- if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then
- Warnlog "Entries number should be " + iDefaultEntriesNumber
- Warnlog "No test for this case"
- TabWortergaenzung.Cancel
- Goto NoTest
- end if
- MinWortlaenge.SetText sMinWordLength
- TabWortergaenzung.OK
-
- Call wTypeKeys "Hello World ! This is a StarOffice Test .<Return>"
+ Dim iDefaultEntriesNumber as Integer
+ Dim iEntriesNumber as Integer
+ Dim i as Integer
+ Dim sMinWordLength as String
+
+ iDefaultEntriesNumber = 0
+ iEntriesNumber = 3
+ sMinWordLength = "5"
+
+ printLog "Check the default settings"
+ '/// Check entries
+ '/// delete all entries first
+ '/// input some test words
+ '/// check if some words should are remembered in the entries
+ '/// delete all entries
+ '/// close and reopen dialog, check entries again
+
+ Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
+ Call sMakeReadOnlyDocumentEditable
+ 'Delete all entries in the list
+ Call fDeleteAllEntries()
+
+ ToolsAutocorrect
+ Kontext
+ Active.Setpage TabWortergaenzung
+ Kontext "TabWortergaenzung"
+ if GesammelteWorte.GetItemCount <> 0 then
+ Warnlog "Entries number should be " + iDefaultEntriesNumber
+ Warnlog "No test for this case"
+ TabWortergaenzung.Cancel
+ Call hCloseDocument
+ end if
+ MinWortlaenge.SetText sMinWordLength
+ TabWortergaenzung.OK
+
+ Call wTypeKeys "Hello World ! This is a OpenOffice.org Test .<Return>"
Sleep 3
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
- if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber
- for i = 1 to GesammelteWorte.GetItemCount
- GesammelteWorte.Select 1
- if EintragLoeschen.IsEnabled then
- EintragLoeschen.Click
- else
- i = GesammelteWorte.GetItemCount + 1
- end if
- next i
- TabWortergaenzung.OK
- Sleep 1
+ if GesammelteWorte.GetItemCount <> 3 then Warnlog "Entries number should be " + iEntriesNumber
+ for i = 1 to GesammelteWorte.GetItemCount
+ GesammelteWorte.Select 1
+ if EintragLoeschen.IsEnabled then
+ EintragLoeschen.Click
+ else
+ i = GesammelteWorte.GetItemCount + 1
+ end if
+ next i
+ TabWortergaenzung.OK
+ Sleep 1
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
- if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then Warnlog "Entries number should be " + iDefaultEntriesNumber
+ if GesammelteWorte.GetItemCount <> 0 then Warnlog "Entries number should be " + 0
TabWortergaenzung.Cancel
-NoTest:
- Call hCloseDocument
+ Call hCloseDocument
endcase
@@ -189,101 +185,78 @@ endcase
testcase tToolsAutocorrectWordCompletion_3
- Dim aTestWord() as String
- Dim sPartOfTestWord as String
- Dim i as Integer
- Dim j as Integer
-
- aTestWord = Array( _
- "accessibility" , _
- "accomplish" , _
- "account" , _
- )
- j = UBound(aTestWord)
+ Dim aTestWord() as String
+ Dim sPartOfTestWord as String
+ Dim i as Integer
+ Dim j as integer
- sPartOfTestWord = "acc"
-
- printLog "Check list of suggestions can be 'scrolled'"
- '/// Check list of suggestions can be 'scrolled'
+ aTestWord = Array( "accessibility", "accomplish", "accounting" )
+
+ sPartOfTestWord = "acc"
- '/// input some test words with first 3 letters are same
- '/// forward with <CTRL-Tab>
- '/// backwards with <SHIFT-CTRL-Tab>
- '/// endless loop test
+ printLog "Check list of suggestions can be 'scrolled'"
+ '/// Check list of suggestions can be 'scrolled'
- 'Delete all entries in the list
- fDeleteAllEntries()
+ '/// input some test words with first 3 letters are same
+ '/// forward with <CTRL-Tab>
+ '/// backwards with <SHIFT-CTRL-Tab>
+ '/// endless loop test
- Call hNewDocument
+ Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
+ Call sMakeReadOnlyDocumentEditable
+ 'Delete all entries in the list
+ Call fDeleteAllEntries()
- 'forward with <CTRL-Tab>
- For i = 0 to j
+ 'forward with <CTRL-Tab>
+ For i = 0 to 2
Call wTypeKeys aTestWord(i)
Call wTypeKeys "<Return>"
next i
Sleep 2
- For i = 0 to j
+ For i = 0 to 2
Call wTypeKeys sPartOfTestWord
-
if i > 0 then Call wTypeKeys "<MOD1 TAB>", i
Sleep 2
-
Call wTypeKeys "<Return>"
- Sleep 2
Call wTypeKeys "<Shift Home>"
- Sleep 2
EditCopy
- Sleep 2
if GetClipboardText <> aTestWord(i) then Warnlog "#102535# Should be " +aTestWord(i) +" but get " +GetClipboardText
Call wTypeKeys "<Delete>"
next i
- 'endless loop test
+ 'endless loop test
Call wTypeKeys sPartOfTestWord
- Call wTypeKeys "<MOD1 TAB>", j+1
- Sleep 2
+ Call wTypeKeys "<MOD1 TAB>", 3
Call wTypeKeys "<Return>"
- Sleep 2
Call wTypeKeys "<Shift Home>"
- Sleep 2
EditCopy
- Sleep 2
if GetClipboardText <> aTestWord(0) then Warnlog "#102535# Should be " +aTestWord(0) +" but get " +GetClipboardText
Call wTypeKeys "<Delete>"
- 'backwards with <SHIFT-CTRL-Tab>
+ 'backwards with <SHIFT-CTRL-Tab>
+ j = UBound (aTestWord)
+
For i = j to 0 step -1
Call wTypeKeys sPartOfTestWord
-
Call wTypeKeys "<MOD1 TAB>", j
-
if i > 0 then Call wTypeKeys "<Shift MOD1 TAB>", i
-
- Sleep 2
Call wTypeKeys "<Return>"
- Sleep 2
Call wTypeKeys "<Shift Home>"
- Sleep 2
EditCopy
- Sleep 2
if GetClipboardText <> aTestWord(j-i) then Warnlog "#102535# Should be " +aTestWord(j-i) +" but get " +GetClipboardText
Call wTypeKeys "<Delete>"
next i
- 'endless loop test
+ 'endless loop test
Call wTypeKeys sPartOfTestWord
Call wTypeKeys "<Shift MOD1 TAB>"
- Sleep 2
Call wTypeKeys "<Return>"
- Sleep 2
Call wTypeKeys "<Shift Home>"
- Sleep 2
EditCopy
- Sleep 2
- if GetClipboardText <> aTestWord(j) then Warnlog "#102535# Should be " +aTestWord(j) +" but get " +GetClipboardText
+ if GetClipboardText <> "accounting" then Warnlog "#102535# Should be 'accounting' but get " +GetClipboardText
- Call hCloseDocument
+ Call hCloseDocument
endcase
@@ -291,48 +264,50 @@ endcase
testcase tToolsAutocorrectWordCompletion_4
- Dim sDefaultMaxEntries as String
- Dim sTestMaxEntries as String
- Dim sTestFile as String
- Dim iTestMaxEntries as Integer
+ Dim sDefaultMaxEntries as String
+ Dim sTestMaxEntries as String
+ Dim sTestFile as String
+ Dim iTestMaxEntries as Integer
- sDefaultMaxEntries = "500"
- sTestMaxEntries = "50"
- sTestFile = "tToolsAutocorrectWordCompletion_4.sxw"
- iTestMaxEntries = 50
+ sDefaultMaxEntries = "500"
+ sTestMaxEntries = "50"
+ sTestFile = "tToolsAutocorrectWordCompletion_4.sxw"
+ iTestMaxEntries = 50
- printLog "Test Max entries"
- '/// Test Max entries
+ printLog "Test Max entries"
+ '/// Test Max entries
- '/// Delete all entries in the list
- '/// set Max entries to 50
- '/// Open the test file ( The entries number is > 50 when Max entries is 500)
- '/// check the number of entries.
+ '/// Delete all entries in the list
+ '/// set Max entries to 50
+ '/// Open the test file ( The entries number is > 50 when Max entries is 500)
+ '/// check the number of entries.
- 'Delete all entries in the list
- fDeleteAllEntries()
-
- Call hNewDocument
+ Call hNewDocument
+ 'Delete all entries in the list
+ Call fDeleteAllEntries()
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
MaxEintraege.SetText sTestMaxEntries
TabWortergaenzung.OK
Call hFileOpen ( gTesttoolPath + "writer\optional\input\advanced\" + sTestFile )
+ Call sMakeReadOnlyDocumentEditable
Sleep 4
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
if GesammelteWorte.GetItemCount > iTestMaxEntries then Warnlog "Entries number should be less than " + iTestMaxEntries
- 'Recover to default
- MaxEintraege.SetText sDefaultMaxEntries
- TabWortergaenzung.OK
+ 'Recover to default
+ MaxEintraege.SetText sDefaultMaxEntries
+ TabWortergaenzung.OK
- Call hCloseDocument
+ Call hCloseDocument
endcase
@@ -340,154 +315,166 @@ endcase
testcase tToolsAutocorrectWordCompletion_5
- Dim sTestWord1 as String
- Dim sTestWord2 as String
- Dim sTestWord3 as String
- Dim iEntriesNumber_Checked as Integer
- Dim iEntriesNumber_UnChecked as Integer
-
- sTestWord1 = "kilometer "
- sTestWord2 = "entertainment "
- sTestWord3 = "education "
- iEntriesNumber_Checked = 3
- iEntriesNumber_UnChecked = 1
-
- printLog "Check 'When closing a document, save the list for later use in other documents'"
- '/// Check 'When closing a document, save the list for later use in other documents'
- '/// delete all entries first.
- '/// 1) check when the checkbox is checked
- '/// a) Open a file, type "kilometer"
- '/// b) Open 2nd file, type "entertainment" and "education"
- '/// c) Close 2nd file, the number of entries in first file should be 3
- '/// 2) check when the checkbox is Unchecked
- '/// delete all entries , and Uncheck the testing checkbox
- '/// a) Open a file, type "kilometer"
- '/// b) Open 2nd file, type "entertainment" and "education"
- '/// c) Close 2nd file, the number of entries in first file should be 1
-
- 'Test when checkbox is checkec -- default
-
- 'Open 1st file
- Call hNewDocument
+ Dim sTestWord1 as String
+ Dim sTestWord2 as String
+ Dim sTestWord3 as String
+ Dim iEntriesNumber_Checked as Integer
+ Dim iEntriesNumber_UnChecked as Integer
+
+ sTestWord1 = "kilometer "
+ sTestWord2 = "entertainment "
+ sTestWord3 = "education "
+ iEntriesNumber_Checked = 3
+ iEntriesNumber_UnChecked = 1
+
+ printLog "Check 'When closing a document, remove the words collected from it from the list'"
+ '/// Check 'When closing a document, remove the words collected from it from the list'
+ '/// delete all entries first.
+ '/// 1) check when the checkbox is unchecked
+ '/// a) Open a file, type "kilometer"
+ '/// b) Open 2nd file, type "entertainment" and "education"
+ '/// c) Close 2nd file, the number of entries in first file should be 3
+ '/// 2) check when the checkbox is checked
+ '/// delete all entries , and Uncheck the testing checkbox
+ '/// a) Open a file, type "kilometer"
+ '/// b) Open 2nd file, type "entertainment" and "education"
+ '/// c) Close 2nd file, the number of entries in first file should be 1
+
+ 'Test when checkbox is checkec -- default
+
+ 'Open 1st file
+ Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
+ Call sMakeReadOnlyDocumentEditable
'Delete all entries in the list
- fDeleteAllEntries()
+ Call fDeleteAllEntries()
- Call wTypeKeys sTestWord1
+ ' check checkbox
+ ToolsAutocorrect
+ Kontext
+ Active.Setpage TabWortergaenzung
+ Kontext "TabWortergaenzung"
+ MinWortlaenge.SetText "5"
+ KeepList.UnCheck
+ TabWortergaenzung.Ok
+
+ Call wTypeKeys sTestWord1
'Open 2nd file
- Call hNewDocument
+ Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" )
+ Call sMakeReadOnlyDocumentEditable
- Call wTypeKeys sTestWord2
- Call wTypeKeys sTestWord3
+ Call wTypeKeys sTestWord2
+ Call wTypeKeys sTestWord3
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
- if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then
- Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
+ if GesammelteWorte.GetItemCount <> 3 then
+ Warnlog "Checked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount
end if
TabWortergaenzung.Cancel
'Close 2nd file
- Call hCloseDocument
+ Call hCloseDocument
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
- if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then
- Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 1st file ,but get " +GesammelteWorte.GetItemCount
- end if
- TabWortergaenzung.Cancel
+ if GesammelteWorte.GetItemCount <> 3 then
+ Warnlog "Checked:Entries number should be equal 3 in 1st file ,but get " + GesammelteWorte.GetItemCount
+ end if
+ TabWortergaenzung.Cancel
- Call hCloseDocument
+ Call hCloseDocument
- 'Test when checkbox is Unchecked
- 'Open 1st file
- Call hNewDocument
+ 'Test when checkbox is Checked
+ 'Open 1st file
+ Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
+ Call sMakeReadOnlyDocumentEditable
'Delete all entries in the list
- fDeleteAllEntries()
+ fDeleteAllEntries()
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
- KeepList.Uncheck
- TabWortergaenzung.OK
+ KeepList.Check
+ TabWortergaenzung.OK
- Call wTypeKeys sTestWord1
+ Call wTypeKeys sTestWord1
'Open 2nd file
- Call hNewDocument
+ Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" )
+ Call sMakeReadOnlyDocumentEditable
- Call wTypeKeys sTestWord2
- Call wTypeKeys sTestWord3
+ Call wTypeKeys sTestWord2
+ Call wTypeKeys sTestWord3
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
- if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then
- Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
+ if GesammelteWorte.GetItemCount <> 3 then
+ Warnlog "UnChecked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount
end if
TabWortergaenzung.Cancel
'Close 2nd file
- Call hCloseDocument
+ Call hCloseDocument
ToolsAutocorrect
+ Kontext
Active.Setpage TabWortergaenzung
Kontext "TabWortergaenzung"
- if GesammelteWorte.GetItemCount <> iEntriesNumber_UnChecked then
- Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_UnChecked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
+ if GesammelteWorte.GetItemCount <> 1 then
+ Warnlog "UnChecked:Entries number should be equal 1 in 2nd file ,but get " +GesammelteWorte.GetItemCount
end if
TabWortergaenzung.Cancel
- 'Recover to the default
- ToolsAutocorrect
- Active.Setpage TabWortergaenzung
- Kontext "TabWortergaenzung"
- KeepList.Check
- TabWortergaenzung.OK
-
- 'Close 1st file
- Call hCloseDocument
+ 'Close 1st file
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------
-testcase tToolsAutocorrectWordCompletion_x
+testcase tToolsAutocorrectWordCompletion_6
- Dim sTestWord as String
- Dim sPartOfTestWord as String
+ Dim sTestWord as String
+ Dim sPartOfTestWord as String
- sTestWord = "StarOffice"
- sPartOfTestWord = "Sta"
+ sTestWord = "OpenOffice.org"
+ sPartOfTestWord = "Ope"
- printLog "Check Show as Tip"
- '/// Check Show as Tip
+ printLog "Check Show as Tip"
+ '/// Check Show as Tip
- '/// When uncheck ( default) , the left word will be highlight
- '/// When check , the left word will NOT be appeared, <--- can test
- '/// and a help tip will appear <--- no way to test yet
+ '/// When uncheck ( default) , the left word will be highlight
+ '/// When check , the left word will NOT be appeared, <--- can test
+ '/// and a help tip will appear <--- no way to test yet
- 'Show as Tip -- uncheck (default)
- Call hNewDocument
+ 'Show as Tip -- uncheck (default)
+ Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
+ Call sMakeReadOnlyDocumentEditable
- Call wTypeKeys sTestWord
- Call wTypeKeys "<Return>"
- Sleep 1
- Call wTypeKeys sPartOfTestWord
- Sleep 4
- Call wTypeKeys "<Return>"
- Call wTypeKeys "<Shift Home>"
+ Call wTypeKeys sTestWord
+ Call wTypeKeys "<Return>"
+ Sleep 1
+ Call wTypeKeys sPartOfTestWord
+ Sleep 4
+ Call wTypeKeys "<Return>"
+ Call wTypeKeys "<Shift Home>"
- Sleep 1
- Call wTypeKeys "StaS"
- Sleep 4
- Call wTypeKeys "<Return>"
+ Sleep 1
+ Call wTypeKeys "StaS"
+ Sleep 4
+ Call wTypeKeys "<Return>"
- Call hCloseDocument
+ Call hCloseDocument
endcase
diff --git a/testautomation/writer/optional/includes/tools/tools1.inc b/testautomation/writer/optional/includes/tools/tools1.inc
index 4c0231a4fa16..f55322f2ffbc 100755
--- a/testautomation/writer/optional/includes/tools/tools1.inc
+++ b/testautomation/writer/optional/includes/tools/tools1.inc
@@ -319,7 +319,7 @@ function fToolsAutocorrect(Options as string)
case "TabErsetzung" : active.SetPage TabErsetzung
case "TabAusnahmen" : active.SetPage TabAusnahmen
case "TabOptionenAutokorrektur" : active.SetPage TabOptionenAutokorrektur
- case "TabTypografisch" : active.SetPage TabTypografisch
+ case "TabLocalizedOptions" : active.SetPage TabLocalizedOptions
case "TabWortergaenzung" : active.SetPage TabWortergaenzung
end Select
diff --git a/testautomation/writer/optional/input/autocorrection/01-01.odt b/testautomation/writer/optional/input/autocorrection/01-01.odt
new file mode 100644
index 000000000000..584bf749eaa9
--- /dev/null
+++ b/testautomation/writer/optional/input/autocorrection/01-01.odt
Binary files differ
diff --git a/testautomation/writer/optional/input/autocorrection/01.odt b/testautomation/writer/optional/input/autocorrection/01.odt
new file mode 100644
index 000000000000..97e76c18a1f1
--- /dev/null
+++ b/testautomation/writer/optional/input/autocorrection/01.odt
Binary files differ
diff --git a/testautomation/writer/optional/w_autocorrection.bas b/testautomation/writer/optional/w_autocorrection.bas
new file mode 100644
index 000000000000..a8549293f681
--- /dev/null
+++ b/testautomation/writer/optional/w_autocorrection.bas
@@ -0,0 +1,78 @@
+'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'*
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: w_drawing_tools.bas,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org. If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* owner : helge.delfs@sun.com
+'*
+'* short description : Tools / Autocorrection test
+'*
+'\*******************************************************************
+
+global gSeperator as String
+global gMeasurementUnit as String
+
+sub main
+ Dim StartZeit
+ StartZeit = Now()
+
+ use "writer\tools\includes\w_tools.inc"
+ use "writer\tools\includes\w_tool3.inc"
+ use "writer\tools\includes\w_tools_autocorrection.inc"
+ use "writer\optional\includes\autocorrection\w_autocorrect1.inc"
+ use "writer\optional\includes\autocorrection\w_autocorrect2.inc"
+
+ printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
+ printlog Chr(13) + "******* Writer - Autocorrection - Test *******"
+ 'Getting the decimal seperator from global function
+ gSeperator = GetDecimalSeperator()
+ 'Setting the measurement unit to centimeters.
+ gMeasurementUnit = fSetMeasurementToCM()
+
+ Call hStatusIn ( "writer" , "w_autocorrection.bas" )
+
+ Call w_autocorrect1
+ Call w_autocorrect2
+
+ Call hStatusOut
+
+ Printlog Chr(13) + "End of Autocorrect - Test :"
+ Printlog "Duration: "+ WieLange ( StartZeit )
+ Printlog "Date: " + Date + " Time: " + Time
+
+end sub
+
+sub LoadIncludeFiles
+ use "global\system\includes\master.inc"
+ use "global\system\includes\gvariabl.inc"
+ Call GetUseFiles
+ gApplication = "WRITER"
+end sub
diff --git a/testautomation/writer/required/includes/w_007_.inc b/testautomation/writer/required/includes/w_007_.inc
index 056145bdbf37..dfee14e23025 100755
--- a/testautomation/writer/required/includes/w_007_.inc
+++ b/testautomation/writer/required/includes/w_007_.inc
@@ -488,8 +488,8 @@ testcase tToolsAutocorrectAutoformat
Kontext "TabOptionenAutokorrektur"
Call DialogTest ( TabOptionenAutokorrektur )
printlog " Step through all options in list"
- printlog " Tabpage Options: With entry 11 button 'Edit' should be enabled"
- Einstellungen.TypeKeys "<Down>",11
+ printlog " Tabpage Options: With entry 10 button 'Edit' should be enabled"
+ Einstellungen.TypeKeys "<Down>",9
Wait 500
if Bearbeiten.IsEnabled then
Bearbeiten.Click
@@ -497,11 +497,11 @@ testcase tToolsAutocorrectAutoformat
DialogTest (Sonderzeichen)
Sonderzeichen.Cancel
else
- Warnlog "- Button 'Edit' on Entry 11 disabled!"
+ Warnlog "- Button 'Edit' on Entry 10 disabled!"
end if
Kontext "TabOptionenAutokorrektur"
- printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled"
+ printlog " Tabpage Options: With entry 16 button 'Edit' should be enabled"
Einstellungen.TypeKeys "<Down>",6
Wait 500
if Bearbeiten.IsEnabled then
@@ -514,8 +514,8 @@ testcase tToolsAutocorrectAutoformat
end if
Kontext "TabOptionenAutokorrektur"
- printlog " Tabpage Options: With entry 19 button 'Edit' should be enabled"
- Einstellungen.TypeKeys "<Down>",2
+ printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled"
+ Einstellungen.TypeKeys "<Down>",1
Wait 500
if Bearbeiten.IsEnabled then
Bearbeiten.Click
@@ -524,40 +524,40 @@ testcase tToolsAutocorrectAutoformat
Zusammenfassen.Cancel
Kontext "TabOptionenAutokorrektur"
else
- Warnlog "- Button 'Edit' on Entry 18 disabled!"
+ Warnlog "- Button 'Edit' on Entry 17 disabled!"
end if
Kontext
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- EinfachWortAnfang.Click
+ active.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions"
+ SingleQuotesStart.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 1 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
- EinfachWortEnde.Click
+ Kontext "TabLocalizedOptions"
+ SingleQuotesEnd.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 2 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
- EinfachStandard.Click
+ Kontext "TabLocalizedOptions"
+ SingleQuotesDefault.Click
- Kontext "TabTypografisch"
- DoppeltWortAnfang.Click
+ Kontext "TabLocalizedOptions"
+ DoubleQuotesStart.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 3 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
- DoppeltWortEnde.Click
+ Kontext "TabLocalizedOptions"
+ DoubleQuotesEnd.Click
Kontext "Sonderzeichen"
Call DialogTest ( Sonderzeichen, 4 )
Sonderzeichen.Cancel
- Kontext "TabTypografisch"
- DoppeltStandard.Click
+ Kontext "TabLocalizedOptions"
+ DoubleQuotesDefault.Click
Kontext
Active.Setpage TabWortergaenzung
diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc
index a68a5eea9ea4..542b695e848d 100755
--- a/testautomation/writer/tools/includes/w_tool2.inc
+++ b/testautomation/writer/tools/includes/w_tool2.inc
@@ -64,7 +64,7 @@ sub OptionenAufrufen(Seite as string)
case "TabErsetzung" : active.SetPage TabErsetzung
case "TabAusnahmen" : active.SetPage TabAusnahmen
case "TabOptionen" : active.SetPage TabOptionen
- case "TabTypografisch": active.SetPage TabTypografisch
+ case "TabLocalizedOptions": active.SetPage TabLocalizedOptions
end select
for i = 1 to 5
Kontext "Active"
diff --git a/testautomation/writer/tools/includes/w_tools_autocorrection.inc b/testautomation/writer/tools/includes/w_tools_autocorrection.inc
index f259ce1dde51..d35c2a33e25b 100644..100755
--- a/testautomation/writer/tools/includes/w_tools_autocorrection.inc
+++ b/testautomation/writer/tools/includes/w_tools_autocorrection.inc
@@ -41,42 +41,62 @@
'*
'\***********************************************************************
-function fAutocorrectOptions(Options as String)
+function fAutocorrectOptions(Options as String, iModify as integer, iType as integer)
'/// Open Tools/Autocorrect/Autoformat diglog with tab page Options
'///+ then choose the relevant Options and press 'space bar'
+ Dim iDown as integer
ToolsAutocorrect
Kontext
Active.Setpage TabOptionenAutokorrektur
Kontext "TabOptionenAutokorrektur"
- Einstellungen.TypeKeys "<Home>"
-
Select case Options
- case "UseReplacementTable" : wait 500
- case "CorrectTWoINitialCApitals" : Einstellungen.TypeKeys "<Down>"
- case "CapitalizeFirstLetter" : Einstellungen.TypeKeys "<Down>",2
- case "AutomaticBoldAndUnderline" : Einstellungen.TypeKeys "<Down>",3
- case "URLRecognition" : Einstellungen.TypeKeys "<Down>",4
- case "Replace1st" : Einstellungen.TypeKeys "<Down>",5
- case "Replace1/2" : Einstellungen.TypeKeys "<Down>",6
- case "ReplaceDashes" : Einstellungen.TypeKeys "<Down>",7
- case "DeleteSpaceParagraph" : Einstellungen.TypeKeys "<Down>",8
- case "DeleteSpaceLine" : Einstellungen.TypeKeys "<Down>",9
- case "IgnoreDoulbeSpaces" : Einstellungen.TypeKeys "<Down>",10
- case "ApplyNumbering" : Einstellungen.TypeKeys "<Down>",11
- case "ApplyBorder" : Einstellungen.TypeKeys "<Down>",12
- case "CreateTable" : Einstellungen.TypeKeys "<Down>",13
- case "ApplyStyles" : Einstellungen.TypeKeys "<Down>",14
- case "RemoveBlankParagraphs" : Einstellungen.TypeKeys "<Down>",15
- case "ReplaceCustomStyles" : Einstellungen.TypeKeys "<Down>",16
- case "ReplaceBullets" : Einstellungen.TypeKeys "<Down>",17
- case "ReplaceQuotes" : Einstellungen.TypeKeys "<Down>",18
- case "CombineSingleLine" : Einstellungen.TypeKeys "<End>"
-
+ case "UseReplacementTable" : iDown = 1
+ case "CorrectTWoINitialCApitals" : iDown = 2
+ case "CapitalizeFirstLetter" : iDown = 3
+ case "AutomaticBoldAndUnderline" : iDown = 4
+ case "URLRecognition" : iDown = 5
+ case "ReplaceDashes" : iDown = 6
+ case "DeleteSpaceParagraph" : iDown = 7
+ case "DeleteSpaceLine" : iDown = 8
+ case "IgnoreDoubleSpaces" : iDown = 9
+ case "ApplyNumbering" : iDown = 10
+ case "ApplyBorder" : iDown = 11
+ case "CreateTable" : iDown = 12
+ case "ApplyStyles" : iDown = 13
+ case "RemoveBlankParagraphs" : iDown = 14
+ case "ReplaceCustomStyles" : iDown = 15
+ case "ReplaceBullets" : iDown = 16
+ case "CombineSingleLine" : iDown = 17
end select
- Einstellungen.TypeKeys "<SPACE>"
+ ' *** Set requested state ***
+ ' ### Modify
+ Select Case iDown
+ Case 1,2,3,4,5,6,7,8,14,15,16,17
+ if iModify = 1 then
+ Einstellungen.Check(iDown,2)
+ else
+ Einstellungen.UnCheck(iDown,2)
+ endif
+ if iDown < 9 then
+ ' ### Type
+ if iType = 1 then
+ Einstellungen.Check(iDown,3)
+ else
+ Einstellungen.UnCheck(iDown,3)
+ endif
+ endif
+ Case 9,10,11,12,13
+ ' ### Type
+ if iType = 1 then
+ Einstellungen.Check(iDown,3)
+ else
+ Einstellungen.UnCheck(iDown,3)
+ endif
+ end select
+ wait 100
TabOptionenAutokorrektur.OK
end function
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-20 01:01:48 +0000