testautomation/writer/optional/includes/redlining/w_redlining1.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_redlining1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:33:53 $
  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 of the Redlinig function - 1
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tRedlining_1      'Test Default settings
  41 ' #1 tRedlining_2      'Inserted text : from Typing
  42 ' #1 tRedlining_3      'Inserted text : from Clipboard
  43 ' #1 tRedlining_4      'Inserted text : from another file
  44 ' #1 tRedlining_5      'Inserted text : from Autotext
  45 ' #1 tRedlining_6      'Deleteed text
  46 ' #1 tRedlining_7      'sorted text
  47 ' #1 tRedlining_8      'Searched and replaced text
  48 ' #1 tRedlining_9      'text attributs
  49 ' #1 tRedlining_10     'Inserted Section
  50 ' #1 tRedlining_11     'Inserted Table
  51 ' #1 tRedlining_12     'Inserted field (Date)
  52 ' #1 tRedlining_13     'Inserted footnotes
  53 ' #1 tRedlining_14     'Inserted headers
  54 ' #1 tRedlining_15     'Inserted footers
  55 ' #1 tRedlining_16     'moved paragraphs/chapters
  56 '*
  57 '\***********************************************************************
  58
  59 testcase tRedlining_1
  60
  61   Dim iInsertionAttr as Integer
  62   Dim iInsertionColor as Integer
  63   Dim iDeletionAttr as Integer
  64   Dim iDeletionColor as Integer
  65   Dim iChangedAttr as Integer
  66   Dim iChangedColor as Integer
  67   Dim iLineChangedMark as Integer
  68   Dim iLineChangedColor as Integer
  69
  70   iInsertionAttr   = 4  :  iInsertionColor   = 2
  71   iDeletionAttr    = 4  :  iDeletionColor    = 2
  72   iChangedAttr     = 2  :  iChangedColor     = 2
  73   iLineChangedMark = 2  :  iLineChangedColor = 1
  74
  75   Call hNewDocument
  76
  77   PrintLog "- Test Default settings"
  78   '/// Test Default settings
  79
  80   '/// The default setting for Redlining is Off
  81    Call wTypeKeys "Redlining test"
  82    Call wTypeKeys "<Backspace>",2
  83    Sleep 1
  84    Call wTypeKeys "<End>"
  85    Call wTypeKeys "<Shift Left>" , 4
  86    EditCopy
  87    if GetClipboardText <> "g te" then Warnlog "The default setting for Redlining is NO Off"
  88
  89   '/// Tools / Options / Textdocument / Changes
  90    ToolsOptions
  91    Call hToolsOptions("WRITER","CHANGES")
  92
  93   '/// Check default settings
  94
  95   '/// 1) Insertion Attributes , Insertion color
  96    if EinfuegenAttribute.GetSelIndex <> iInsertionAttr  then
  97       warnlog "The default settings for Insertion Attribute isn't correct, should be " +  EinfuegenAttribute.GetItemText(iInsertionAttr) + " but get " +EinfuegenAttribute.GetItemText(EinfuegenAttribute.GetSelIndex)
  98    end if
  99    if EinfuegenFarbe.GetSelIndex <> iInsertionColor  then
 100       warnlog "The default settings for Insertion color isn't correct, should be " +  EinfuegenFarbe.GetItemText(iInsertionColor) + " but get " +EinfuegenFarbe.GetItemText(EinfuegenFarbe.GetSelIndex)
 101    end if
 102
 103   '/// 2) Deletion Attribute , Deletion color
 104    if LoeschenAttribute.GetSelIndex <> iDeletionAttr  then
 105       warnlog "The default settings for Deletion Attribute isn't correct, should be " +  LoeschenAttribute.GetItemText(iDeletionAttr) + " but get " +LoeschenAttribute.GetItemText(LoeschenAttribute.GetSelIndex)
 106    end if
 107    if LoeschenFarbe.GetSelIndex <> iDeletionColor  then
 108       warnlog "The default settings for Deletion color isn't correct, should be " +  LoeschenFarbe.GetItemText(iDeletionColor) + " but get " +LoeschenFarbe.GetItemText(LoeschenFarbe.GetSelIndex)
 109    end if
 110
 111   '/// 3) Changed Attribute  , Changed  color
 112    if AendernAttribute.GetSelIndex <> iChangedAttr  then
 113       warnlog "The default settings for Changed Attribute isn't correct, should be " +  AendernAttribute.GetItemText(iChangedAttr) + " but get " +AendernAttribute.GetItemText(AendernAttribute.GetSelIndex)
 114    end if
 115    if AendernFarbe.GetSelIndex <> iChangedColor  then
 116       warnlog "The default settings for Changed color isn't correct, should be " +  AendernFarbe.GetItemText(iChangedColor) + " but get " +AendernFarbe.GetItemText(AendernFarbe.GetSelIndex)
 117    end if
 118
 119   '/// 4) Lines changed Mark  , Lines changed color
 120    if ZeilenMarkierung.GetSelIndex <> iLineChangedMark  then
 121       warnlog "The default settings for Lines Changed Mark isn't correct, should be " +  ZeilenMarkierung.GetItemText(iLineChangedMark) + " but get " +ZeilenMarkierung.GetItemText(ZeilenMarkierung.GetSelIndex)
 122    end if
 123    if ZeilenFarbe.GetSelIndex <> iLineChangedColor  then
 124       warnlog "The default settings for Lines Changed color isn't correct, should be " +  ZeilenFarbe.GetItemText(iLineChangedColor) + " but get " +ZeilenFarbe.GetItemText(ZeilenFarbe.GetSelIndex)
 125    end if
 126
 127   '/// Close the tools/option dialogue
 128     Kontext "ExtrasOptionenDlg"
 129    ExtrasOptionenDlg.Cancel
 130
 131    Call hCloseDocument
 132
 133 endcase
 134
 135 '-------------------------------------------------------------------------------------------
 136
 137 testcase tRedlining_2
 138
 139   '/// Test Inserted text : from Typing
 140   printlog "Inserted text : from Typing"
 141
 142    '/// New document
 143    Call hNewDocument
 144
 145    '/// Insert any sentence into document
 146    Call wTypeKeys "Redlining test => OK_1<Return>"
 147
 148    UseBindings
 149    '/// Edit / Changes / Record
 150    EditChangesRecord
 151
 152    '/// Insert some new sentence
 153    Call wTypeKeys "Redlining test => OK_2<Return>"
 154
 155    '/// Edit / Changes / Accept or Reject
 156    EditChangesAcceptOrReject
 157    Kontext "Redlining"
 158    '/// + Select tabpage 'List' ///
 159    TabControl.SetPage TabListe
 160    '/// + Select 'Accept All'///
 161    AlleAkzeptieren.Click
 162    Sleep 2
 163    '/// + Close Redlining dialog
 164    Redlining.Close
 165
 166    '/// Check if the changes have been accepted
 167    Call wTypeKeys "<Up>", 2
 168    Call wTypeKeys "<Down>"
 169    Call wTypeKeys "<End>"
 170    Call wTypeKeys "<Shift Left>"
 171    EditCopy
 172    Sleep 1
 173    if GetClipboardText <> "2" then Warnlog "The 2nd line is incorrect!"
 174
 175    '/// Close the document
 176    Call hCloseDocument
 177
 178 endcase
 179
 180 '--------------------------------------------------------------------------
 181
 182 testcase tRedlining_3
 183
 184   '/// Test Inserted text : from Clipboard
 185   printlog "Inserted text : from Clipboard"
 186
 187    '/// New document
 188    Call hNewDocument
 189
 190    '/// Insert any sentence into document , and copy it to clipboard
 191    Call wTypeKeys "Redlining test => OK_2<Return>"
 192    EditSelectAll
 193    EditCopy
 194    Sleep 1
 195
 196    '/// Insert a new sentence into document
 197    Call wTypeKeys "Redlining test => OK_1<Return>"
 198
 199    UseBindings
 200    '/// Edit / Changes / Record
 201    EditChangesRecord
 202
 203    '/// copy the clipboard into the document
 204    EditPaste
 205    Sleep 1
 206
 207    '/// Edit / Changes / Accept or Reject
 208    EditChangesAcceptOrReject
 209    Kontext "Redlining"
 210    '/// + Select tabpage 'List' ///
 211    TabControl.SetPage TabListe
 212    '/// + Select 'Accept All'///
 213    AlleAkzeptieren.Click
 214    Sleep 2
 215    '/// + Close Redlining dialog
 216    Redlining.Close
 217
 218    '/// Check if the changes have been accepted
 219    Call wTypeKeys "<Up>", 2
 220    Call wTypeKeys "<Down>"
 221    Call wTypeKeys "<End>"
 222    Call wTypeKeys "<Shift Left>"
 223    EditCopy
 224    Sleep 1
 225    if GetClipboardText <> "2" then Warnlog "The 2nd Line is incorrect!"
 226
 227    '/// Close the document
 228    Call hCloseDocument
 229
 230 endcase
 231
 232 '----------------------------------------------------------------------------
 233
 234 testcase tRedlining_4
 235
 236   '/// Test Inserted text : from another file
 237   printlog "Inserted text : from another file"
 238
 239    '/// New document
 240    Call hNewDocument
 241
 242    '/// Insert a sentence into document
 243    Call wTypeKeys "Redlining test => OK_1<Return>"
 244
 245    UseBindings
 246    '/// Edit / Changes / Record
 247    EditChangesRecord
 248
 249    '/// insert a file - Insert/File
 250    InsertFileWriter
 251    Kontext "OeffnenDlg"
 252    Dateiname.Settext Convertpath (gTesttoolpath + "writer\optional\input\redlining\tRedlining_4.sxw")
 253    Oeffnen.Click
 254    Sleep 2
 255
 256    '/// Edit / Changes / Accept or Reject
 257    EditChangesAcceptOrReject
 258    Kontext "Redlining"
 259    '/// + Select tabpage 'List' ///
 260    TabControl.SetPage TabListe
 261    '/// + Select 'Accept All'///
 262    AlleAkzeptieren.Click
 263    Sleep 2
 264    '/// + Close Redlining dialog
 265    Redlining.Close
 266
 267    '/// Check if the changes have been accepted
 268    Call wTypeKeys "<Up>", 2
 269    Call wTypeKeys "<Down>"
 270    Call wTypeKeys "<End>"
 271    Call wTypeKeys "<Shift Left>"
 272    EditCopy
 273    Sleep 1
 274    if GetClipboardText <> "2" then Warnlog "i35222 - The 2nd Line is incorrect!"
 275
 276    '/// Close the document
 277    Call hCloseDocument
 278
 279 endcase
 280
 281 '----------------------------------------------------------------------------
 282
 283 testcase tRedlining_5
 284
 285     Dim j as Integer
 286     Dim iAll as Integer
 287
 288     '/// Test Inserted text : from Autotext
 289     printlog "Inserted text : from Autotext"
 290
 291     '/// New document
 292     Call hNewDocument
 293
 294     'insert a category
 295     Call wCreateAutotextCategory("1-MyTest")
 296
 297     Kontext "Autotext"
 298     Autotext.Close
 299
 300     'insert a autotext
 301     '-----------------------------------------------------
 302     Call wTypeKeys "Redlining test => OK_2<Return>"
 303     Sleep 1
 304     EditSelectAll
 305     Sleep 1
 306
 307     EditAutotext
 308     Sleep 2
 309     Kontext "Autotext"
 310     Sleep 1
 311     Liste.Select 1   '1-MyTest'
 312     Sleep 1
 313
 314     'Insert a name for the Autotext and a Shortcut
 315     NameText.Settext "AutotextForRedlininggTest"
 316     Sleep 1
 317     Kuerzel.Settext "AFT"
 318
 319     'Select 'New' in Menubutton 'Autotext'
 320     Sleep 2
 321     Menue.Click
 322     Sleep 2
 323     Call hMenuSelectNr ( 1 )
 324     Sleep 2
 325
 326     Autotext.Close
 327     '-----------------------------------------------------
 328
 329     '/// Insert a sentence into document
 330     Kontext "DocumentWriter"
 331     EditSelectAll
 332     Call wTypeKeys "Redlining test => OK_1<Return>"
 333
 334     UseBindings
 335     '/// Edit / Changes / Record
 336     EditChangesRecord
 337
 338     '/// Insert autotext
 339     Call wTypeKeys "AFT"
 340     Call wTypeKeys "<F3>"
 341     Sleep 1
 342
 343     '/// Edit / Changes / Accept or Reject
 344     EditChangesAcceptOrReject
 345     Kontext "Redlining"
 346     '/// Select tabpage 'List' ///
 347     TabControl.SetPage TabListe
 348     '/// Select 'Accept All'///
 349     AlleAkzeptieren.Click
 350     Sleep 2
 351     '/// Close Redlining dialog
 352     Redlining.Close
 353
 354     '/// Check if the changes have been accepted
 355     Call wTypeKeys "<Up>", 2
 356     Call wTypeKeys "<Down>"
 357     Call wTypeKeys "<End>"
 358     Call wTypeKeys "<Shift Left>"
 359     EditCopy
 360     Sleep 1
 361     if GetClipboardText <> "2" then Warnlog "The 2nd Line is incorrect!"
 362
 363     ' Delete the new category
 364     ' ------------------------------------------------
 365     EditAutotext
 366     Sleep 2
 367     Kontext "Autotext"
 368     Sleep 1
 369     Bereiche.Click
 370     Sleep 5
 371     Kontext "BereicheBearbeitenAutoText"
 372     Liste.Select 1
 373     Sleep 2
 374     Loeschen.Click
 375     Sleep 5
 376     BereicheBearbeitenAutoText.OK
 377     Sleep 2
 378     Kontext "Active"
 379     if Active.Exists then Active.Yes
 380     Kontext "Autotext"
 381     Autotext.Close
 382     '-------------------------------------------------
 383
 384     '/// Close the document
 385     Call hCloseDocument
 386
 387 endcase
 388
 389 '----------------------------------------------------------------------------
 390
 391 testcase tRedlining_6
 392
 393   '/// Test Deleted text
 394   printlog "Deleted text"
 395
 396    '/// New document
 397    Call hNewDocument
 398
 399    '/// Insert a sentence into document
 400    Call wTypeKeys "Redlining test => OK_1"
 401
 402    UseBindings
 403    '/// Edit / Changes / Record
 404    EditChangesRecord
 405
 406    '/// Delete the last 2 characters
 407    Call wTypeKeys "<Backspace>",2
 408    Sleep 1
 409
 410    '/// Check if the changes is OK => The characters are deleted ,
 411    '/// + but their location exists
 412    Call wTypeKeys "<End>"
 413    Sleep 1
 414    Call wTypeKeys "<Shift Left>" , 2
 415    Sleep 1
 416
 417    Editcopy
 418    if Len(GetClipboardText)>0 then Warnlog "Something is wrong in deleting text before accepting the changes!"
 419
 420    '/// Edit / Changes / Accept or Reject
 421    EditChangesAcceptOrReject
 422    Sleep 2
 423    Kontext "Redlining"
 424    Sleep 1
 425    '/// + Select tabpage 'List' ///
 426    TabControl.SetPage TabListe
 427    Sleep 2
 428    '/// + Select 'Accept All'///
 429    AlleAkzeptieren.Click
 430    Sleep 2
 431    '/// + Close Redlining dialog
 432    Redlining.Close
 433
 434    '/// Check if the changes have been accepted => The
 435    '/// + characters are deleted , and their location doesn't exist
 436    Call wTypeKeys "<End>"
 437    Sleep 1
 438    Call wTypeKeys "<Shift Left>" , 2
 439    Sleep 1
 440
 441    EditCopy
 442    Sleep 1
 443    if GetClipboardText <> "OK" then Warnlog "Something is wrong in deleting text after accepting the changes! Getting " + GetClipboardText
 444
 445    '/// Close the document
 446    Call hCloseDocument
 447
 448 endcase
 449
 450 '----------------------------------------------------------------------------
 451
 452 testcase tRedlining_7
 453
 454     '/// Test sorted text
 455     printlog "sorted text"
 456
 457     '/// New document
 458     Call hNewDocument
 459
 460     '/// Insert some test text
 461     Call wTypeKeys "XYZ<Return>"
 462     Call wTypeKeys "ABC"
 463
 464     UseBindings
 465     '/// Edit / Changes / Record
 466     EditChangesRecord
 467
 468     '/// Select Tools / Sort , Language (English USA) , Alphanumeric
 469     EditSelectAll
 470     ToolsSort
 471     Kontext "Sortieren"
 472     Schluesseltyp1.Select 1
 473     Aufsteigend1.Check
 474     Sortieren.OK
 475
 476     '/// Check if the changes is OK => The characters are changed ,
 477     '/// + but their location exists
 478     Call wTypeKeys "<Down>" , 4
 479     Call wTypeKeys "<End>"
 480     Call wTypeKeys "<Shift Home>"
 481     EditCopy
 482     if Len(GetClipboardText)>0 then Warnlog "Something is wrong in sorting text before accepting the changes!"
 483
 484     Call wTypeKeys "<Up>" , 4
 485     Call wTypeKeys "<End>"
 486     Call wTypeKeys "<Shift Home>"
 487     EditCopy
 488     if GetClipboardText <> "ABC" then Warnlog "Should get ABC in the first line, but get " +GetClipboardText + "  before accepting the changes!"
 489
 490     '/// Edit / Changes / Accept or Reject
 491     EditChangesAcceptOrReject
 492     Sleep 2
 493     Kontext "Redlining"
 494     '/// + Select tabpage 'List' ///
 495     TabControl.SetPage TabListe
 496     Sleep 2
 497     '/// + Select 'Accept All'///
 498     AlleAkzeptieren.Click
 499     Sleep 2
 500     '/// + Close Redlining dialog
 501     Redlining.Close
 502
 503     '/// Check if the changes have been accepted => The characters
 504     '/// + are changed , and their location doesn't exist
 505     Call wTypeKeys "<Down>" , 4
 506     Call wTypeKeys "<End><Backspace>"
 507     Call wTypeKeys "<Shift Home>"
 508     EditCopy
 509     if Len(GetClipboardText) <> 3 then Warnlog "Something is wrong in sorting text after accepting the changes!"
 510
 511     Call wTypeKeys "<Up>" , 4
 512     Call wTypeKeys "<End>"
 513     Call wTypeKeys "<Shift Home>"
 514     EditCopy
 515     if GetClipboardText <> "ABC" then Warnlog "Should get ABC in the first line, but get " +GetClipboardText + "  after accepting the changes!"
 516
 517     '/// Close the document
 518     Call hCloseDocument
 519
 520 endcase
 521
 522 '----------------------------------------------------------------------------
 523
 524 testcase tRedlining_8
 525
 526   '/// Test searched and replaced text
 527   printlog "searched and replaced text"
 528
 529    '/// New document
 530    Call hNewDocument
 531
 532    '/// Insert a sentence into document
 533    Call wTypeKeys "Redlining test => OK_1"
 534
 535    UseBindings
 536    '/// Edit / Changes / Record
 537    EditChangesRecord
 538
 539    '/// Select Edit / Find & Replace
 540    EditSearchAndReplace
 541    Kontext "FindAndReplace"
 542
 543    '/// + Set OK_1 in search for editbox
 544    SearchFor.SetText "OK_1"
 545    Sleep 2
 546
 547    '/// + set OK_2 in replace with editbox
 548    ReplaceWith.SetText "OK_2"
 549    Sleep 2
 550
 551    '/// + Replace all and close the dialogue
 552    ReplaceAll.Click
 553    sleep 2
 554    Kontext "Active"
 555    if Active.Exists then
 556       if Active.GetRT = 304 then
 557          Active.OK
 558          Sleep 1
 559       else
 560          Warnlog "Messagebox, how often replaced, not up !"
 561       end if
 562    end if
 563
 564    Kontext "FindAndReplace"
 565    FindAndReplace.close
 566
 567    '/// Check if the changes is OK => The characters are changed ,
 568    '/// + but their location exists
 569    Call wTypeKeys "<End>"
 570    wait 500
 571    Call wTypeKeys "<Shift Left>"
 572    wait 500
 573    Editcopy
 574    wait 500
 575    if GetClipboardText <> "2" then Warnlog "Something is wrong in changing text before accepting the changes!"
 576
 577    Call wTypeKeys "<Left>" , 3
 578    Sleep 1
 579    Call wTypeKeys "<Shift Left>" , 4
 580    Sleep 1
 581    Editcopy
 582    wait 500
 583    if Len(GetClipboardText) > 0 then Warnlog "Something is wrong in changing text before accepting the changes!"
 584
 585    '/// Edit / Changes / Accept or Reject
 586    EditChangesAcceptOrReject
 587    Sleep 2
 588    Kontext "Redlining"
 589    Sleep 2
 590    '/// + Select tabpage 'List' ///
 591    TabControl.SetPage TabListe
 592    Sleep 2
 593    '/// + Select 'Accept All'///
 594    AlleAkzeptieren.Click
 595    Sleep 2
 596    '/// + Close Redlining dialog
 597    Redlining.Close
 598
 599    '/// Check if the changes have been accepted => The characters
 600    '/// + are changed , and their location doesn't exist
 601    Call wTypeKeys "<End>"
 602    Call wTypeKeys "<Shift Left>"
 603
 604    EditCopy
 605    Sleep 1
 606    if GetClipboardText <> "2" then Warnlog "Something is wrong in changing text after accepting the changes!"
 607
 608    Call wTypeKeys "<Left>" , 3
 609    Sleep 1
 610    Call wTypeKeys "<Shift Left>" , 4
 611    Sleep 1
 612    Editcopy
 613    if Len(GetClipboardText) <> 4 then Warnlog "Something is wrong in changing text after accepting the changes!"
 614
 615    '/// Close the document
 616    Call hCloseDocument
 617
 618 endcase
 619
 620 '----------------------------------------------------------------------------
 621
 622 testcase tRedlining_9
 623
 624         Dim iComparison1$,iComparison2$,iComparison3$,iComparison4$
 625
 626         '/// Test text attributs
 627         printlog "Test text attributs"
 628
 629         '/// New document
 630         Call hNewDocument
 631
 632         '/// Insert a sentence into document
 633         Call wTypeKeys "Redlining test => OK_1<Home>"
 634         Call wTypeKeys "<Shift Right>" , 9
 635         Sleep 1
 636
 637         UseBindings
 638         '/// Edit / Changes / Record
 639         EditChangesRecord
 640
 641         '/// Select Format / Character , changes some font Attributes
 642         FormatCharacter
 643         Kontext
 644         Active.SetPage TabFont
 645         kontext "TabFont"
 646
 647         if gAsianSup = True then
 648                 FontWest.Select  5
 649                 iComparison1$ = FontWest.GetSelText
 650                 try
 651             StyleWest.Select 3
 652         catch
 653             StyleWest.Select StyleWest.GetItemCount
 654         endcatch
 655                 iComparison2$ = StyleWest.GetSelText
 656                 SizeWest.Select  5
 657                 iComparison3$ = SizeWest.GetSelText
 658         else
 659                 Font.Select  5
 660                 iComparison1$ = Font.GetSelText
 661                 try
 662             Style.Select 3
 663         catch
 664             Style.Select Style.GetItemCount
 665         endcatch
 666                 iComparison2$ = Style.GetSelText
 667                 Size.Select  5
 668                 iComparison3$ = Size.GetSelText
 669         end if
 670         wait 100
 671         Kontext
 672         Active.Setpage TabHyperlinkZeichen
 673         Kontext "TabHyperlinkZeichen"
 674         UrlName.Settext "http://www.sun.com/"
 675         Sleep 1
 676         TargetFrame.Select 2
 677         Sleep 1
 678         iComparison4$ = TargetFrame.GetSelText
 679         wait 500
 680         TabHyperlinkZeichen.Ok
 681
 682         Sleep 1
 683         Call wTypeKeys "<Left>"  , 2
 684         Sleep 1
 685
 686         '/// Check if the Attribute changes id OK before accepting the changes
 687         printlog "Check if the Attribute changes id OK before accepting the changes"
 688         FormatCharacter
 689         Kontext
 690         Active.SetPage TabFont
 691         Kontext "TabFont"
 692         if gAsianSup = True then
 693                 if iComparison1$ <> FontWest.GetSelText  then Warnlog "Wrong Font in Autotext!"
 694                 if iComparison2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 695                 if iComparison3$ <> SizeWest.GetSelText  then QAErrorlog "#108881#Wrong Fontsize in Autotext!"
 696         else
 697                 if iComparison1$ <> Font.GetSelText  then Warnlog "Wrong Font in Autotext!"
 698                 if iComparison2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 699                 if iComparison3$ <> Size.GetSelText  then Warnlog "Wrong Fontsize in Autotext!"
 700         end if
 701         wait 100
 702         Kontext
 703         Active.Setpage TabHyperlinkZeichen
 704         Kontext "TabHyperlinkZeichen"
 705         if UrlName.Gettext <> "http://www.sun.com/"  then Warnlog "Wrong hyperlink has been added to text!"
 706         if iComparison4$   <> TargetFrame.GetSelText then Warnlog "Wrong targetFrame has been added to text!"
 707         TabHyperlinkZeichen.Cancel
 708
 709         '/// Edit / Changes / Accept or Reject
 710         EditChangesAcceptOrReject
 711         Kontext "Redlining"
 712         '/// + Select tabpage 'List' ///
 713         TabControl.SetPage TabListe
 714         '/// + Select 'Accept All'///
 715         AlleAkzeptieren.Click
 716         Sleep 2
 717         '/// + Close Redlining dialog
 718         Redlining.Close
 719
 720         '/// Check if the Attribute changes id OK after accepting the changes
 721         printlog "Check if the Attribute changes id OK after accepting the changes"
 722         FormatCharacter
 723         Kontext
 724         Active.SetPage TabFont
 725         Kontext "TabFont"
 726         if gAsianSup = True then
 727                 if iComparison1$ <> FontWest.GetSelText  then Warnlog "Wrong Font in Autotext!"
 728                 if iComparison2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 729                 if iComparison3$ <> SizeWest.GetSelText  then QAErrorlog "#108881#Wrong Fontsize in Autotext!"
 730         else
 731                 if iComparison1$ <> Font.GetSelText  then Warnlog "Wrong Font in Autotext!"
 732                 if iComparison2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 733                 if iComparison3$ <> Size.GetSelText  then Warnlog "Wrong Fontsize in Autotext!"
 734         end if
 735         wait 100
 736         Kontext
 737         Active.Setpage TabHyperlinkZeichen
 738         Kontext "TabHyperlinkZeichen"
 739         if UrlName.Gettext <> "http://www.sun.com/"   then Warnlog "Wrong hyperlink has been added to text!"
 740         if iComparison4$   <> TargetFrame.GetSelText  then Warnlog "Wrong targetFrame has been added to text!"
 741         TabHyperlinkZeichen.Cancel
 742
 743         '/// Close the document
 744         Call hCloseDocument
 745 endcase
 746
 747 '----------------------------------------------------------------------------
 748
 749 testcase tRedlining_10
 750
 751   Dim sSectionName as String
 752
 753   sSectionName = "testForRedlining"
 754
 755   '/// Test inserted sections
 756   printlog "inserted sections"
 757
 758    '/// New document
 759    Call hNewDocument
 760
 761    '/// Insert a sentence into document
 762    Call wTypeKeys "Redlining test => OK_1<Shift Home>"
 763
 764    UseBindings
 765    '/// Edit / Changes / Record
 766    EditChangesRecord
 767
 768    '/// Insert a section in the testing sentence , insert / section
 769    InsertSection
 770    wait 500
 771    Kontext
 772    Active.Setpage TabBereiche
 773    Kontext "TabBereiche"
 774    Bereichsliste.Settext sSectionName
 775    TabBereiche.OK
 776    wait 500
 777
 778    '/// Check if the section is inserted correctly before accepting the changes , format / sections
 779    FormatSections
 780    Kontext "BereicheBearbeiten"
 781    if BereichsName.GetText <> sSectionName then warnlog "the section is NOt inserted correctly before accepting the changes "
 782    BereicheBearbeiten.Cancel
 783
 784    '/// Edit / Changes / Accept or Reject
 785    EditChangesAcceptOrReject
 786    Kontext "Redlining"
 787    '/// + Select tabpage 'List' ///
 788    TabControl.SetPage TabListe
 789    '/// + Select 'Accept All'///
 790    AlleAkzeptieren.Click
 791    Sleep 2
 792    '/// + Close Redlining dialog
 793    Redlining.Close
 794
 795    '/// Check if the section is inserted correctly after accepting the changes , format / sections
 796    FormatSections
 797    Kontext "BereicheBearbeiten"
 798    if BereichsName.GetText <> sSectionName then warnlog "the section is NOt inserted correctly after accepting the changes "
 799    BereicheBearbeiten.Cancel
 800
 801    '/// Close the document
 802    Call hCloseDocument
 803 endcase
 804
 805 '----------------------------------------------------------------------------
 806
 807 testcase tRedlining_11
 808
 809   '/// Test inserted tables
 810   printlog "inserted tables"
 811
 812    '/// New document
 813    Call hNewDocument
 814
 815    UseBindings
 816    '/// Edit / Changes / Record
 817    EditChangesRecord
 818
 819    '/// Insert a table
 820    Call hTabelleEinfuegen
 821
 822    '/// Check if the table is inserted correctly before accepting the changes
 823    Call wOpenContextMenu
 824    hMenuSelectNr(10)
 825
 826    try
 827       Kontext
 828       Active.Setpage TabTabelle
 829       Kontext "TabTabelle"
 830       if Right(TabellenName.GetText , 1) <> "1"  then warnlog "the table is NOt inserted correctly before accepting the changes "
 831       TabTabelle.Cancel
 832    catch
 833       Warnlog "Something wrong in inserting table  before accepting the changes!"
 834    endcatch
 835
 836    '/// Edit / Changes / Accept or Reject
 837    EditChangesAcceptOrReject
 838    Kontext "Redlining"
 839    '/// + Select tabpage 'List' ///
 840    TabControl.SetPage TabListe
 841    '/// + Select 'Accept All'///
 842    AlleAkzeptieren.Click
 843    Sleep 2
 844    '/// + Close Redlining dialog
 845    Redlining.Close
 846
 847    '/// Check if the table is inserted correctly after accepting the changes
 848    Call wOpenContextMenu
 849    hMenuSelectNr(10)
 850
 851    try
 852       Kontext
 853       Active.Setpage TabTabelle
 854       Kontext "TabTabelle"
 855       if Right(TabellenName.GetText , 1) <> "1"  then warnlog "the table is NOt inserted correctly after accepting the changes "
 856       TabTabelle.Cancel
 857    catch
 858       Warnlog "Something wrong in inserting table  after accepting the changes!"
 859    endcatch
 860
 861    '/// Close the document
 862    Call hCloseDocument
 863 endcase
 864
 865 '----------------------------------------------------------------------------
 866
 867 testcase tRedlining_12
 868
 869   '/// Test inserted field (date)
 870   printlog "inserted field (date)"
 871
 872    '/// New document
 873    Call hNewDocument
 874
 875    UseBindings
 876    '/// Edit / Changes / Record
 877    EditChangesRecord
 878
 879    '/// Insert a date , insert / field / date
 880    InsertFieldsDate
 881
 882    Call wTypeKeys "<Home>"
 883    Sleep 1
 884
 885    '/// Check if the date is inserted correctly before accepting the changes
 886    try
 887       EditFields
 888       Kontext "FeldbefehlBearbeitenDokument"
 889       FeldbefehlBearbeitenDokument.Cancel
 890    catch
 891       Warnlog "Something wrong in inserting date  before accepting the changes!"
 892    endcatch
 893
 894    '/// Edit / Changes / Accept or Reject
 895    EditChangesAcceptOrReject
 896    Kontext "Redlining"
 897    '/// + Select tabpage 'List' ///
 898    TabControl.SetPage TabListe
 899    '/// + Select 'Accept All'///
 900    AlleAkzeptieren.Click
 901    Sleep 2
 902    '/// + Close Redlining dialog
 903    Redlining.Close
 904    Sleep 1
 905
 906    Call wTypeKeys "<Home>"
 907
 908    '/// Check if the date is inserted correctly after accepting the changes
 909    try
 910       EditFields
 911       Kontext "FeldbefehlBearbeitenDokument"
 912       FeldbefehlBearbeitenDokument.Cancel
 913    catch
 914       Warnlog "Something wrong in inserting date after accepting the changes!"
 915    endcatch
 916
 917    '/// Close the document
 918    Call hCloseDocument
 919 endcase
 920
 921 '----------------------------------------------------------------------------
 922
 923 testcase tRedlining_13
 924
 925   '/// Test inserted footnotes
 926   printlog "inserted footnotes"
 927
 928    '/// New document
 929    Call hNewDocument
 930
 931    UseBindings
 932    '/// Edit / Changes / Record
 933    EditChangesRecord
 934
 935    '/// Insert a footnote , insert / footnotes
 936    InsertFootnote
 937    Kontext "FussnoteEinfuegen"
 938    Sleep 1
 939    FussnoteEinfuegen.OK
 940
 941    Call wTypeKeys "<PageUp><Home>"
 942
 943    '/// Check if the footnote is inserted correctly before
 944    '/// + accepting the changes
 945    try
 946       EditFootnote
 947       Kontext "FussnoteBearbeiten"
 948       FussnoteBearbeiten.Cancel
 949    catch
 950       Warnlog "Something wrong in inserting footnote before accepting the changes!"
 951    endcatch
 952
 953    '/// Edit / Changes / Accept or Reject
 954    EditChangesAcceptOrReject
 955    Kontext "Redlining"
 956    '/// + Select tabpage 'List' ///
 957    TabControl.SetPage TabListe
 958    '/// + Select 'Accept All'///
 959    AlleAkzeptieren.Click
 960    Sleep 2
 961    '/// + Close Redlining dialog
 962    Redlining.Close
 963
 964    Call wTypeKeys "<Home>"
 965
 966    '/// Check if the footnote is inserted correctly after accepting the changes
 967    try
 968       EditFootnote
 969       Kontext "FussnoteBearbeiten"
 970       FussnoteBearbeiten.Cancel
 971    catch
 972       Warnlog "Something wrong in inserting footnote after accepting the changes!"
 973    endcatch
 974
 975    '/// Close the document
 976    Call hCloseDocument
 977
 978 endcase
 979
 980 '----------------------------------------------------------------------------
 981
 982 testcase tRedlining_14
 983
 984   '/// Test inserted header
 985   printlog "inserted header"
 986
 987   '/// New document
 988   Call hNewDocument
 989
 990   '/// Edit / Changes / Record
 991   EditChangesRecord
 992
 993   '/// Insert a header , insert / header
 994   DocumentWriter.UseMenu
 995   MenuSelect(Menugetitemid(4))
 996   Sleep 2
 997   MenuSelect(Menugetitemid(9))
 998   Sleep 2
 999   MenuSelect(Menugetitemid(1))
