testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_autocorrect1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:23:21 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : Test the AutoCorrect/AutoFormat/Options
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tOpenDialog_1
  41 ' #1 tReplaceDashes_1
  42 ' #1 tToolsAutocorrectOptions_1
  43 ' #1 tToolsAutocorrectOptions_2
  44 ' #1 tToolsAutocorrectOptions_3
  45 ' #1 tToolsAutocorrectOptions_4_1
  46 ' #1 tToolsAutocorrectOptions_4_2
  47 ' #1 tToolsAutocorrectOptions_5
  48 ' #1 tToolsAutocorrectOptions_6
  49 ' #1 tToolsAutocorrectOptions_7
  50 ' #1 tToolsAutocorrectOptions_8
  51 ' #1 tToolsAutocorrectOptions_11
  52 ' #1 tToolsAutocorrectOptions_12
  53 ' #1 tToolsAutocorrectOptions_13
  54 ' #1 tToolsAutocorrectOptions_14
  55 ' #1 tToolsAutocorrectOptions_16
  56 ' #1 tToolsAutocorrectOptions_18
  57 ' #1 tToolsAutocorrectOptions_19
  58 '*
  59 '\***********************************************************************
  60
  61 sub w_autocorrect_autoformat_1
  62
  63     printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Options features"
  64
  65     Call tReplaceDashes_1                'Replace all of dashes
  66     '## Tab page Options in Tools/Autocorrect|Autoformat ##
  67     Call tToolsAutocorrectOptions_1      'Use Replacement table
  68     Call tToolsAutocorrectOptions_2      'Correct TWo INitial CApital
  69     Call tToolsAutocorrectOptions_3      'Capitalize first letter of every setence
  70     Call tToolsAutocorrectOptions_4_1    'Automatic bold
  71     Call tToolsAutocorrectOptions_4_2    'Automatic underline
  72     Call tToolsAutocorrectOptions_5      'URL Recognition
  73     Call tToolsAutocorrectOptions_6      'Replace 1st ... with 1^st...
  74     Call tToolsAutocorrectOptions_7      'Replace 1/2 ... with ½ ...
  75     Call tToolsAutocorrectOptions_8      'Replace dashes
  76     Call tToolsAutocorrectOptions_11     'Ignore double spaces
  77     Call tToolsAutocorrectOptions_12     'Apply numbering
  78     Call tToolsAutocorrectOptions_13     'Apply Border
  79     Call tToolsAutocorrectOptions_14     'Create Table
  80     Call Ttoolsautocorrectoptions_16     'Remove Blank Paragraphs
  81     Call Ttoolsautocorrectoptions_18     'Replace bullets with •
  82     Call tToolsAutocorrectOptions_19     'Replace standard quotes with custom quotes
  83
  84 end sub
  85
  86 '-------------------------------------------------------------------------
  87
  88 testcase tReplaceDashes_1
  89
  90    Dim testWord as string, testResult as String
  91    Dim i as Integer
  92    Dim j as Integer
  93
  94    printLog "Replace dashes test"
  95   '/// Replace dashes test
  96   '/// - "Bla - Bla"           One short line between two words (with Blank before and after)
  97   '/// - "Bla--Bla"            Dashes lines between two words (without Blanks)
  98   '/// - "Helen and --Tom"     Dashes Lines before a Word (one Blank before, none after)
  99   '/// - "(Bla--Bla)"          Testing  Text in brackets ( )
 100   '/// - "[Bla--Bla]"          Testing  Text in brackets [ ]
 101   '/// - "{Bla--Bla}"          Testing  Text in brackets { }
 102
 103    Call hNewDocument
 104
 105    For i = 1 to 6
 106        Select Case i
 107             Case 1 : testWord = "Bla - Bla"         : testResult = "Bla – Bla"
 108             Case 2 : testWord = "Bla--Bla"          : testResult = "Bla—Bla"
 109             Case 3 : testWord = "Helen and --Tom"   : testResult = "Helen and –Tom"
 110             Case 4 : testWord = "(Bla--Bla)"        : testResult = "(Bla—Bla)"
 111             Case 5 : testWord = "[Bla--Bla]"        : testResult = "[Bla—Bla]"
 112             Case 6 : testWord = "{Bla--Bla}"        : testResult = "{Bla—Bla}"
 113         end select
 114
 115         printlog "- Replace dashes " & testword & " => " & testResult
 116         Call wTypeKeys testWord
 117         Call wTypeKeys " "
 118         Sleep 1
 119         Call wTypeKeys "<Left><Shift Home>"
 120         EditCopy
 121         if GetClipboardText <> testResult then Warnlog "Something wrong in the test for " + testWord(i)
 122         Call wTypeKeys "<DELETE>"
 123     next i
 124
 125     Call hCloseDocument
 126
 127 endcase
 128
 129 '-------------------------------------------------------------------------
 130
 131 testcase tToolsAutocorrectOptions_1
 132
 133     printLog "Test 'Use Replacement table'"
 134     '/// Test 'Use Replacement table'
 135     Call hNewDocument
 136     '/// Insert new test word in replacement table
 137     '/// Tools/AutoCorrect / Replace , insert new test words in new and replace ,
 138     '/// + and press button New.
 139     ToolsAutoCorrect
 140     Kontext
 141     Active.SetPage TabErsetzung
 142     Kontext "TabErsetzung"
 143     Kuerzel.SetText "Aabbcc"
 144     ErsetzenDurch.SetText "Aaccbb"
 145     Sleep 1
 146     Neu.Click
 147     Sleep 1
 148     TabErsetzung.OK
 149
 150     '/// M:Y  T:Y (default)
 151     ToolsAutoCorrect
 152     Kontext
 153     Active.SetPage TabOptionenAutokorrektur
 154     Kontext "TabOptionenAutokorrektur"
 155     Einstellungen.Select 1
 156     if Not Einstellungen.IsChecked then Warnlog "First Checkbox: " & Einstellungen.IsChecked
 157     Einstellungen.TypeKeys "<Right>"
 158     if Not Einstellungen.IsChecked then Warnlog "Second Checkbox: " & Einstellungen.IsChecked
 159     TabOptionenAutokorrektur.Ok
 160
 161     Call wTypeKeys "Aabbcc"
 162     Call wTypeKeys " "
 163     Call wTypeKeys "<BACKSPACE><Shift Home>"
 164     EditCopy
 165     if GetClipboardText <> "Aaccbb" then Warnlog "Something wrong in Use Replacement table when M:Y  T:Y"
 166
 167     Call wTypeKeys "<DELETE>"
 168
 169     '/// M:Y  T:N
 170     Call fAutocorrectOptions("UseReplacementTable")
 171
 172     Call wTypeKeys "Aabbcc"
 173     Call wTypeKeys " "
 174     Call wTypeKeys "<BACKSPACE><Shift Home>"
 175
 176     EditCopy
 177     if GetClipboardText <> "Aabbcc" then
 178         Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
 179     else
 180         Call wTypeKeys "<ESCAPE>"
 181         FormatAutoformatApply
 182         Call wTypeKeys "<Home><Shift End>"
 183         GetClipboardText = ""
 184         EditCopy
 185         if GetClipboardText <> "Aaccbb" then
 186             Warnlog "The content should be changed after Autoformat!M:Y  T:N"
 187         end if
 188     end if
 189
 190     Call wTypeKeys "<DELETE>"
 191
 192     '/// M:N  T:Y
 193     Call fAutocorrectOptions("UseReplacementTable")
 194
 195     Call wTypeKeys "Aabbcc"
 196     Call wTypeKeys " "
 197     Call wTypeKeys "<BACKSPACE><Shift Home>"
 198     GetClipboardText = ""
 199     EditCopy
 200     if GetClipboardText <> "Aaccbb" then Warnlog "Something wrong in Use Replacement table when M:N  T:Y"
 201
 202     Call wTypeKeys "<DELETE>"
 203
 204     '/// M:N  T:N
 205     Call fAutocorrectOptions("UseReplacementTable")
 206
 207     Call wTypeKeys "Aabbcc"
 208     Call wTypeKeys " "
 209     Call wTypeKeys "<BACKSPACE><Shift Home>"
 210     EditCopy
 211     if GetClipboardText <> "Aabbcc" then
 212         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
 213         goto testend
 214     else
 215
 216         Call wTypeKeys "<ESCAPE>"
 217         FormatAutoformatApply
 218         Call wTypeKeys "<Home><Shift End>"
 219         GetClipboardText = ""
 220         EditCopy
 221         if GetClipboardText <> "Aabbcc" then
 222             Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
 223         end if
 224     end if
 225
 226     '/// Recover to the default  M:Y  T:Y
 227      Call fAutocorrectOptions("UseReplacementTable")
 228
 229     'remove the test words which you insert in the replacement table
 230     Dim i as Integer
 231     ToolsAutoCorrect
 232     Kontext
 233     Active.SetPage TabErsetzung
 234     Kontext "TabErsetzung"
 235     for i =1 to Liste.GetItemCount
 236         if Kuerzel.GetText = "Aabbcc" then
 237             i = Liste.GetItemCount + 1
 238             Loeschen.Click
 239         else
 240             Liste.Typekeys "<Down>"
 241         end if
 242     next i
 243     TabErsetzung.OK
 244
 245     Call hCloseDocument
 246
 247 endcase
 248
 249 '-------------------------------------------------------------------------
 250
 251 testcase tToolsAutocorrectOptions_2
 252
 253    Dim testContent as String
 254    Dim hopeResult as String
 255    Dim hopeResultBeforeAutoformat as String
 256    Dim hopeResultAfterAutoformat as String
 257
 258   printLog "Test 'Correct TWo INitial CApital'  "
 259   '/// Test 'Correct TWo INitial CApital'
 260    Call hNewDocument
 261
 262     '/// M:Y  T:Y (default)
 263      testContent = "TEst"
 264      hopeResult  = "Test"
 265      Call wTypeKeys testContent
 266      Call wTypeKeys " "
 267      Call wTypeKeys "<BACKSPACE><Shift Home>"
 268      EditCopy
 269      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y  T:Y"
 270
 271      Call wTypeKeys "<DELETE>"
 272
 273     '/// M:Y  T:N
 274      testContent                 = "TEst"
 275      hopeResultBeforeAutoformat  = "TEst"
 276      hopeResultAfterAutoformat   = "Test"
 277
 278      Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 279
 280      Call wTypeKeys testContent
 281      Call wTypeKeys " "
 282      Call wTypeKeys "<BACKSPACE><Shift Home>"
 283
 284      EditCopy
 285      if GetClipboardText <> hopeResultBeforeAutoformat then
 286         Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
 287         goto GOING1
 288      end if
 289
 290      Call wTypeKeys "<ESCAPE>"
 291      FormatAutoformatApply
 292      Call wTypeKeys "<Shift End>"
 293      EditCopy
 294      if GetClipboardText <> hopeResultAfterAutoformat then
 295         Warnlog "The content should be changed after Autoformat!M:Y  T:N"
 296      end if
 297
 298 GOING1:
 299      Call wTypeKeys "<DELETE>"
 300
 301     '/// M:N  T:Y
 302      testContent  = "TEst"
 303      hopeResult   = "Test"
 304
 305      Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 306
 307      Call wTypeKeys testContent
 308      Call wTypeKeys " "
 309      Call wTypeKeys "<BACKSPACE><Shift Home>"
 310      EditCopy
 311      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N  T:Y"
 312
 313      Call wTypeKeys "<DELETE>"
 314
 315     '/// M:N  T:N
 316      testContent                 = "TEst"
 317      hopeResultBeforeAutoformat  = "TEst"
 318      hopeResultAfterAutoformat   = "TEst"
 319
 320      Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 321
 322      Call wTypeKeys testContent
 323      Call wTypeKeys " "
 324      Call wTypeKeys "<BACKSPACE><Shift Home>"
 325      EditCopy
 326      if GetClipboardText <> hopeResultBeforeAutoformat then
 327         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
 328         goto testend
 329      end if
 330
 331      Call wTypeKeys "<ESCAPE>"
 332      FormatAutoformatApply
 333      Call wTypeKeys "<Shift End>"
 334      EditCopy
 335      if GetClipboardText <> hopeResultAfterAutoformat then
 336         Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
 337      end if
 338
 339 testend:
 340     '/// Recover to the default  M:Y  T:Y
 341      Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 342
 343     Call hCloseDocument
 344
 345 endcase
 346
 347 '-------------------------------------------------------------------------
 348
 349 testcase tToolsAutocorrectOptions_3
 350
 351    Dim testContent as String
 352    Dim hopeResult as String
 353    Dim hopeResultBeforeAutoformat as String
 354    Dim hopeResultAfterAutoformat as String
 355
 356   printLog "Test 'Capitalize first letter of every setence'"
 357   '/// Test 'Capitalize first letter of every setence'
 358    Call hNewDocument
 359
 360     '/// M:Y  T:Y (default)
 361      testContent = "the test for StarOffice automation. who is the author?"
 362      hopeResult  = "The test for StarOffice automation. Who is the author?"
 363      Call wTypeKeys testContent
 364      Call wTypeKeys "<Shift Home>"
 365      EditCopy
 366      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Capitalize first letter of every setence when M:Y  T:Y"
 367
 368      Call wTypeKeys "<DELETE>"
 369
 370     '/// M:Y  T:N
 371      testContent                 = "the test for StarOffice automation. who is the author?"
 372      hopeResultBeforeAutoformat  = "the test for StarOffice automation. who is the author?"
 373      hopeResultAfterAutoformat   = "The test for StarOffice automation. Who is the author?"
 374
 375      Call fAutocorrectOptions("CapitalizeFirstLetter")
 376      Call wTypeKeys testContent
 377      Call wTypeKeys "<Shift Home>"
 378      EditCopy
 379      if GetClipboardText <> hopeResultBeforeAutoformat then
 380         Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
 381         goto GOING1
 382      end if
 383
 384      Call wTypeKeys "<ESCAPE>"
 385      FormatAutoformatApply
 386      Call wTypeKeys "<Shift End>"
 387      EditCopy
 388      if GetClipboardText <> hopeResultAfterAutoformat then
 389         Warnlog "The content should be changed after Autoformat!M:Y  T:N"
 390      end if
 391
 392 GOING1:
 393      Call wTypeKeys "<DELETE>"
 394
 395     '/// M:N  T:Y
 396      testContent  = "the test for StarOffice automation. who is the author?"
 397      hopeResult   = "The test for StarOffice automation. Who is the author?"
 398
 399      Call fAutocorrectOptions("CapitalizeFirstLetter")
 400      Call wTypeKeys testContent
 401      Call wTypeKeys "<Shift Home>"
 402      EditCopy
 403      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Capitalize first letter of every setence when M:N  T:Y"
 404
 405      Call wTypeKeys "<DELETE>"
 406
 407     '/// test 'Capitalize first letter of every setence' , M:N  T:N
 408      testContent                 = "the test for StarOffice automation. who is the author?"
 409      hopeResultBeforeAutoformat  = "the test for StarOffice automation. who is the author?"
 410      hopeResultAfterAutoformat   = "the test for StarOffice automation. who is the author?"
 411
 412      Call fAutocorrectOptions("CapitalizeFirstLetter")
 413
 414      Call wTypeKeys testContent
 415      Call wTypeKeys "<Shift Home>"
 416      EditCopy
 417      if GetClipboardText <> hopeResultBeforeAutoformat then
 418         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
 419         goto testend
 420      end if
 421
 422      Call wTypeKeys "<ESCAPE>"
 423      FormatAutoformatApply
 424      Call wTypeKeys "<Shift End>"
 425      EditCopy
 426      if GetClipboardText <> hopeResultAfterAutoformat then
 427         Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
 428      end if
 429
 430 testend:
 431
 432     '/// Recover to the default
 433      Call fAutocorrectOptions("CapitalizeFirstLetter")
 434
 435     Call hCloseDocument
 436
 437
 438 endcase
 439
 440 '-------------------------------------------------------------------------
 441
 442 testcase tToolsAutocorrectOptions_4_1
 443
 444    Dim testContent as String
 445    Dim hopeResult as String
 446    Dim hopeResultBeforeAutoformat as String
 447    Dim hopeResultAfterAutoformat as String
 448    Dim getStyle as String
 449    Dim hopeStyle as String
 450
 451   printLog "Test 'Automatic bold and underline' --- bold  "
 452   '/// Test 'Automatic bold'
 453    Call hNewDocument
 454
 455     '/// M:Y  T:Y (default)
 456      testContent = "*Test*"
 457      hopeResult  = "Test"
 458
 459      Call wTypeKeys testContent
 460      Call wTypeKeys "<Shift Home>"
 461      EditCopy
 462      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y  T:Y"
 463
 464      fFormatCharacter("TabFont")
 465
 466     try
 467      getStyle = Style.GetSelText
 468      Style.Select 3
 469      hopeStyle = Style.GetSelText
 470     catch
 471      getStyle = StyleWest.GetSelText
 472      StyleWest.Select 3
 473      hopeStyle = StyleWest.GetSelText
 474     endcatch
 475     Sleep 1
 476
 477      if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y  T:Y"
 478
 479     try
 480      Style.Select 1
 481     catch
 482      StyleWest.Select 1
 483     endcatch
 484     Sleep 1
 485
 486      TabFont.OK
 487      Sleep 1
 488
 489      Call wTypeKeys "<DELETE>"
 490
 491     '/// M:Y  T:N
 492      testContent                 = "*Test*"
 493      hopeResultBeforeAutoformat  = "*Test*"
 494      hopeResultAfterAutoformat   = "Test"
 495
 496      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 497
 498      Call wTypeKeys testContent
 499      Call wTypeKeys "<Shift Home>"
 500
 501      EditCopy
 502      if GetClipboardText <> hopeResultBeforeAutoformat then
 503         Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
 504         goto GOING1
 505      end if
 506
 507      fFormatCharacter("TabFont")
 508
 509     try
 510      getStyle = Style.GetSelText
 511      Style.Select 1
 512      hopeStyle = Style.GetSelText
 513     catch
 514      getStyle = StyleWest.GetSelText
 515      StyleWest.Select 1
 516      hopeStyle = StyleWest.GetSelText
 517     endcatch
 518     Sleep 1
 519
 520      if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
 521      TabFont.Cancel
 522
 523      Call wTypeKeys "<ESCAPE>"
 524      FormatAutoformatApply
 525      Call wTypeKeys "<Shift End>"
 526      EditCopy
 527      if GetClipboardText <> hopeResultAfterAutoformat then
 528         Warnlog "The content should be changed after Autoformat!M:Y  T:N"
 529      end if
 530
 531      fFormatCharacter("TabFont")
 532
 533     try
 534      getStyle = Style.GetSelText
 535      Style.Select 3
 536      hopeStyle = Style.GetSelText
 537     catch
 538      getStyle = StyleWest.GetSelText
 539      StyleWest.Select 3
 540      hopeStyle = StyleWest.GetSelText
 541     endcatch
 542     Sleep 1
 543
 544      if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y  T:Y"
 545
 546     try
 547      Style.Select 1
 548     catch
 549      StyleWest.Select 1
 550     endcatch
 551      Sleep 1
 552
 553      TabFont.OK
 554      Sleep 1
 555
 556 GOING1:
 557
 558      Call wTypeKeys "<DELETE>"
 559
 560     '/// M:N  T:Y
 561      testContent = "*Test*"
 562      hopeResult  = "Test"
 563
 564      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 565
 566      Call wTypeKeys testContent
 567      Call wTypeKeys "<Shift Home>"
 568      EditCopy
 569      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y  T:Y"
 570
 571      fFormatCharacter("TabFont")
 572
 573     try
 574      getStyle = Style.GetSelText
 575      Style.Select 3
 576      hopeStyle = Style.GetSelText
 577     catch
 578      getStyle = StyleWest.GetSelText
 579      StyleWest.Select 3
 580      hopeStyle = StyleWest.GetSelText
 581     endcatch
 582     Sleep 1
 583
 584      if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y  T:Y"
 585     try
 586      Style.Select 1
 587     catch
 588      StyleWest.Select 1
 589     endcatch
 590      TabFont.OK
 591      Sleep 1
 592
 593      Call wTypeKeys "<DELETE>"
 594
 595     '/// M:N  T:N
 596      testContent                 = "*Test*"
 597      hopeResultBeforeAutoformat  = "*Test*"
 598      hopeResultAfterAutoformat   = "*Test*"
 599
 600      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 601
 602      Call wTypeKeys testContent
 603      Call wTypeKeys "<Shift Home>"
 604      EditCopy
 605      if GetClipboardText <> hopeResultBeforeAutoformat then
 606         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
 607         goto testend
 608      end if
 609
 610      fFormatCharacter("TabFont")
 611
 612     try
 613      getStyle = Style.GetSelText
 614      Style.Select 1
 615      hopeStyle = Style.GetSelText
 616     catch
 617      getStyle = StyleWest.GetSelText
 618      StyleWest.Select 1
 619      hopeStyle = StyleWest.GetSelText
 620     endcatch
 621     Sleep 1
 622
 623      if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
 624      TabFont.Cancel
 625
 626      Call wTypeKeys "<ESCAPE>"
 627      FormatAutoformatApply
 628      Call wTypeKeys "<Shift End>"
 629      EditCopy
 630      if GetClipboardText <> hopeResultAfterAutoformat then
 631         Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
 632      end if
 633
 634      fFormatCharacter("TabFont")
 635
 636     try
 637      getStyle = Style.GetSelText
 638      Style.Select 1
 639      hopeStyle = Style.GetSelText
 640     catch
 641      getStyle = StyleWest.GetSelText
 642      StyleWest.Select 1
 643      hopeStyle = StyleWest.GetSelText
 644     endcatch
 645     Sleep 1
 646
 647      if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!"
 648      TabFont.OK
 649      Sleep 1
 650
 651 testend:
 652     '/// Recover to the default  M:Y  T:Y
 653      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 654
 655     Call hCloseDocument
 656
 657 endcase
 658
 659 '-------------------------------------------------------------------------
 660
 661 testcase tToolsAutocorrectOptions_4_2
 662
 663    Dim testContent as String
 664    Dim hopeResult as String
 665    Dim hopeResultBeforeAutoformat as String
 666    Dim hopeResultAfterAutoformat as String
 667    Dim getUnderlineStatus as Integer
 668    Dim hopeUnderlineStatus as Integer  ' 1 = without  , 2 = single
 669
 670   printLog "Test 'Automatic bold and underline' --- underline  "
 671   '/// Test 'Automatic underline'
 672    Call hNewDocument
 673
 674     '/// M:Y  T:Y (default)
 675      testContent = "_Test_"
 676      hopeResult  = "Test"
 677
 678      Call wTypeKeys testContent
 679      Call wTypeKeys "<Shift Home>"
 680      EditCopy
 681      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y  T:Y"
 682
 683      fFormatCharacter("TabFontEffects")
 684
 685      getUnderlineStatus  = Underline.GetSelIndex
 686      Underline.Select 2
 687      hopeUnderlineStatus = Underline.GetSelIndex
 688
 689      if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y  T:Y"
 690      Underline.Select 1
 691      TabFontEffects.OK
 692      Sleep 1
 693
 694      Call wTypeKeys "<DELETE>"
 695
 696     '/// M:Y  T:N
 697      testContent                 = "_Test_"
 698      hopeResultBeforeAutoformat  = "_Test_"
 699      hopeResultAfterAutoformat   = "Test"
 700
 701      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 702
 703      Call wTypeKeys testContent
 704      Call wTypeKeys "<Shift Home>"
 705
 706      EditCopy
 707      if GetClipboardText <> hopeResultBeforeAutoformat then
 708         Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
 709         goto GOING1
 710      end if
 711
 712      fFormatCharacter("TabFontEffects")
 713
 714      getUnderlineStatus  = Underline.GetSelIndex
 715      Underline.Select 1
 716      Sleep 1
 717      hopeUnderlineStatus = Underline.GetSelIndex
 718
 719      if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y  T:N before autoformat!"
 720      TabFontEffects.OK
 721      Sleep 1
 722
 723      Call wTypeKeys "<ESCAPE>"
 724      FormatAutoformatApply
 725      Call wTypeKeys "<Shift End>"
 726      EditCopy
 727      if GetClipboardText <> hopeResultAfterAutoformat then
 728         Warnlog "The content should be changed after Autoformat!M:Y  T:N"
 729      end if
 730
 731      fFormatCharacter("TabFontEffects")
 732      getUnderlineStatus  = Underline.GetSelIndex
 733      Underline.Select 2
 734      hopeUnderlineStatus = Underline.GetSelIndex
 735
 736      if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y  T:N"
 737      Underline.Select 1
 738      TabFontEffects.OK
 739      Sleep 1
 740 GOING1:
 741      Call wTypeKeys "<DELETE>"
 742
 743     '/// M:N  T:Y
 744      testContent = "_Test_"
 745      hopeResult  = "Test"
 746
 747      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 748
 749      Call wTypeKeys testContent
 750      Call wTypeKeys "<Shift Home>"
 751      EditCopy
 752      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N  T:Y"
 753
 754      fFormatCharacter("TabFontEffects")
 755      getUnderlineStatus  = Underline.GetSelIndex
 756      Underline.Select 2
 757      Sleep 1
 758      hopeUnderlineStatus = Underline.GetSelIndex
 759
 760      if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N  T:Y"
 761      Underline.Select 1
 762      Sleep 1
 763      TabFontEffects.OK
 764      Sleep 1
 765
 766      Call wTypeKeys "<DELETE>"
 767
 768     '/// M:N  T:N
 769      testContent                 = "_Test_"
 770      hopeResultBeforeAutoformat  = "_Test_"
 771      hopeResultAfterAutoformat   = "_Test_"
 772
 773      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 774
 775      Call wTypeKeys testContent
 776      Call wTypeKeys "<Shift Home>"
 777      EditCopy
 778      if GetClipboardText <> hopeResultBeforeAutoformat then
 779         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
 780         goto testend
 781      end if
 782
 783      fFormatCharacter("TabFontEffects")
 784      getUnderlineStatus  = Underline.GetSelIndex
 785      Underline.Select 1
 786      hopeUnderlineStatus = Underline.GetSelIndex
 787
 788      if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N  T:N "
 789      TabFontEffects.OK
 790
 791      Call wTypeKeys "<ESCAPE>"
 792      FormatAutoformatApply
 793      Call wTypeKeys "<Shift End>"
 794      EditCopy
 795      if GetClipboardText <> hopeResultAfterAutoformat then
 796         Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
 797      end if
 798
 799      fFormatCharacter("TabFontEffects")
 800      getUnderlineStatus  = Underline.GetSelIndex
 801      Underline.Select 1
 802      Sleep 1
 803      hopeUnderlineStatus = Underline.GetSelIndex
 804
 805      if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N  T:N"
 806      TabFontEffects.OK
 807      Sleep 1
 808
 809 testend:
 810     '/// Recover to the default  M:Y  T:Y
 811      Call fAutocorrectOptions("AutomaticBoldAndUnderline")
 812
 813     Call hCloseDocument
 814
 815 endcase
 816
 817 '-------------------------------------------------------------------------
 818
 819 testcase tToolsAutocorrectOptions_5
 820
 821    Dim testContent as String
 822    Dim hopeResult as String
 823    Dim hopeResultBeforeAutoformat as String
 824    Dim hopeResultAfterAutoformat as String
 825
 826   printLog "URL Recognition"
 827   '/// URL Recognition
 828    Call hNewDocument
 829
 830     '/// M:Y  T:Y (default)
 831      testContent = "WWW.sun.com"
 832      hopeResult  = "http://WWW.sun.com/"
 833
 834      Call wTypeKeys testContent
 835      Call wTypeKeys " "
 836      Call wTypeKeys "<Home>"
 837
 838      fFormatCharacter("TabHyperlinkZeichen")
 839      if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y  T:Y"
 840      URLName.SetText ""
 841      TabHyperlinkZeichen.OK
 842
 843     Call hCloseDocument
 844
 845     Call hNewDocument
 846     '/// M:Y  T:N
 847      testContent                 = "WWW.sun.com"
 848      hopeResultBeforeAutoformat  = ""
 849      hopeResultAfterAutoformat   = "http://WWW.sun.com/"
 850
 851      Call fAutocorrectOptions("URLRecognition")
 852
 853      Call wTypeKeys testContent
 854      Call wTypeKeys " "
 855      Call wTypeKeys "<Home>"
 856
 857      fFormatCharacter("TabHyperlinkZeichen")
 858      if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y  T:N  before autoformat!"
 859      URLName.SetText ""
 860      TabHyperlinkZeichen.OK
 861
 862      FormatAutoformatApply
 863
 864      fFormatCharacter("TabHyperlinkZeichen")
 865      if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should  appeare when M:Y  T:N  after autoformat!"
 866      URLName.SetText ""
 867      TabHyperlinkZeichen.OK
 868
 869     Call hCloseDocument
 870
 871     Call hNewDocument
 872     '/// M:N  T:Y
 873      testContent = "WWW.sun.com"
 874      hopeResult  = "http://WWW.sun.com/"
 875
 876      Call fAutocorrectOptions("URLRecognition")
 877
 878      Call wTypeKeys testContent
 879      Call wTypeKeys " "
 880      Call wTypeKeys "<Home>"
 881
 882      fFormatCharacter("TabHyperlinkZeichen")
 883      if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N  T:Y"
 884      URLName.SetText ""
 885      TabHyperlinkZeichen.OK
 886
 887     Call hCloseDocument
 888
 889     Call hNewDocument
 890     '/// M:N  T:N
 891      testContent                 = "WWW.sun.com"
 892      hopeResultBeforeAutoformat  = ""
 893      hopeResultAfterAutoformat   = ""
 894
 895      Call fAutocorrectOptions("URLRecognition")
 896
 897      Call wTypeKeys testContent
 898      Call wTypeKeys " "
 899      Call wTypeKeys "<Home>"
 900
 901      fFormatCharacter("TabHyperlinkZeichen")
 902      if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N  T:N  before autoformat!"
 903      URLName.SetText ""
 904      TabHyperlinkZeichen.OK
 905
 906      FormatAutoformatApply
 907
 908      fFormatCharacter("TabHyperlinkZeichen")
 909      if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N  T:N  after autoformat!"
 910      URLName.SetText ""
 911      TabHyperlinkZeichen.OK
 912
 913     '/// Recover to the default  M:Y  T:Y
 914      Call fAutocorrectOptions("URLRecognition")
 915
 916     Call hCloseDocument
 917
 918 endcase
 919
 920 '-------------------------------------------------------------------------
 921
 922 testcase tToolsAutocorrectOptions_6
 923
 924    Dim testContent as String
 925
 926   printLog "Replace 1st ... with 1^st..."
 927   '/// Replace 1st ... with 1^st...
 928    Call hNewDocument
 929
 930     testContent = "1st"
 931
 932     '/// M:Y  T:Y (default)
 933      Call wTypeKeys testContent
 934      Call wTypeKeys " "
 935      Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
 936
 937      fFormatCharacter("TabFontPosition")
 938      if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y  T:Y"
 939      Normal.Check
 940      TabFontPosition.OK
 941
 942      EditSelectAll
 943      Call wTypeKeys "<DELETE>"
 944
 945     '/// M:Y  T:N
 946      Call fAutocorrectOptions("Replace1st")
 947
 948      Call wTypeKeys testContent
 949      Call wTypeKeys " "
 950      Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
 951
 952      fFormatCharacter("TabFontPosition")
 953      if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked  when M:Y  T:N  before autoformat!"
 954      Normal.Check
 955      TabFontPosition.OK
 956
 957      FormatAutoformatApply
 958
 959      fFormatCharacter("TabFontPosition")
 960      if SuperScript.IsChecked <> TRUE  then Warnlog "The superscript should be checked when M:Y  T:N  after autoformat!"
 961      Normal.Check
 962      TabFontPosition.OK
 963
 964      EditSelectAll
 965      Call wTypeKeys "<DELETE>"
 966
 967     '/// M:N  T:Y
 968      Call fAutocorrectOptions("Replace1st")
 969
 970      Call wTypeKeys testContent
 971      Call wTypeKeys " "
 972      Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
 973
 974      fFormatCharacter("TabFontPosition")
 975      if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked  when M:N  T:Y"
 976      Normal.Check
 977      TabFontPosition.OK
 978
 979      EditSelectAll
 980      Call wTypeKeys "<DELETE>"
 981
 982     '/// M:N  T:N
 983      Call fAutocorrectOptions("Replace1st")
 984
 985      Call wTypeKeys testContent
 986      Call wTypeKeys " "
 987      Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
 988
 989      fFormatCharacter("TabFontPosition")
 990      if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked  when M:N  T:N  before autoformat!"
 991      Normal.Check
 992      TabFontPosition.OK
 993
 994      FormatAutoformatApply
 995
 996      fFormatCharacter("TabFontPosition")
 997      if SuperScript.IsChecked = TRUE  then Warnlog "The superscript should NOT be checked  when M:N  T:N  after autoformat!"
 998      Normal.Check
 999      TabFontPosition.OK
