testautomation/writer/optional/includes/redlining/w_redlining2.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_redlining2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:34:05 $
  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 - 2
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tAcceptReject_1           'Test Default settings
  41 ' #1 tAcceptReject_2           'Test Accept in  Edit / Changes / Accept or Reject
  42 ' #1 tAcceptReject_3           'Test Reject in  Edit / Changes / Accept or Reject
  43 ' #1 tAcceptReject_4           'Test Accept All in  Edit / Changes / Accept or Reject
  44 ' #1 tAcceptReject_5           'Test Reject All in  Edit / Changes / Accept or Reject
  45 ' #1 tAcceptReject_6           'Test filter changes by author
  46 ' #1 tAcceptReject_7           'Test filter changes by time
  47 ' #1 tAcceptReject_8           'Test filter changes by action
  48 ' #1 tAcceptReject_9           'Test filter changes by comment
  49 ' #1 tAcceptReject_10          'Adding a comment to a change over the context menu
  50 ' #1 tAcceptReject_11          'Sort the list of changes  over context menu -- action
  51 ' #1 tAcceptReject_12          'Sort the list of changes  over context menu -- author
  52 ' #1 tAcceptReject_13          'Sort the list of changes  over context menu -- date
  53 ' #1 tAcceptReject_14          'Sort the list of changes  over context menu -- comment
  54 ' #1 tAcceptReject_15          'Sort the list of changes  over context menu -- document position
  55 '*
  56 '\***********************************************************************
  57
  58 testcase tAcceptReject_1
  59
  60   '/// Test focus -- the focus must be set in the document on the change pointed in the dialog.
  61   printlog "Test focus -- the focus must be set in the document on the change pointed in the dialog"
  62
  63    '/// New document
  64    Call hNewDocument
  65
  66    'Insert some test sentences
  67    Call wTypeKeys "Redlining test => OK_1<Return><Return>"
  68    Call wTypeKeys "Redlining test => OK_2"
  69
  70    UseBindings
  71    '/// Edit / Changes / Record
  72    EditChangesRecord
  73
  74    '/// Multi operations : Insert a new sentence , and delete some test text
  75    Call wTypeKeys "<Up>"
  76    Call wTypeKeys "Focus Test"
  77    Call wTypeKeys "<Down><End>"
  78    Call wTypeKeys "<Backspace>" , 3
  79
  80    '/// Set the focus to the Start
  81    Call wTypeKeys "<Up>" , 3
  82    Call wTypeKeys "<Home>"
  83
  84    '/// Edit / Changes / Accept or Reject
  85    EditChangesAcceptOrReject
  86    Sleep 2
  87    Kontext "Redlining"
  88    Sleep 2
  89
  90    '/// + Select tabpage 'List' ///
  91    TabControl.SetPage TabListe
  92    Sleep 2
  93
  94    '/// Select the 1st -- insertion
  95    ListItem.TypeKeys "<Up>"
  96    Sleep 2
  97
  98    Kontext "DocumentWriter"
  99    Call wTypeKeys "<Shift Home>"
 100    EditCopy
 101    Sleep 1
 102    if GetClipboardText <> "Focus Test" then Warnlog "The inserted focus location is incorrect! Getting " +GetClipboardText
 103
 104    Kontext "Redlining"
 105    '/// Select the 2nd -- deletion
 106    ListItem.TypeKeys "<Down>"
 107    Sleep 2
 108
 109    Kontext "DocumentWriter"
 110    Call wTypeKeys "<End>"
 111    Call wTypeKeys "<Shift Left>" , 4
 112    Sleep 1
 113    EditCopy
 114    Sleep 1
 115    if GetClipboardText <> "O" then Warnlog "The deleted focus location is incorrect! Getting " +GetClipboardText
 116
 117    '/// Close Redlining dialog
 118    Kontext "Redlining"
 119    Redlining.Close
 120
 121    '/// Close the document
 122    Call hCloseDocument
 123
 124 endcase
 125
 126 '----------------------------------------------------------------------------
 127
 128 testcase tAcceptReject_2
 129
 130   '/// Test Accept in  Edit / Changes / Accept or Reject
 131   printlog "Test Accept in  Edit / Changes / Accept or Reject "
 132
 133    '/// New document
 134    Call hNewDocument
 135
 136    'Insert some test sentences
 137    Call wTypeKeys "Redlining test => OK_1<Return><Return>"
 138    Call wTypeKeys "Redlining test => OK_2"
 139
 140    UseBindings
 141    '/// Edit / Changes / Record
 142    EditChangesRecord
 143
 144    '/// Multi operations : Insert a new sentence , and
 145    '/// + delete some test text
 146    Call wTypeKeys "<Up>"
 147    Call wTypeKeys "Focus Test"
 148    Call wTypeKeys "<Down><End>"
 149    Call wTypeKeys "<Backspace>" , 1
 150    Call wTypeKeys "<Up>"
 151
 152    '/// Edit / Changes / Accept or Reject
 153    EditChangesAcceptOrReject
 154    Sleep 2
 155    Kontext "Redlining"
 156    Sleep 2
 157    '/// + Select tabpage 'List' ///
 158    TabControl.SetPage TabListe
 159    Sleep 2
 160    '/// + Select 'Accept'
 161    Akzeptieren.Click
 162    Sleep 2
 163    '/// + Close Redlining dialog
 164    Redlining.Close
 165    Sleep 2
 166
 167    '/// Check if the configuration is all right
 168    Call wTypeKeys "<Up>" , 3
 169    Sleep 1
 170    Call wTypeKeys "<Down><Home><Shift End>"
 171    Sleep 1
 172    EditCopy
 173    Sleep 1
 174    if GetClipboardText <> "Focus Test" then Warnlog "The inserted text is incorrect! Getting" + GetClipboardText
 175
 176    Call wTypeKeys "<Down><End>"
 177    Sleep 1
 178    Call wTypeKeys "<Shift Left>" , 4
 179    Sleep 1
 180    EditCopy
 181    Sleep 1
 182    if GetClipboardText <> " OK_" then Warnlog "The deleted text is incorrect! Getting" + GetClipboardText
 183
 184    '/// Close the document
 185    Call hCloseDocument
 186
 187 endcase
 188
 189 '----------------------------------------------------------------------------
 190
 191 testcase tAcceptReject_3
 192
 193   '/// Test Reject in  Edit / Changes / Accept or Reject
 194   printlog "Test Reject in  Edit / Changes / Accept or Reject "
 195
 196    '/// New document
 197    Call hNewDocument
 198
 199    'Insert some test sentences
 200    Call wTypeKeys "Redlining test => OK_1<Return><Return>"
 201    Call wTypeKeys "Redlining test => OK_2"
 202
 203    UseBindings
 204    '/// Edit / Changes / Record
 205    EditChangesRecord
 206
 207    '/// Multi operations : Insert a new sentence , and delete some test text
 208    Call wTypeKeys "<Up>"
 209    Call wTypeKeys "Focus Test"
 210    Call wTypeKeys "<Down><End>"
 211    Call wTypeKeys "<Backspace>" , 3
 212    Call wTypeKeys "<Up>" , 3
 213    Call wTypeKeys "<Home>"
 214
 215    '/// Edit / Changes / Accept or Reject
 216    EditChangesAcceptOrReject
 217    Kontext "Redlining"
 218
 219    '/// + Select tabpage 'List' ///
 220    TabControl.SetPage TabListe
 221    Sleep 1
 222
 223    ListItem.TypeKeys "<Up>"
 224    Sleep 2
 225
 226    '/// + Select 'Reject'
 227    Ablehnen.Click
 228    Sleep 2
 229
 230    '/// + Close Redlining dialog
 231    Redlining.Close
 232
 233    '/// Check if the configuration is all right
 234    Call wTypeKeys "<Up>" , 3
 235    Call wTypeKeys "<Down><Home><Shift End>"
 236
 237    try
 238       EditCopy
 239       Warnlog "The inserted text should be rejected , so EditCopy shouldn't be actived!"
 240    catch
 241    endcatch
 242
 243    Call wTypeKeys "<Down><End>"
 244    Call wTypeKeys "<Shift Left>" , 4
 245    EditCopy
 246    if GetClipboardText <> "O" then Warnlog "The deleted text should be deleted and their location should be still reserved! Getting " + GetClipboardText
 247
 248    '/// Close the document
 249    Call hCloseDocument
 250
 251 endcase
 252
 253 '----------------------------------------------------------------------------
 254
 255 testcase tAcceptReject_4
 256
 257   '/// Test Accept All in  Edit / Changes / Accept or Reject
 258   printlog "Test Accept All in  Edit / Changes / Accept or Reject "
 259
 260    '/// + New document
 261    Call hNewDocument
 262
 263    'Insert some test sentences
 264    Call wTypeKeys "Redlining test => OK_1<Return><Return>"
 265    Call wTypeKeys "Redlining test => OK_2"
 266
 267    UseBindings
 268    '/// Edit / Changes / Record
 269    EditChangesRecord
 270
 271    '/// Multi operations : Insert a new sentence , and delete some test text
 272    Call wTypeKeys "<Up>"
 273    Sleep 1
 274    Call wTypeKeys "Focus Test"
 275    Sleep 1
 276    Call wTypeKeys "<Down><End>"
 277    Sleep 1
 278    Call wTypeKeys "<Backspace>" , 3
 279    Sleep 2
 280    Call wTypeKeys "<Up>" , 3
 281    Sleep 2
 282    Call wTypeKeys "<Home>"
 283    Sleep 1
 284
 285    '/// Edit / Changes / Accept or Reject
 286    EditChangesAcceptOrReject
 287    Kontext "Redlining"
 288    Sleep 1
 289    '/// + Select tabpage 'List' ///
 290    TabControl.SetPage TabListe
 291    Sleep 1
 292    '/// + Select 'Accept All'
 293    AlleAkzeptieren.Click
 294    Sleep 2
 295    '/// + Close Redlining dialog
 296    Redlining.Close
 297    Sleep 1
 298
 299    '/// Check if the configuration is all right
 300    Call wTypeKeys "<Up>" , 3
 301    Sleep 1
 302    Call wTypeKeys "<Down><Home><Shift End>"
 303    Sleep 1
 304    EditCopy
 305    Sleep 1
 306    if GetClipboardText <> "Focus Test" then Warnlog "The inserted text is incorrect! Getting " + GetClipboardText
 307
 308    Call wTypeKeys "<Down><End>"
 309    Sleep 2
 310    Call wTypeKeys "<Shift Left>" , 4
 311    Sleep 2
 312    EditCopy
 313    if GetClipboardText <> "=> O" then Warnlog "The deleted text is incorrect! Getting " + GetClipboardText
 314
 315    '/// Close the document
 316    Call hCloseDocument
 317
 318 endcase
 319
 320 '----------------------------------------------------------------------------
 321
 322 testcase tAcceptReject_5
 323
 324   '/// Test Reject all in  Edit / Changes / Accept or Reject
 325   printlog "Test Reject all in  Edit / Changes / Accept or Reject "
 326
 327    '/// New document
 328    Call hNewDocument
 329
 330    'Insert some test sentences
 331    Call wTypeKeys "Redlining test => OK_1<Return><Return>"
 332    Call wTypeKeys "Redlining test => OK_2"
 333
 334    UseBindings
 335    '/// Edit / Changes / Record
 336    EditChangesRecord
 337
 338    '/// Multi operations : Insert a new sentence , and delete some test text
 339    Call wTypeKeys "<Up>"
 340    Call wTypeKeys "Focus Test"
 341    Call wTypeKeys "<Down><End>"
 342    Call wTypeKeys "<Backspace>" , 3
 343    wait 500
 344    Call wTypeKeys "<Up>" , 3
 345    wait 500
 346    Call wTypeKeys "<Home>"
 347
 348    '/// Edit / Changes / Accept or Reject
 349    EditChangesAcceptOrReject
 350    Kontext "Redlining"
 351    '/// + Select tabpage 'List' ///
 352    TabControl.SetPage TabListe
 353    Sleep 1
 354    '/// + Select 'Reject All'
 355    AlleAblehnen.Click
 356    Sleep 2
 357    '/// + Close Redlining dialog
 358    Redlining.Close
 359
 360    '/// Check if the configuration is all right
 361    Call wTypeKeys "<Up>" , 3
 362    wait 500
 363    Call wTypeKeys "<Down><Home><Shift End>"
 364    wait 500
 365    try
 366       EditCopy
 367       Warnlog "The inserted text should be rejected , so EditCopy shouldn't be actived!"
 368    catch
 369    endcatch
 370
 371    Call wTypeKeys "<Down><End>"
 372    Call wTypeKeys "<Shift Left>" , 4
 373    EditCopy
 374    if GetClipboardText <> "OK_2" then Warnlog "The deleted text should not be deleted! Getting " + GetClipboardText
 375
 376    '/// Close the document
 377    Call hCloseDocument
 378
 379 endcase
 380
 381 '----------------------------------------------------------------------------
 382
 383 testcase tAcceptReject_6
 384
 385   Dim sFirstName  , sLastName  as String
 386   Dim sFirstName1 , sLastName1 as String
 387   Dim sFirstName2 , sLastName2 as String
 388
 389   sFirstName1 = "Test1" : sLastName1 = "Test1"
 390   sFirstName2 = "Test2" : sLastName2 = "Test2"
 391
 392   '/// Test filter changes by author
 393   printlog "Test filter changes by author"
 394
 395    '/// New document
 396    Call hNewDocument
 397
 398    'Insert some test sentences
 399    Call wTypeKeys "Redlining test => OK_1<Return>"
 400    Call wTypeKeys "Redlining test => OK_2"
 401
 402    '/// Change author to author1 :Test1 Test1
 403    ToolsOptions
 404    Call hToolsOptions("STAROFFICE","USERDATA")
 405    sFirstName = VorName.GetText
 406    sLastName  = ZuName.GetText
 407    VorName.SetText sFirstName1
 408    ZuName.SetText  sLastName1
 409    Kontext "ExtrasOptionenDlg"
 410    ExtrasOptionenDlg.OK
 411
 412    UseBindings
 413    '/// Edit / Changes / Record
 414    EditChangesRecord
 415
 416    '/// author1 : delete some text
 417    Call wTypeKeys "<Up><End>"
 418    Sleep 1
 419    Call wTypeKeys "<Backspace>" , 3
 420    Sleep 1
 421
 422    '/// Change author to author2 :Test2 Test2
 423    ToolsOptions
 424    Call hToolsOptions("STAROFFICE","USERDATA")
 425    VorName.SetText sFirstName2
 426    ZuName.SetText  sLastName2
 427    Kontext "ExtrasOptionenDlg"
 428    ExtrasOptionenDlg.OK
 429
 430    '/// author2 : delete some other text
 431    Call wTypeKeys "<Down><End>"
 432    Sleep 1
 433    Call wTypeKeys "<Backspace>" , 4
 434    Sleep 1
 435
 436    '/// Edit / Changes / Accept or Reject
 437    EditChangesAcceptOrReject
 438    Kontext "Redlining"
 439    '/// + Select tabpage 'Filter' ///
 440    TabControl.SetPage TabFilter
 441    Sleep 1
 442    '/// + Check 'Author'
 443    Autor.Check
 444    Sleep 2
 445    '/// + Select Author2
 446         try
 447                 AutoListe.Select 2
 448     catch
 449         QAErrorlog "#i99937#Change of author (User name) disregarded when changed during Office session"
 450                 Redlining.Close
 451                 Call hCloseDocument
 452                 goto endsub
 453         endcatch
 454         Sleep 2
 455         '/// + Select tabpage 'List' ///
 456         TabControl.SetPage TabListe
 457         Sleep 2
 458         '/// + Select 'Accept All'///
 459         AlleAkzeptieren.Click
 460         Sleep 2
 461
 462    '/// + Close Redlining dialog
 463    Redlining.Close
 464    Sleep 1
 465
 466    '/// + Check if Filter works well
 467    Call wTypeKeys "<Up>" , 2
 468    Sleep 1
 469    Call wTypeKeys "<End>"
 470    Sleep 1
 471    Call wTypeKeys "<Shift Left>" , 6
 472    Sleep 1
 473    EditCopy
 474    Sleep 1
 475    if GetClipboardText <>  "> O" then Warnlog "The deleted text by author1 is incorrect! Getting " + GetClipboardText
 476
 477    Call wTypeKeys "<Down><End>"
 478    Sleep 1
 479    Call wTypeKeys "<Shift Left>" , 6
 480    Sleep 1
 481    EditCopy
 482    Sleep 1
 483    if GetClipboardText <> "st => " then Warnlog "The deleted text by author2 is incorrect! Getting " + GetClipboardText
 484
 485    'Change author to default
 486    ToolsOptions
 487    Call hToolsOptions("STAROFFICE","USERDATA")
 488    VorName.SetText sFirstName
 489    ZuName.SetText  sLastName
 490    Kontext "ExtrasOptionenDlg"
 491    ExtrasOptionenDlg.OK
 492
 493    '/// + Close the document
 494    Call hCloseDocument
 495
 496 endcase
 497
 498 '----------------------------------------------------------------------------
 499
 500 testcase tAcceptReject_7
 501
 502   Dim sTime as String
 503
 504   '/// Test filter changes by date
 505   printlog "Test filter changes by date"
 506
 507    '/// New document
 508    Call hNewDocument
 509
 510    '/// Insert some test sentences
 511    Call wTypeKeys "Redlining test => OK_1<Return>"
 512    Call wTypeKeys "Redlining test => OK_2"
 513
 514    UseBindings
 515    '/// Edit / Changes / Record
 516    EditChangesRecord
 517
 518    '/// delete some text in first line
 519    Call wTypeKeys "<Up><End>"
 520    Call wTypeKeys "<Backspace>" , 3
 521
 522    sTime = Str ( Format( Now  ) )
 523    sTime = Mid ( sTime , 12 , 5 )
 524
 525    '/// wait 70 seconds
 526    Sleep 70
 527
 528    '/// delete some text in second line
 529    Call wTypeKeys "<Down><End>"
 530    Call wTypeKeys "<Backspace>" , 2
 531
 532    '/// Edit / Changes / Accept or Reject
 533    EditChangesAcceptOrReject
 534    Kontext "Redlining"
 535    '/// + Select tabpage 'Filter' ///
 536    TabControl.SetPage TabFilter
 537    Sleep 1
 538    '/// + Check 'Date'
 539    Datum.Check
 540    Sleep 1
 541    '/// + Select earlier than
 542    DatumListe.Select 1
 543    Sleep 1
 544    '/// + insert time
 545    Zeit1.SetText sTime
 546    Sleep 1
 547    '/// + Select tabpage 'List' ///
 548    TabControl.SetPage TabListe
 549    Sleep 1
 550    '/// + Select 'Accept All'///
 551    AlleAkzeptieren.Click
 552    Sleep 2
 553    '/// + Close Redlining dialog
 554    Redlining.Close
 555
 556    '/// + Check if Filter works well
 557    Call wTypeKeys "<Up>" , 2
 558    Call wTypeKeys "<End>"
 559    Call wTypeKeys "<Shift Left>" , 4
 560    EditCopy
 561    if GetClipboardText <>  "=> O" then Warnlog "The deleted text in first line is incorrect!"
 562
 563    Call wTypeKeys "<Down><End>"
 564    Call wTypeKeys "<Shift Left>" , 4
 565    EditCopy
 566    if GetClipboardText <> "OK" then Warnlog "The deleted text in second line is incorrect!"
 567
 568    '/// + Close the document
 569    Call hCloseDocument
 570
 571 endcase
 572
 573 '----------------------------------------------------------------------------
 574
 575 testcase tAcceptReject_8
 576
 577         Dim iComparison1$,iComparison2$,iComparison3$,iComparison4$
 578
 579         '/// Test filter changes by action
 580         printlog "Test filter changes by action"
 581
 582         '/// New document
 583         Call hNewDocument
 584
 585         'Insert some test sentences
 586         Call wTypeKeys "Redlining test => OK_1<Return>"
 587         Call wTypeKeys "Redlining test => OK_2"
 588
 589         UseBindings
 590         '/// Edit / Changes / Record
 591         EditChangesRecord
 592
 593         '/// Change the first line's attribute .
 594         Call wTypeKeys "<Up><Home><Shift End>"
 595
 596         FormatCharacter
 597         Kontext
 598         Active.SetPage TabFont
 599         kontext "TabFont"
 600
 601         if gAsianSup = True then
 602                 FontWest.Select  5
 603                 iComparison1$ = FontWest.GetSelText
 604                 try
 605             StyleWest.Select 3
 606         catch
 607             StyleWest.Select StyleWest.GetItemCount
 608         endcatch
 609                 iComparison2$ = StyleWest.GetSelText
 610                 SizeWest.Select  5
 611                 iComparison3$ = SizeWest.GetSelText
 612         else
 613                 Font.Select  5
 614                 iComparison1$ = Font.GetSelText
 615                 try
 616             Style.Select 3
 617         catch
 618             Style.Select Style.GetItemCount
 619         endcatch
 620                 iComparison2$ = Style.GetSelText
 621                 Size.Select  5
 622                 iComparison3$ = Size.GetSelText
 623         end if
 624
 625         wait 100
 626         Kontext
 627         Active.Setpage TabHyperlinkZeichen
 628         Kontext "TabHyperlinkZeichen"
 629         UrlName.Settext "http://www.sun.com/"
 630         Sleep 1
 631         TargetFrame.Select 2
 632         Sleep 1
 633         iComparison4$ = TargetFrame.GetSelText
 634         Sleep 1
 635         TabHyperlinkZeichen.Ok
 636
 637         '/// Delete some text in second line
 638         Call wTypeKeys "<Down><End>"
 639         Call wTypeKeys "<Backspace>" , 3
 640
 641         '/// Edit / Changes / Accept or Reject
 642         EditChangesAcceptOrReject
 643         Kontext "Redlining"
 644         '/// + Select tabpage 'Filter' ///
 645         TabControl.SetPage TabFilter
 646         Sleep 1
 647         '/// + Check 'Action' , select format
 648         Aktion.Check
 649         Sleep 1
 650         Aktionsliste.Select 3
 651         Sleep 1
 652         '/// + Select tabpage 'List' ///
 653         TabControl.SetPage TabListe
 654         Sleep 1
 655         '/// + Select 'Accept All'///
 656         AlleAkzeptieren.Click
 657         Sleep 2
 658         '/// + Close Redlining dialog
 659         Redlining.Close
 660
 661         '/// Check if Filter works well
 662         Call wTypeKeys "<Up><Home><Right>"
 663         FormatCharacter
 664         Kontext
 665         Active.SetPage TabFont
 666         Kontext "TabFont"
 667         if gAsianSup = True then
 668                 if iComparison1$ <> FontWest.GetSelText  then Warnlog "Wrong Font in first line!"
 669                 if iComparison2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in first line!"
 670                 if iComparison3$ <> SizeWest.GetSelText  then QAErrorlog "#108881#Wrong Fontsize in first line!"
 671         else
 672                 if iComparison1$ <> Font.GetSelText  then Warnlog "Wrong Font in first line!"
 673                 if iComparison2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in first line!"
 674                 if iComparison3$ <> Size.GetSelText  then Warnlog "Wrong Fontsize in first line!"
 675         end if
 676         wait 100
 677         Kontext
 678         Active.Setpage TabHyperlinkZeichen
 679         Kontext "TabHyperlinkZeichen"
 680         if UrlName.Gettext <> "http://www.sun.com/"  then Warnlog "Wrong hyperlink has been added to text!"
 681         if iComparison4$   <> TargetFrame.GetSelText then Warnlog "Wrong targetFrame has been added to text!"
 682         TabHyperlinkZeichen.Cancel
 683
 684         Call wTypeKeys "<Down><End>"
 685         Call wTypeKeys "<Shift Left>" , 4
 686         EditCopy
 687         if GetClipboardText <> "O" then Warnlog "The deleted text is incorrect!"
 688
 689         '/// Close the document
 690         Call hCloseDocument
 691
 692 endcase
 693
 694 '----------------------------------------------------------------------------
 695
 696 testcase tAcceptReject_9
 697
 698   '/// Test filter changes by comments
 699   printlog "Test filter changes by comments"
 700
 701    '/// New document
 702    Call hNewDocument
 703
 704    '/// Insert some test sentences
 705    Call wTypeKeys "Redlining test => OK_1<Return>"
 706    Call wTypeKeys "Redlining test => OK_2"
 707
 708    UseBindings
 709    '/// Edit / Changes / Record
 710    EditChangesRecord
 711
 712    '/// delete some text in first line .
 713    Call wTypeKeys "<Up><End>"
 714    Call wTypeKeys "<Backspace>" , 3
 715
 716    '/// insert comment1: Edit / Changes / Comment
 717    EditChangesComment
 718    Kontext "Kommentar"
 719     KommentarText.SetText "Comment1"
 720    Kommentar.OK
 721
 722    '/// delete some text in second line .
 723    Call wTypeKeys "<Down><End>"
 724    Call wTypeKeys "<Backspace>" , 2
 725
 726    '/// insert comment2: Edit / Changes / Comment
 727    EditChangesComment
 728    Kontext "Kommentar"
 729     KommentarText.SetText "Comment2"
 730    Kommentar.OK
 731
 732    '/// Edit / Changes / Accept or Reject
 733    EditChangesAcceptOrReject
 734    Kontext "Redlining"
 735    '/// + Select tabpage 'Filter' ///
 736    TabControl.SetPage TabFilter
 737    Sleep 1
 738    '/// + Check 'comment' , and input comment1 in the relevant editbox
 739    Comment.Check
 740    CommentText.SetText "Comment1"
 741    '/// + Select tabpage 'List' ///
 742    TabControl.SetPage TabListe
 743    Sleep 1
 744    '/// + Select 'Accept All'///
 745    AlleAkzeptieren.Click
 746    Sleep 1
 747    '/// + Close Redlining dialog
 748    Redlining.Close
 749
 750    '/// Check if the configuration is all right
 751    Call wTypeKeys "<Up><End>"
 752    Call wTypeKeys "<Shift Left>" , 4
 753    EditCopy
 754    if GetClipboardText <>  "=> O" then Warnlog "The deleted text in first line is incorrect!"
 755
 756    Call wTypeKeys "<Down><End>"
 757    Call wTypeKeys "<Shift Left>" , 4
 758    EditCopy
 759    if GetClipboardText <> "OK" then Warnlog "The deleted text in second line is incorrect!"
 760
 761    '/// Close the document
 762    Call hCloseDocument
 763
 764 endcase
 765
 766 '----------------------------------------------------------------------------
 767
 768 testcase tAcceptReject_10
 769
 770   '/// Adding a comment to a change over the context menu.
 771   printlog "Adding a comment to a change over the context menu."
 772
 773    '/// New document
 774    Call hNewDocument
 775
 776    '/// Insert some test sentences
 777    Call wTypeKeys "Redlining test => O1<Return>"
 778    Call wTypeKeys "Redlining test => K2"
 779
 780    UseBindings
 781    '/// Edit / Changes / Record
 782    EditChangesRecord
 783
 784    '/// delete some text in first line .
 785    Call wTypeKeys "<Up><End>"
 786    Call wTypeKeys "<Backspace>"
 787
 788    '/// delete some text in second line .
 789    Call wTypeKeys "<Down><End>"
 790    Call wTypeKeys "<Backspace>"
 791
 792    '/// Edit / Changes / Accept or Reject
 793    EditChangesAcceptOrReject
 794    Kontext "Redlining"
 795
 796    '/// + Select tabpage 'List'
 797    TabControl.SetPage TabListe
 798    Sleep 1
 799
 800    '/// + insert comment with context menu
 801    '/// + insert comment for first line
 802    ListItem.TypeKeys "<Up>"
 803    ListItem.OpenContextMenu
 804    hMenuSelectNr(1)
 805    Sleep 1
 806
 807    Kontext "NotizBearbeiten"
 808     Texteingabe.SetText "Comment1"
 809    NotizBearbeiten.OK
 810
 811    '/// + insert comment for second line
 812    Kontext "Redlining"
 813    ListItem.TypeKeys "<Down>"
 814    ListItem.OpenContextMenu
 815    hMenuSelectNr(1)
 816
 817    Kontext "NotizBearbeiten"
 818     Texteingabe.SetText "Comment2"
 819    NotizBearbeiten.OK
 820
 821    Kontext "Redlining"
 822
 823    '/// + Select tabpage 'Filter' ///
 824    TabControl.SetPage TabFilter
 825    Sleep 1
 826    '/// + Check 'comment' , and input comment1 in the relevant editbox
 827    Comment.Check
 828    CommentText.SetText "Comment1"
 829    '/// + Select tabpage 'List' ///
 830    TabControl.SetPage TabListe
 831    Sleep 1
 832    '/// + Select 'Accept All'///
 833    AlleAkzeptieren.Click
 834    Sleep 1
 835    '/// + Close Redlining dialog
 836    Redlining.Close
 837
 838    '/// Check if the configuration is all right
 839    Call wTypeKeys "<Up><End>"
 840    Call wTypeKeys "<Shift Left>" , 2
 841    EditCopy
 842    if GetClipboardText <>  " O" then Warnlog "The deleted text in first line is incorrect!"
 843
 844    Call wTypeKeys "<Down><End>"
 845    Call wTypeKeys "<Shift Left>" , 2
 846    EditCopy
 847    if GetClipboardText <> "K" then Warnlog "The deleted text in second line is incorrect!"
 848
 849    '/// Close the document
 850    Call hCloseDocument
 851
 852 endcase
 853
 854 '----------------------------------------------------------------------------
 855
 856 testcase tAcceptReject_11
 857
 858     '/// Sort the list of changes  over context menu -- action.
 859     '/// Action sort depends on not only StarOffice/StarSuite , but also system language.
 860     printlog "Sort the list of changes  over context menu -- action."
 861
 862     '/// New document
 863     Call hNewDocument
 864
 865     '/// Insert some test sentences
 866     Call wTypeKeys "Redlining_11_test<Return>"
 867
 868     UseBindings
 869     '/// Edit / Changes / Record
 870     EditChangesRecord
 871
 872     '/// Insert some test sentences
 873     Call wTypeKeys "A"
 874
 875     '/// delete some text in first line .
 876     Call wTypeKeys "<Up><End>"
 877     Call wTypeKeys "<Backspace>"
 878
 879     'This step to ensure the 1st list is deletion , the 2nd list is insertion
 880     Call wTypeKeys "<Home>"
 881
 882     '/// Edit / Changes / Accept or Reject
 883     EditChangesAcceptOrReject
 884     Kontext "Redlining"
 885
 886     '/// + Select tabpage 'List'
 887     TabControl.SetPage TabListe
 888     Sleep 1
 889
 890     'Sort the list of changes  with their position
 891     ListItem.TypeKeys "<Up>"
 892     ListItem.OpenContextMenu
 893     Call hMenuSelectNr(2)
 894     Sleep 1
 895     Call hMenuSelectNr(5)
 896     Sleep 1
 897
 898     '/// + Sort the list of changes  over context menu -- action
 899     ListItem.TypeKeys "<Up>"
 900     ListItem.OpenContextMenu
 901     Call hMenuSelectNr(2)
 902     Sleep 1
 903     Call hMenuSelectNr(1)
 904     Sleep 1
 905
 906     '/// + Click accept
 907     Akzeptieren.Click
 908     Sleep 1
 909
 910     '/// + Close Redlining dialog
 911     Redlining.Close
 912
 913     '/// Check if the configuration is all right
 914     Call wTypeKeys "<Up><End>"
 915     Call wTypeKeys "<Shift Left>"
 916     EditCopy
 917     if GetClipboardText <> "s" then Warnlog "The deleted text in first line is incorrect!"
 918
 919     Call wTypeKeys "<Down><End>"
 920     Call wTypeKeys "<Shift Home>"
 921     EditCopy
 922     if GetClipboardText <> "A" then Warnlog "The inserted text in second line is incorrect!"
 923
 924     Call hCloseDocument
 925
 926 endcase
 927
 928 '----------------------------------------------------------------------------
 929
 930 testcase tAcceptReject_12
 931
 932   Dim sFirstName  , sLastName  as String
 933   Dim sFirstName1 , sLastName1 as String
 934   Dim sFirstName2 , sLastName2 as String
 935
 936   sFirstName1 = "ATest1" : sLastName1 = "ATest1"
 937   sFirstName2 = "BTest2" : sLastName2 = "BTest2"
 938
 939   '/// Sort the list of changes  over context menu -- author.
 940   printlog "Sort the list of changes  over context menu -- author."
 941
 942    '/// New document
 943    Call hNewDocument
 944
 945    'Insert some test sentences
 946    Call wTypeKeys "Redlining test => O1<Return>"
 947    Call wTypeKeys "Redlining test => K2"
 948
 949    '/// Change author to author1 :ATest1 ATest1
 950    ToolsOptions
 951    Call hToolsOptions("STAROFFICE","USERDATA")
 952     sFirstName = VorName.GetText
 953     sLastName  = ZuName.GetText
 954     VorName.SetText sFirstName1
 955     ZuName.SetText  sLastName1
 956     Kontext "ExtrasOptionenDlg"
 957    ExtrasOptionenDlg.OK
 958
 959    UseBindings
 960    '/// Edit / Changes / Record
 961    EditChangesRecord
 962
 963    '/// author1 : delete some text in 2nd line
 964    Call wTypeKeys "<Backspace>"
 965
 966    '/// Change author to author2 :BTest2 BTest2
 967    ToolsOptions
 968    Call hToolsOptions("STAROFFICE","USERDATA")
 969     VorName.SetText sFirstName2
 970     ZuName.SetText  sLastName2
 971     Kontext "ExtrasOptionenDlg"
 972    ExtrasOptionenDlg.OK
 973
 974    '/// author2 : delete some text in 1st line
 975    Call wTypeKeys "<Up><End>"
 976    Call wTypeKeys "<Backspace>"
 977    Sleep 1
 978    Call wTypeKeys "<Home>"
 979
 980    '/// Edit / Changes / Accept or Reject
 981    EditChangesAcceptOrReject
 982    Kontext "Redlining"
 983
 984    '/// + Select tabpage 'List'
 985    TabControl.SetPage TabListe
 986    Sleep 1
 987
 988    'Sort the list of changes  with their position
 989    ListItem.TypeKeys "<Up>"
 990    ListItem.OpenContextMenu
 991    hMenuSelectNr(2)
 992    Sleep 1
 993    hMenuSelectNr(5)
 994    Sleep 1
 995
 996    '/// + Sort the list of changes  over context menu  - author
 997    ListItem.TypeKeys "<Up>"
 998    ListItem.OpenContextMenu
 999    hMenuSelectNr(2)