1000   Sleep 2
1001
1002   '/// input some test words in the header
1003   Call wTypeKeys "Header Test"
1004
1005   '/// Check if the header is inserted correctly before
1006   '/// + accepting the changes
1007   FormatPageWriter
1008   Kontext
1009   Active.SetPage TabKopfzeile
1010   Kontext "TabKopfzeile"
1011   if Not KopfzeileMitAbstand.IsChecked then Warnlog "The header is NOT inserted correctly before accepting the changes!"
1012   TabKopfzeile.Cancel
1013
1014   '/// Edit / Changes / Accept or Reject
1015   EditChangesAcceptOrReject
1016   Kontext "Redlining"
1017   '/// + Select tabpage 'List' ///
1018   TabControl.SetPage TabListe
1019   '/// + Select 'Accept All'///
1020   AlleAkzeptieren.Click
1021   Sleep 2
1022   '/// + Close Redlining dialog
1023   Redlining.Close
1024
1025   '/// Check if the header is inserted correctly after accepting the changes
1026   FormatPageWriter
1027   Kontext
1028   Active.SetPage TabKopfzeile
1029   Kontext "TabKopfzeile"
1030   if Not KopfzeileMitAbstand.IsChecked then Warnlog "The header is NOT inserted correctly after accepting the changes!"
1031   TabKopfzeile.Cancel
1032
1033   '/// Close the document
1034   Call hCloseDocument
1035
1036 endcase
1037
1038 '----------------------------------------------------------------------------
1039
1040 testcase tRedlining_15
1041
1042   '/// Test inserted footer
1043   printlog "inserted footer"
1044
1045   '/// New document
1046   Call hNewDocument
1047
1048   '/// Edit / Changes / Record
1049   EditChangesRecord
1050
1051   '/// Insert a footer , insert / footer
1052   DocumentWriter.UseMenu
1053   MenuSelect(Menugetitemid(4))
1054   Sleep 2
1055   MenuSelect(Menugetitemid(10))
1056   Sleep 2
1057   MenuSelect(Menugetitemid(1))
1058   Sleep 2
1059
1060   Call wTypeKeys "Footer Test"
1061
1062   '/// Check if the footer is inserted correctly before
1063   '/// + accepting the changes
1064   FormatPageWriter
1065   Kontext
1066   Active.SetPage TabFusszeile
1067   Kontext "TabFusszeile"
1068   if Not FusszeileMitAbstand.IsChecked then Warnlog "The footer is NOT inserted correctly before accepting the changes!"
1069   TabFusszeile.Cancel
1070
1071   '/// Edit / Changes / Accept or Reject
1072   EditChangesAcceptOrReject
1073   Kontext "Redlining"
1074   '/// + Select tabpage 'List' ///
1075   TabControl.SetPage TabListe
1076   '/// + Select 'Accept All'///
1077   AlleAkzeptieren.Click
1078   Sleep 2
1079   '/// + Close Redlining dialog
1080   Redlining.Close
1081
1082   '/// Check if the footer is inserted correctly after accepting the changes
1083   FormatPageWriter
1084   Kontext
1085   Active.SetPage TabFusszeile
1086   Kontext "TabFusszeile"
1087   if Not FusszeileMitAbstand.IsChecked then Warnlog "The footer is NOT inserted correctly after accepting the changes!"
1088   TabFusszeile.Cancel
1089
1090   '/// Close the document
1091   Call hCloseDocument
1092
1093 endcase
1094
1095 '----------------------------------------------------------------------------
1096
1097 testcase tRedlining_16
1098
1099   Dim iComparison1$ , iComparison2$
1100
1101   '/// Test moved paragraphs/chapters
1102   printlog "moved paragraphs/chapters"
1103
1104    '/// New document
1105    Call hNewDocument
1106
1107    '/// Insert a paragraph ( Open the test file )
1108    '/// + There are 3 lines
1109    '/// + Redlining test => OK_1  <--  No numbering
1110    '/// + Redlining test => OK_2  <--  Numbering style : list 2
1111    '/// + Redlining test => OK_3  <--  Numbering style : list 3
1112
1113    Call hFileOpen ( gTesttoolPath + "writer\optional\input\redlining\tRedlining_15.sxw" )
1114    Call sMakeReadOnlyDocumentEditable
1115
1116    Call wTypeKeys "<Up>" , 3
1117
1118    Call wTypeKeys "<Down>"
1119    FormatParagraph
1120    Kontext
1121    Active.SetPage TabNumerierungAbsatz
1122    Kontext "TabNumerierungAbsatz"
1123    iComparison1$ = Vorlage.GetSelText
1124    TabNumerierungAbsatz.Cancel
1125
1126    Call wTypeKeys "<Down>"
1127    FormatParagraph
1128    Kontext
1129    Active.SetPage TabNumerierungAbsatz
1130    Kontext "TabNumerierungAbsatz"
1131    iComparison2$ = Vorlage.GetSelText
1132    TabNumerierungAbsatz.Cancel
1133
1134    UseBindings
1135    '/// Edit / Changes / Record
1136    EditChangesRecord
1137
1138    Call wTypeKeys "<Up><End>"
1139    Call wTypeKeys "<Shift Down Right>"
1140    '/// Cut the selection
1141    EditCut
1142
1143    Call wTypeKeys "<Up>" , 3
1144    Call wTypeKeys "<End><Return>"
1145    '/// paste under the first line
1146    EditPaste
1147
1148    Call wTypeKeys "<Up><Up><End><Delete>"
1149
1150    '/// Check if the paragraph is moved correctly before
1151    '/// + accepting the changes
1152    Call wTypeKeys "<Up>" , 3
1153    Call wTypeKeys "<Down><End>"
1154    Call wTypeKeys "<Shift Left>"
1155    try
1156        EditCopy
1157    catch
1158        Warnlog "#i41424# Bullets cannot be removed by Del key"
1159        Call wTypeKeys "<Down><End>"
1160        Call wTypeKeys "<Shift Left>"
1161        EditCopy
1162    endcatch
1163
1164    if GetClipboardText <> "3" then Warnlog "A.The paragraph is moved incorrect before accepting the changes - 2nd line"
1165
1166    FormatParagraph
1167    Kontext
1168    Active.SetPage TabNumerierungAbsatz
1169    Kontext "TabNumerierungAbsatz"
1170    if iComparison2$ <> Vorlage.GetSelText then Warnlog "B.The paragraph is moved incorrect before accepting the changes - 2nd line"
1171    TabNumerierungAbsatz.Cancel
1172
1173    Call wTypeKeys "<Down><End>"
1174    Call wTypeKeys "<Shift Left>"
1175    EditCopy
1176    if GetClipboardText <> "2" then Warnlog "A. The paragraph is moved incorrect before accepting the changes - 3rd line"
1177
1178    FormatParagraph
1179    Kontext
1180    Active.SetPage TabNumerierungAbsatz
1181    Kontext "TabNumerierungAbsatz"
1182    if iComparison1$ <> Vorlage.GetSelText then Warnlog "B . The paragraph is moved incorrect before accepting the changes - 3rd line"
1183    TabNumerierungAbsatz.Cancel
1184
1185    '/// Edit / Changes / Accept or Reject
1186    EditChangesAcceptOrReject
1187    Sleep 2
1188    Kontext "Redlining"
1189    Sleep 2
1190    '/// + Select tabpage 'List' ///
1191    TabControl.SetPage TabListe
1192    Sleep 2
1193    '/// + Select 'Accept All'///
1194    AlleAkzeptieren.Click
1195    Sleep 2
1196    '/// + Close Redlining dialog
1197    Redlining.Close
1198    Sleep 2
1199
1200    '/// Check if the footnote is inserted correctly after
1201    '/// + accepting the changes
1202    Call wTypeKeys "<Up>" , 3
1203    Call wTypeKeys "<Down><End>"
1204    Call wTypeKeys "<Shift Left>"
1205    try
1206        EditCopy
1207    catch
1208        Warnlog "#i41424# Bullets cannot be removed by Del key"
1209        Call wTypeKeys "<Down><End>"
1210        Call wTypeKeys "<Shift Left>"
1211        EditCopy
1212    endcatch
1213    if GetClipboardText <> "3" then Warnlog "A.The paragraph is moved incorrect after accepting the changes - 2nd line"
1214
1215    FormatParagraph
1216    Kontext
1217    Active.SetPage TabNumerierungAbsatz
1218    Kontext "TabNumerierungAbsatz"
1219    if iComparison2$ <> Vorlage.GetSelText then Warnlog "B.The paragraph is moved incorrect after accepting the changes - 2nd line"
1220    TabNumerierungAbsatz.Cancel
1221
1222    Call wTypeKeys "<Down><End>"
1223    Call wTypeKeys "<Shift Left>"
1224    EditCopy
1225    if GetClipboardText <> "2" then Warnlog "A. The paragraph is moved incorrect after accepting the changes - 3rd line"
1226
1227    FormatParagraph
1228    Kontext
1229    Active.SetPage TabNumerierungAbsatz
1230    Kontext "TabNumerierungAbsatz"
1231    if iComparison1$ <> Vorlage.GetSelText then Warnlog "The paragraph is moved incorrect after accepting the changes - 3rd line"
1232    TabNumerierungAbsatz.Cancel
1233
1234     PrintLog "Close active documents"
1235     Do Until GetDocumentCount = 0
1236         Call hCloseDocument
1237     Loop
1238 endcase
1239