1000
1001     '/// Recover to the default  M:Y  T:Y
1002      Call fAutocorrectOptions("Replace1st")
1003
1004     Call hCloseDocument
1005
1006
1007 endcase
1008
1009 '-------------------------------------------------------------------------
1010
1011 testcase tToolsAutocorrectOptions_7
1012
1013    Dim testContent as String
1014    Dim hopeResult as String
1015    Dim hopeResultBeforeAutoformat as String
1016    Dim hopeResultAfterAutoformat as String
1017
1018   printLog "Replace 1/2 ... with ½ ... "
1019   '/// Replace 1/2 ... with ½ ...
1020    Call hNewDocument
1021
1022     '/// M:Y  T:Y (default)
1023      testContent = "1/2"
1024      hopeResult  = "½"
1025      Call wTypeKeys testContent
1026      Call wTypeKeys " "
1027      Call wTypeKeys "<BACKSPACE><Shift Home>"
1028      EditCopy
1029      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... M:Y  T:Y"
1030
1031      Call wTypeKeys "<DELETE>"
1032
1033     '/// M:Y  T:N
1034      testContent                 = "1/2"
1035      hopeResultBeforeAutoformat  = "1/2"
1036      hopeResultAfterAutoformat   = "½"
1037
1038      Call fAutocorrectOptions("Replace1/2")
1039      Call wTypeKeys testContent
1040      Call wTypeKeys " "
1041      Call wTypeKeys "<BACKSPACE><Shift Home>"
1042      EditCopy
1043      if GetClipboardText <> hopeResultBeforeAutoformat then
1044         Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
1045         goto GOING1
1046      end if
1047
1048      Call wTypeKeys "<ESCAPE>"
1049      FormatAutoformatApply
1050      Call wTypeKeys "<Shift End>"
1051      EditCopy
1052      if GetClipboardText <> hopeResultAfterAutoformat then
1053         Warnlog "The content should be changed after Autoformat!M:Y  T:N"
1054      end if
1055
1056 GOING1:
1057      Call wTypeKeys "<DELETE>"
1058
1059     '///  M:N  T:Y
1060      testContent  = "1/2"
1061      hopeResult   = "½"
1062
1063      Call fAutocorrectOptions("Replace1/2")
1064      Call wTypeKeys testContent
1065      Call wTypeKeys " "
1066      Call wTypeKeys "<BACKSPACE><Shift Home>"
1067      EditCopy
1068      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ...  when M:N  T:Y"
1069
1070      Call wTypeKeys "<DELETE>"
1071
1072     '///  M:N  T:N
1073      testContent                 = "1/2"
1074      hopeResultBeforeAutoformat  = "1/2"
1075      hopeResultAfterAutoformat   = "1/2"
1076
1077      Call fAutocorrectOptions("Replace1/2")
1078
1079      Call wTypeKeys testContent
1080      Call wTypeKeys " "
1081      Call wTypeKeys "<BACKSPACE><Shift Home>"
1082      EditCopy
1083      if GetClipboardText <> hopeResultBeforeAutoformat then
1084         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
1085         goto testend
1086      end if
1087
1088      Call wTypeKeys "<ESCAPE>"
1089      FormatAutoformatApply
1090      Call wTypeKeys "<Shift End>"
1091      EditCopy
1092      if GetClipboardText <> hopeResultAfterAutoformat then
1093         Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
1094      end if
1095
1096 testend:
1097
1098     '/// Recover to the default
1099      Call fAutocorrectOptions("Replace1/2")
1100
1101     Call hCloseDocument
1102
1103
1104 endcase
1105
1106 '-------------------------------------------------------------------------
1107
1108 testcase tToolsAutocorrectOptions_8
1109
1110    Dim testContent as String
1111    Dim hopeResult as String
1112    Dim hopeResultBeforeAutoformat
1113    Dim hopeResultAfterAutoformat as String
1114
1115   printLog "Replace dashes"
1116   '/// Replace dashes
1117    Call hNewDocument
1118
1119     '///  M:Y  T:Y (default)
1120      testContent = "Bla - Bla"
1121      hopeResult  = "Bla – Bla"
1122      Call wTypeKeys testContent
1123      Call wTypeKeys " "
1124      Call wTypeKeys "<BACKSPACE><Shift Home>"
1125      EditCopy
1126      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y  T:Y"
1127
1128      Call wTypeKeys "<DELETE>"
1129
1130     '///  M:Y  T:N
1131      testContent                 = "Bla - Bla"
1132      hopeResultBeforeAutoformat  = "Bla - Bla"
1133      hopeResultAfterAutoformat   = "Bla – Bla"
1134
1135      Call fAutocorrectOptions("ReplaceDashes")
1136      Call wTypeKeys testContent
1137      Call wTypeKeys " "
1138      Call wTypeKeys "<BACKSPACE><Shift Home>"
1139      EditCopy
1140      if GetClipboardText <> hopeResultBeforeAutoformat then
1141         Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
1142         goto GOING1
1143      end if
1144
1145      Call wTypeKeys "<ESCAPE>"
1146      FormatAutoformatApply
1147      Call wTypeKeys "<Shift End>"
1148      EditCopy
1149      if GetClipboardText <> hopeResultAfterAutoformat then
1150         Warnlog "The content should be changed after Autoformat!M:Y  T:N"
1151      end if
1152
1153 GOING1:
1154      Call wTypeKeys "<DELETE>"
1155
1156     '///  M:N  T:Y
1157      testContent  = "Bla - Bla"
1158      hopeResult   = "Bla – Bla"
1159
1160      Call fAutocorrectOptions("ReplaceDashes")
1161      Call wTypeKeys testContent
1162      Call wTypeKeys " "
1163      Call wTypeKeys "<BACKSPACE><Shift Home>"
1164      EditCopy
1165      if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes  when M:N  T:Y"
1166
1167      Call wTypeKeys "<DELETE>"
1168
1169     '///  M:N  T:N
1170      testContent                 = "Bla - Bla"
1171      hopeResultBeforeAutoformat  = "Bla - Bla"
1172      hopeResultAfterAutoformat   = "Bla - Bla"
1173
1174      Call fAutocorrectOptions("ReplaceDashes")
1175
1176      Call wTypeKeys testContent
1177      Call wTypeKeys " "
1178      Call wTypeKeys "<BACKSPACE><Shift Home>"
1179      EditCopy
1180      if GetClipboardText <> hopeResultBeforeAutoformat then
1181         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
1182         goto testend
1183      end if
1184
1185      Call wTypeKeys "<ESCAPE>"
1186      FormatAutoformatApply
1187      Call wTypeKeys "<Shift End>"
1188      EditCopy
1189      if GetClipboardText <> hopeResultAfterAutoformat then
1190         Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
1191      end if
1192
1193 testend:
1194
1195     '/// Recover to the default
1196      Call fAutocorrectOptions("ReplaceDashes")
1197
1198     Call hCloseDocument
1199
1200 endcase
1201
1202 '-------------------------------------------------------------------------
1203
1204 testcase tToolsAutocorrectOptions_11
1205
1206    Dim testContent as String
1207    Dim hopeResult as String
1208
1209   printLog "Ignore double spaces"
1210   '/// Ignore double spaces
1211    Call hNewDocument
1212
1213     '/// + T:N (default)
1214      testContent = "Two  Space"
1215      hopeResult  = "Two  Space"
1216      Call wTypeKeys testContent
1217      Call wTypeKeys "<Shift Home>"
1218      EditCopy
1219      if GetClipboardText <> hopeResult then Warnlog "Should NOT ignore spaces T:N"
1220
1221      Call wTypeKeys "<DELETE>"
1222
1223     '/// + T:Y
1224      testContent = "Two  Space"
1225      hopeResult  = "Two Space"
1226
1227      Call fAutocorrectOptions("IgnoreDoulbeSpaces")
1228      Call wTypeKeys testContent
1229      Call wTypeKeys "<Shift Home>"
1230      EditCopy
1231
1232      if GetClipboardText <> hopeResult then Warnlog "Should ignore spaces T:Y"
1233
1234      Call wTypeKeys "<ESCAPE>"
1235
1236     '/// Recover to the default
1237      Call fAutocorrectOptions("IgnoreDoulbeSpaces")
1238
1239     Call hCloseDocument
1240
1241 endcase
1242
1243 '-------------------------------------------------------------------------
1244
1245 testcase tToolsAutocorrectOptions_12
1246
1247   Dim firstLine as String
1248   Dim testContent as String
1249   Dim hopeResult as String
1250
1251   printLog "Apply numbering"
1252   '/// Apply numbering
1253
1254    Call hNewDocument
1255
1256     '/// + T:Y (default)
1257
1258      firstLine   = "1. FirstLine"
1259      testContent = "Test1"
1260      hopeResult  = "1.Test1"
1261
1262      Call wTypeKeys firstLine
1263      Call wTypeKeys "<Return>"
1264      Call wTypeKeys testContent
1265      Call wTypeKeys "<Return><Up><Home><Shift End>"
1266      EditCopy
1267      if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y "
1268
1269      EditSelectAll
1270      Call wTypeKeys "<DELETE>"
1271      Call wTypeKeys "<BACKSPACE>",3
1272
1273     '/// + T:N
1274      testContent = "Test1"
1275      hopeResult  = "Test1"
1276
1277      Call fAutocorrectOptions("ApplyNumbering")
1278      Call wTypeKeys firstLine
1279      Call wTypeKeys "<Return>"
1280      Call wTypeKeys testContent
1281      Call wTypeKeys "<Return><Up><Home><Shift End>"
1282      EditCopy
1283
1284      if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:Y"
1285
1286     '/// Recover to the default
1287      Call fAutocorrectOptions("ApplyNumbering")
1288
1289     Call hCloseDocument
1290
1291 endcase
1292
1293 '-------------------------------------------------------------------------
1294
1295 testcase tToolsAutocorrectOptions_13
1296
1297   Dim testList() as String
1298   Dim testContent as String
1299   Dim hopeResult as String
1300   Dim i as String
1301   Dim j as Integer
1302   Dim bottom as String
1303
1304   bottom = "0" + gSeperator + "10" + gMeasurementUnit
1305
1306   testList   =  Array( _
1307                             "---"             , _
1308                             "___"             , _
1309                             "==="             , _
1310                             "***"             , _
1311                             "~~~"             , _
1312                             "###"             , _
1313                       )
1314   j = UBound(testList)
1315
1316   '/// Apply border test , including
1317   '/// + '---' , '___", "===", "***" , "~~~", "###"
1318   printLog "Apply border"
1319
1320   Call hNewDocument
1321
1322   For i = 0 to j
1323
1324     '/// + T:Y (default)
1325      testContent = testlist(i)
1326
1327      Call wTypeKeys testContent
1328      Call wTypeKeys "<Return><Up><Home><Shift End>"
1329      try
1330         EditCopy
1331         Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
1332      catch
1333      endcatch
1334
1335      fFormatParagraph("TabUmrandung")
1336        try
1337           Unten.SetText  bottom
1338        catch
1339           Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
1340        endcatch
1341      TabUmrandung.Cancel
1342
1343      Call wTypeKeys "<Down>"
1344
1345     '/// + T:N
1346      testContent = testlist(i)
1347      hopeResult  = testlist(i)
1348
1349      Call fAutocorrectOptions("ApplyBorder")
1350      Call wTypeKeys testContent
1351      Call wTypeKeys "<Return><Up><Home><Shift End>"
1352      EditCopy
1353
1354      if GetClipboardText <> hopeResult then Warnlog "Something wrong  when T:N "+testlist(i)
1355
1356      fFormatParagraph("TabUmrandung")
1357      try
1358         Unten.SetText  bottom
1359         Warnlog "Apply border is NOT correct when T:N "+testlist(i)
1360      catch
1361      endcatch
1362      TabUmrandung.Cancel
1363
1364     '/// Recover to the default
1365      Call fAutocorrectOptions("ApplyBorder")
1366
1367    next i
1368
1369    Call hCloseDocument
1370
1371 endcase
1372
1373 '-------------------------------------------------------------------------
1374
1375 testcase tToolsAutocorrectOptions_14
1376
1377    Dim testContent as String
1378    Dim hopeResult as String
1379
1380   printLog "Create Table"
1381   '/// Create Table
1382    Call hNewDocument
1383
1384     '/// + T:Y (default)
1385      testContent = "+---+"
1386      Call wTypeKeys testContent
1387      Call wTypeKeys "<Return><Up><Home><Shift End>"
1388      try
1389         EditCopy
1390         Warnlog "Something wrong in create table T:Y"
1391      catch
1392      endcatch
1393
1394      try
1395         FormatRowDelete
1396         Sleep 1
1397      catch
1398         Warnlog "Can't delete table ,T:Y"
1399      endcatch
1400
1401     '/// + T:N
1402      testContent = "+---+"
1403      hopeResult  = "+---+"
1404
1405      Call fAutocorrectOptions("CreateTable")
1406      Call wTypeKeys testContent
1407      Call wTypeKeys "<Return><Up><Home><Shift End>"
1408      EditCopy
1409
1410      if GetClipboardText <> hopeResult then Warnlog "Something wrong  when T:N"
1411
1412      try
1413         FormatRowDelete
1414         Sleep 1
1415         Warnlog "Should NOT generate table when T:N"
1416      catch
1417      endcatch
1418
1419     '/// Recover to the default
1420      Call fAutocorrectOptions("CreateTable")
1421
1422     Call hCloseDocument
1423
1424 endcase
1425
1426 '-------------------------------------------------------------------------
1427
1428 testcase tToolsAutocorrectOptions_16
1429
1430    Dim testContent1 as String
1431    Dim testContent2 as String
1432    Dim hopeResultAfterAutoformat1 as String
1433    Dim hopeResultAfterAutoformat2 as String
1434
1435    testContent1                 = "ABCD1234"
1436    testContent2                 = "EFGH5678"
1437
1438    hopeResultAfterAutoformat1   = "ABCD1234"
1439    hopeResultAfterAutoformat2   = "EFGH5678"
1440
1441
1442   printLog "Remove Blank Paragraphs"
1443   '/// Remove Blank Paragraphs
1444
1445    Call hNewDocument
1446
1447     '///  M:N (default)
1448      wTypeKeys testContent1
1449      wTypeKeys "<Return>",2
1450      wTypeKeys testContent2
1451
1452      FormatAutoformatApply
1453
1454      wTypeKeys "<Up><Up><Home><Shift End>"
1455      wait 200
1456      EditCopy
1457      if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N"
1458
1459      wTypeKeys "<Down><Home><Shift End>"
1460      try
1461         EditCopy
1462         Warnlog "the second line's content is NOT correct when M:N"
1463      catch
1464      endcatch
1465
1466      wTypeKeys "<Down><Home><Shift End>"
1467      wait 200
1468      EditCopy
1469      if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N"
1470
1471     Call hCloseDocument
1472
1473     Call hNewDocument
1474
1475     '///  M:Y
1476      Call fAutocorrectOptions("RemoveBlankParagraphs")
1477
1478      wTypeKeys testContent1
1479      wTypeKeys "<Return>",2
1480      wTypeKeys testContent2
1481
1482      FormatAutoformatApply
1483
1484      wTypeKeys "<Up><Up><Home><Shift End>"
1485      wait 200
1486      EditCopy
1487      if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y"
1488
1489      wTypeKeys "<Down><Home><Shift End>"
1490      wait 200
1491      EditCopy
1492      if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y"
1493
1494     '/// Recover to the default
1495      Call fAutocorrectOptions("RemoveBlankParagraphs")
1496
1497     Call hCloseDocument
1498
1499 endcase
1500
1501 '-------------------------------------------------------------------------
1502
1503 testcase tToolsAutocorrectOptions_18
1504
1505    Dim testContent as String
1506    Dim hopeResultBeforeAutoformat as String
1507    Dim hopeResultAfterAutoformat as String
1508
1509   printLog "Replace bullets with •"
1510   '/// Replace bullets with •
1511
1512    Call hNewDocument
1513
1514     '///  M:Y (default)
1515     printLog "M:Y (default)"
1516      testContent                 = "+ Hello"
1517      hopeResultBeforeAutoformat  = "+ Hello"
1518      hopeResultAfterAutoformat   = "•   Hello"
1519
1520      wTypeKeys testContent
1521      wait 100
1522      wTypeKeys "<Shift Home>"
1523      Sleep 1
1524      GetClipboardText = ""
1525      EditCopy
1526      if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat "
1527
1528      FormatAutoformatApply
1529
1530      wTypeKeys "<Home><Shift End>"
1531      Sleep 1
1532      GetClipboardText = ""
1533      EditCopy
1534      Sleep 1
1535      if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should  change after autoformat "
1536
1537     Call hCloseDocument
1538
1539     Call hNewDocument
1540
1541     '///  M:N
1542     printLog "M:N"
1543      testContent                 = "+ Hello"
1544      hopeResultBeforeAutoformat  = "+ Hello"
1545      hopeResultAfterAutoformat   = "+ Hello"
1546
1547      Call fAutocorrectOptions("ReplaceBullets")
1548
1549      wTypeKeys testContent
1550      wait 100
1551      wTypeKeys "<Shift Home>"
1552      Sleep 1
1553      GetClipboardText = ""
1554      EditCopy
1555      if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
1556
1557      FormatAutoformatApply
1558      Sleep 1
1559      wTypeKeys "<Home><Shift End>"
1560      Sleep 1
1561      GetClipboardText = ""
1562      EditCopy
1563      if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should  NOT change after autoformat "
1564
1565     '/// Recover to the default
1566      Call fAutocorrectOptions("ReplaceBullets")
1567
1568     Call hCloseDocument
1569
1570 endcase
1571
1572 '-------------------------------------------------------------------------
1573
1574 testcase tToolsAutocorrectOptions_19
1575
1576    Dim testContent as String
1577    Dim hopeResultBeforeAutoformat as String
1578    Dim hopeResultAfterAutoformat as String
1579
1580   printLog "Replace standard quotes with custom quotes"
1581   '/// Replace standard quotes with custom quotes
1582
1583    Call hNewDocument
1584
1585     '///  M:Y (default)
1586      testContent                 = "'"
1587      hopeResultBeforeAutoformat  = "'"
1588      hopeResultAfterAutoformat   = "["
1589
1590      ToolsAutoCorrect
1591      Kontext
1592      Active.SetPage TabTypografisch
1593      Kontext "TabTypografisch"
1594      EinfacheErsetzen.UnCheck
1595      EinfachWortAnfang.Click
1596      Kontext "Sonderzeichen"
1597      Schriftliste.TypeKeys "<PageUp><Home>"
1598      Schriftliste.TypeKeys "<Right>", 59   ' is [
1599      Schriftliste.TypeKeys "<Space>"
1600      Sonderzeichen.OK
1601
1602      Kontext "TabTypografisch"
1603      TabTypografisch.OK
1604
1605      wTypeKeys (testContent + "Hello")
1606      wait 100
1607      wTypeKeys "<Home><Shift Right>"
1608      Sleep 1
1609      EditCopy
1610      if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
1611
1612      FormatAutoformatApply
1613
1614      wTypeKeys "<Home><Shift Right>"
1615      Sleep 1
1616      EditCopy
1617      if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should  change after autoformat "
1618
1619     Call hCloseDocument
1620
1621     Call hNewDocument
1622
1623     '///  M:N
1624      testContent                 = "'"
1625      hopeResultBeforeAutoformat  = "'"
1626      hopeResultAfterAutoformat   = "'"
1627
1628      Call fAutocorrectOptions("ReplaceQuotes")
1629
1630      wTypeKeys (testContent + "Hello")
1631      wait 100
1632      wTypeKeys "<Home><Shift Right>"
1633      Sleep 1
1634      EditCopy
1635      if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
1636
1637      FormatAutoformatApply
1638
1639      wTypeKeys "<Home><Shift Right>"
1640      Sleep 1
1641      EditCopy
1642      if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should  NOT change after autoformat "
1643
1644     '/// Recover to the default
1645      Call fAutocorrectOptions("ReplaceQuotes")
1646
1647      ToolsAutoCorrect
1648      Kontext
1649      Active.Setpage TabTypografisch
1650      Kontext "TabTypografisch"
1651      EinfacheErsetzen.Check
1652      EinfachStandard.Click
1653      wait 100
1654      TabTypografisch.OK
1655
1656     Call hCloseDocument
1657
1658 endcase
1659