1000    Sleep 1
1001    hMenuSelectNr(2)
1002    Sleep 1
1003
1004    '/// + Select author 1
1005    ListItem.TypeKeys "<Up>"
1006    Sleep 1
1007
1008    '/// + Click accept
1009    Akzeptieren.Click
1010    Sleep 1
1011
1012    '/// + Close Redlining dialog
1013    Redlining.Close
1014
1015    '/// Check if Filter works well
1016    Call wTypeKeys "<Up>" , 2
1017    Call wTypeKeys "<End>"
1018    Call wTypeKeys "<Shift Left>" , 2
1019    EditCopy
1020    if GetClipboardText <>  "O" then Warnlog "The deleted text by author1 is incorrect!"
1021
1022    Call wTypeKeys "<Down><End>"
1023    Call wTypeKeys "<Shift Left>" , 2
1024    EditCopy
1025    if GetClipboardText <> " K" then Warnlog "The deleted text by author2 is incorrect!"
1026
1027    'Change author to default
1028    ToolsOptions
1029     Call hToolsOptions("STAROFFICE","USERDATA")
1030     VorName.SetText sFirstName
1031     ZuName.SetText  sLastName
1032     Kontext "ExtrasOptionenDlg"
1033    ExtrasOptionenDlg.OK
1034
1035    '/// + Close the document
1036    Call hCloseDocument
1037
1038 endcase
1039
1040 '----------------------------------------------------------------------------
1041
1042 testcase tAcceptReject_13
1043
1044   '/// Sort the list of changes  over context menu -- date.
1045   printlog "Sort the list of changes  over context menu -- date."
1046
1047    '/// New document
1048    Call hNewDocument
1049
1050    '/// Insert some test sentences
1051    Call wTypeKeys "Redlining test => O1<Return>"
1052    Call wTypeKeys "Redlining test => K2"
1053
1054    UseBindings
1055    '/// Edit / Changes / Record
1056    EditChangesRecord
1057
1058    '/// delete some text in 2nd line .
1059    Call wTypeKeys "<Backspace>"
1060
1061    '/// wait 70 seconds
1062    Sleep 70
1063
1064    '/// delete some text in 1st line .
1065    Call wTypeKeys "<Up><End>"
1066    Call wTypeKeys "<Backspace>"
1067
1068    '/// Edit / Changes / Accept or Reject
1069    EditChangesAcceptOrReject
1070    Kontext "Redlining"
1071
1072    '/// + Select tabpage 'List'
1073    TabControl.SetPage TabListe
1074    Sleep 1
1075
1076    'Sort the list of changes  with their position
1077    ListItem.TypeKeys "<Up>"
1078    ListItem.OpenContextMenu
1079    hMenuSelectNr(2)
1080    Sleep 1
1081    hMenuSelectNr(5)
1082    Sleep 1
1083
1084    '/// + Sort the list of changes  over context menu -- date
1085    ListItem.TypeKeys "<Up>"
1086    ListItem.OpenContextMenu
1087    hMenuSelectNr(2)
1088    Sleep 1
1089    hMenuSelectNr(3)
1090    Sleep 1
1091
1092    '/// + Select 2nd item (it should be the 2nd deletion operation)
1093    ListItem.TypeKeys "<Down>"
1094
1095    '/// + Click accept
1096    Akzeptieren.Click
1097    Sleep 1
1098
1099    '/// + Close Redlining dialog
1100    Redlining.Close
1101
1102    '/// Check if the configuration is all right
1103    Call wTypeKeys "<Up><End>"
1104    Call wTypeKeys "<Shift Left>" , 2
1105    EditCopy
1106    if GetClipboardText <> " O" then Warnlog "The deleted text in first line is incorrect!"
1107
1108    Call wTypeKeys "<Down><End>"
1109    Call wTypeKeys "<Shift Left>" , 2
1110    EditCopy
1111    if GetClipboardText <>  "K" then Warnlog "The deleted text in second line is incorrect!"
1112
1113    '/// + Close the document
1114    Call hCloseDocument
1115
1116 endcase
1117
1118 '----------------------------------------------------------------------------
1119
1120 testcase tAcceptReject_14
1121
1122   '/// Sort the list of changes  over context menu -- comment.
1123   printlog "Sort the list of changes  over context menu -- comment"
1124
1125    '/// New document
1126    Call hNewDocument
1127
1128    '/// Insert some test sentences
1129    Call wTypeKeys "Redlining test => O1<Return>"
1130    Call wTypeKeys "Redlining test => K2"
1131
1132    UseBindings
1133    '/// Edit / Changes / Record
1134    EditChangesRecord
1135
1136    '/// delete some text in 2nd line .
1137    Call wTypeKeys "<Backspace>"
1138
1139    '/// insert comment1: Edit / Changes / Comment
1140    EditChangesComment
1141     Kontext "Kommentar"
1142     KommentarText.SetText "Comment1"
1143    Kommentar.OK
1144
1145    '/// delete some text in 1st line .
1146    Call wTypeKeys "<Up><End>"
1147    Call wTypeKeys "<Backspace>"
1148
1149    '/// insert comment2: Edit / Changes / Comment
1150    EditChangesComment
1151     Kontext "Kommentar"
1152     KommentarText.SetText "Comment2"
1153    Kommentar.OK
1154
1155    '/// Edit / Changes / Accept or Reject
1156    EditChangesAcceptOrReject
1157    Kontext "Redlining"
1158
1159    '/// + Select tabpage 'List'
1160    TabControl.SetPage TabListe
1161    Sleep 1
1162
1163    'Sort the list of changes  with their position
1164    ListItem.TypeKeys "<Up>"
1165    ListItem.OpenContextMenu
1166    hMenuSelectNr(2)
1167    Sleep 1
1168    hMenuSelectNr(5)
1169    Sleep 1
1170
1171    '/// + Sort the list of changes  over context menu -- comment
1172    ListItem.TypeKeys "<Up>"
1173    ListItem.OpenContextMenu
1174    hMenuSelectNr(2)
1175    Sleep 1
1176    hMenuSelectNr(4)
1177    Sleep 1
1178
1179    '/// + Select 2nd item
1180    ListItem.TypeKeys "<Down>"
1181
1182    '/// + Click accept
1183    Akzeptieren.Click
1184    Sleep 1
1185
1186    '/// + Close Redlining dialog
1187    Redlining.Close
1188
1189    '/// Check if the configuration is all right
1190    Call wTypeKeys "<Up><End>"
1191    Call wTypeKeys "<Shift Left>" , 2
1192    EditCopy
1193    if GetClipboardText <>  " O" then Warnlog "The deleted text in first line is incorrect!"
1194
1195    Call wTypeKeys "<Down><End>"
1196    Call wTypeKeys "<Shift Left>" , 2
1197    EditCopy
1198    if GetClipboardText <>  "K" then Warnlog "The deleted text in second line is incorrect!"
1199
1200    '/// + Close the document
1201    Call hCloseDocument
1202
1203 endcase
1204
1205 '----------------------------------------------------------------------------
1206
1207 testcase tAcceptReject_15
1208
1209   '/// Sort the list of changes  over context menu -- document position.
1210   printlog "Sort the list of changes  over context menu -- document position"
1211
1212    '/// New document
1213    Call hNewDocument
1214
1215    '/// Insert some test sentences
1216    Call wTypeKeys "Redlining test => O1<Return>"
1217    Call wTypeKeys "Redlining test => K2"
1218
1219    UseBindings
1220    '/// Edit / Changes / Record
1221    EditChangesRecord
1222
1223    '/// delete some text in 2nd line .
1224    Call wTypeKeys "<Backspace>"
1225
1226    '/// delete some text in 1st line .
1227    Call wTypeKeys "<Up><End>"
1228    Call wTypeKeys "<Backspace>"
1229
1230    Call wTypeKeys "<Home>"
1231
1232    '/// Edit / Changes / Accept or Reject
1233    EditChangesAcceptOrReject
1234    Kontext "Redlining"
1235
1236    '/// + Select tabpage 'List'
1237    TabControl.SetPage TabListe
1238    Sleep 1
1239
1240    '/// + Sort the list of changes  over context menu -- document position
1241    ListItem.TypeKeys "<Up>"
1242    ListItem.OpenContextMenu
1243    hMenuSelectNr(2)
1244    Sleep 1
1245    hMenuSelectNr(5)
1246    Sleep 1
1247
1248    '/// + Select 2nd item
1249    ListItem.TypeKeys "<Down>"
1250    Sleep 1
1251
1252    '/// + Click accept
1253    Akzeptieren.Click
1254    Sleep 1
1255
1256    '/// + Close Redlining dialog
1257    Redlining.Close
1258
1259    '/// Check if the configuration is all right
1260    Call wTypeKeys "<Up><End>"
1261    Call wTypeKeys "<Shift Left>" , 2
1262    EditCopy
1263    if GetClipboardText <>  "O" then Warnlog "The deleted text in first line is incorrect!"
1264
1265    Call wTypeKeys "<Down><End>"
1266    Call wTypeKeys "<Shift Left>" , 2
1267    EditCopy
1268    if GetClipboardText <>  " K" then Warnlog "The deleted text in second line is incorrect!"
1269
1270    '/// Close the document
1271    Call hCloseDocument
1272
1273 endcase