testautomation/writer/optional/includes/undo/w_undo_history_4.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_undo_history_4.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:20:57 $
  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 : Writer Undo-History - Test
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_undo_history_4
  41
  42         Call tUndoOLEObject                     ' Objects (Insert/Delete)
  43         Call tUndoFloatingFrame                 ' Floating Frame (Insert/Delete)
  44         Call tUndoInsertFile                    ' Insert file
  45         Call tUndoAsianPhoneticGuides                   ' Asian Phonetic Guides
  46         Call tUndoAutocorrect                   ' Autocorrect / Autoformat
  47         Call tUndoDrawObject                    ' Draw Object (Insert)
  48         Call tUndoDrawObjectGroup                       ' Draw Object (Group/ungroup/Name/Delete)
  49         Call tUndoSpellcheck                    ' Spellcheck (Autocheck/Spellcheck)
  50         Call tUndoFormControl                   ' Form Control (Insert/resize/move/replace/change property/delete)
  51         Call tUndoHeaderFooter                  ' Header/Footer insert and delete
  52
  53 end sub
  54
  55 testcase tUndoOLEObject
  56
  57         '/// <B>OLE-Objects (Insert/Delete)</B>
  58         printlog "- Insert OLE-Object"
  59         '/// new Document
  60         Call hNewDocument
  61     '/// Insert / Object / OLE-Object ///
  62         InsertObjectOLEObject
  63     Kontext "OLEObjektEinfuegen"
  64         Objekttyp.Select 1
  65         OLEObjektEinfuegen.Ok
  66     wait 500
  67         Call wTypeKeys "<Esc>"
  68     wait 500
  69     Call gMouseClick(15,5)
  70     wait 500
  71         '///  string in Undo-list has to be: "Insert object")
  72         Call CheckUndoStringInUndoList ( 10, "InsertObject" )
  73
  74         printlog "- delete object"
  75         '/// Select object with <Shift F4>
  76     Call wTypeKeys "<Shift F4>"
  77     wait 500
  78     '/// <B>Delete object</B>
  79         Call wTypeKeys "<Delete>"
  80     wait 500
  81         '/// press 'delete' to remove object
  82         '///  string in Undo-list has to be: "Delete object")
  83         Call CheckUndoStringInUndoList ( 10, "DeleteObject" )
  84
  85         '/// close Document
  86         Call hCloseDocument
  87 endcase
  88
  89
  90 testcase tUndoFloatingFrame
  91
  92         '/// <B>Floating frames</B>
  93         printlog "- Insert floating frame"
  94         '/// new document
  95         Call hNewDocument
  96         '/// Insert / Floating frame
  97         InsertFloatingFrame
  98         Kontext "TabEigenschaften"
  99         '/// Choose a file as floating frame
 100         Inhalt.Settext Convertpath (gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
 101         TabEigenschaften.Ok
 102         Sleep 2
 103         '///  string in Undo-list has to be: "Insert floating frame")
 104         Call CheckUndoStringInUndoList ( 10, "InsertFloatingFrame" )
 105
 106         '/// Delete floating frame
 107         printlog "- delete floating frame"
 108         Call wTypeKeys "<Delete>"
 109         '///  string in Undo-list has to be: "Delete floating frame")
 110         Call CheckUndoStringInUndoList ( 10, "DeleteFloatingFrame" )
 111
 112         '/// close document
 113         Call hCloseDocument
 114 endcase
 115
 116
 117 testcase tUndoInsertFile
 118
 119         '/// <B>Insert File</B>
 120         printlog "- Insert file"
 121         '/// new document
 122         Call hNewDocument
 123         '/// Insert / File
 124         InsertFileWriter
 125     Sleep 3
 126     Kontext "OeffnenDlg"
 127     Sleep 2
 128     '/// Choose "..\\writer\\input\\htmltest.sxw"
 129         if OeffnenDlg.Exists then
 130                 Dateiname.Settext Convertpath (gTesttoolPath & "writer\optional\input\undo\htmltest.sxw" )
 131                 Oeffnen.Click
 132         else
 133                 Warnlog "File open dialog missing"
 134                 Call hCloseDocument
 135                 goto endsub
 136         end if
 137
 138         '///  string in Undo-list has to be: "Insert document")
 139         Call CheckUndoStringInUndoList ( 10, "InsertDocument" )
 140
 141         '/// close document
 142         Call hCloseDocument
 143 endcase
 144
 145
 146 testcase tUndoAsianPhoneticGuides
 147
 148         '/// <B>Asian Phonetic Guides</B>
 149         printlog "- Asian Phonetic Guides"
 150         '/// new document
 151         Call hNewDocument
 152         '/// type some text and select it
 153         Call wTypeKeys ( "JuppHeidiUndJuppHeida" )
 154         Call wTypeKeys ( "<Home>" )
 155         '/// Check if Asian support is enabled, if not enable it
 156         if gAsianSup = true then
 157                 FormatRuby
 158                 Kontext "RubyDialog"
 159                 RubyText1.Settext "SeppHeidiUndSeppHeida"
 160                 RubyDialog.Ok
 161                 RubyDialog.Close
 162         else
 163                 Call ActiveDeactivateAsianSupport(True)
 164                 FormatRuby
 165                 Kontext "RubyDialog"
 166                 RubyText1.Settext "SeppHeidiUndSeppHeida"
 167                 RubyDialog.Ok
 168                 RubyDialog.Close
 169                 Call ActiveDeactivateAsianSupport(False)
 170         end if
 171
 172         '///  string in Undo-list has to be: "Asian Phonectic Guides Setting")
 173         Call CheckUndoStringInUndoList ( 10, "APGS" )
 174
 175         '/// close document
 176         Call hCloseDocument
 177 endcase
 178
 179
 180 testcase tUndoAutocorrect
 181
 182         '/// <B>Autocorrect / Autoformat</B>
 183         printlog "- Autocorrect / Autoformat"
 184         '/// new document
 185         Call hNewDocument
 186         '/// <B>Autocorrect</B>
 187         printlog "- Autocorrect"
 188         '/// type with quote and blank at the end 'www.sun.com '
 189         Call wTypeKeys ( "www.sun.com " )
 190         '///  string in Undo-list has to be: "AutoCorrect")
 191         Call CheckUndoStringInUndoList ( 10, "AutoCorrect" )
 192
 193     '/// insert a line break
 194         Call wTypeKeys ( "<Return>" )
 195         '/// <B>Autoformat</B>
 196         printlog "- Autoformat"
 197         '/// type - AutoFormat test<Return>
 198         Call wTypeKeys ( "- AutoFormat test<Return>" )
 199         '///  string in Undo-list has to be: "AutoCorrect")
 200         Call CheckUndoStringInUndoList ( 10, "AutoFormat" )
 201
 202         '/// close document
 203         Call hCloseDocument
 204 endcase
 205
 206
 207 testcase tUndoDrawObject
 208         '/// <B>Draw object</B>
 209         printlog "- Draw object"
 210         '/// new document
 211         Call hNewDocument
 212         '/// Insert a freeform line object
 213
 214     ViewZoom
 215     Kontext "Massstab"
 216     Optimal.Check
 217     Massstab.OK
 218
 219     Call hToolbarSelect ("Drawing", true)
 220     Kontext "Drawbar"
 221     printlog "  - Draw Freeform"
 222     Freihand.Click
 223     Call gMouseMove ( 33, 40, 55, 51 )
 224     Call gMouseMove ( 35, 31, 40, 90 )
 225     Call gMouseMove ( 41, 91, 55 , 70 )
 226     Call gMouseClick( 55, 70 )
 227     Call wTypeKeys ("<Escape>")
 228
 229         '///  string in Undo-list has to be: "Insert draw object: freeform line")
 230         Call CheckUndoStringInUndoList ( 10, "FreeForm" )
 231
 232         '/// close document
 233         Call hCloseDocument
 234 endcase
 235
 236
 237 testcase tUndoDrawObjectGroup
 238
 239         '/// <B>Group of Drawing objects</B>
 240         printlog "- Group of Drawing objects"
 241     '/// new document ///
 242     Call hNewDocument
 243     ViewZoom
 244     Kontext "Massstab"
 245     Optimal.Check
 246     Massstab.OK
 247     Sleep 1
 248     '/// Insert 2 drawing objects (rectangle) ///
 249     Call wZeichenobjektEinfuegen ( "Rechteck", 40, 50, 60, 60 )
 250     Call wTypeKeys "<ESCAPE>"
 251     Call wTypeKeys "<ESCAPE>"
 252     Call wZeichenobjektEinfuegen ( "Rechteck", 40, 55, 50, 65 )
 253     '/// Select both objects ///
 254     Call wObjektSelektieren ( 35, 35, 70, 70 )
 255     '/// Select Format / Group / Group ///
 256     try
 257         printlog "- group objects"
 258                 FormatGroupGroup
 259         Sleep 1
 260                 '///  string in Undo-list has to be: "Group draw objects")
 261                 Call CheckUndoStringInUndoList ( 10, "DrawGroup" )
 262
 263                 '/// Format / Name object
 264                 printlog "- name objects"
 265                 FormatNameObject
 266                 Kontext "NameDlgObject"
 267                 NameField.Settext "MyGroup"
 268                 NameDlgObject.OK
 269                 '///  string in Undo-list has to be: "Rename 2 Rectangles")
 270                 Call CheckUndoStringInUndoList ( 10, "RenameGroup" )
 271
 272                 '/// Select Format / Group / Ungroup ///
 273                 printlog "- ungroup objects"
 274                 FormatUngroupDraw
 275                 '///  string in Undo-list has to be: "Ungroup group object")
 276                 Call CheckUndoStringInUndoList ( 10, "DrawUnGroup" )
 277
 278                 '/// Select 1 object and delete it
 279                 Call gMouseClick ( 40, 52 )
 280                 printlog "- delete object"
 281                 Call wTypeKeys "<Delete>"
 282                 '///  string in Undo-list has to be: "Delete 2 Rectangles")
 283                 Call CheckUndoStringInUndoList ( 10, "DeleteGroup" )
 284         catch
 285         Warnlog "Unable to execute 'Format / Group / Group' -> disabled!"
 286     endcatch
 287
 288         '/// close document
 289         Call hCloseDocument
 290 endcase
 291
 292
 293 testcase tUndoSpellcheck
 294         Dim sReplace as string
 295
 296         '/// <B>Spellcheck(Autocheck/Spellcheck)</B>
 297         printlog "- Spellcheck: Autocheck"
 298     '/// new document ///
 299     hfileOpen (gTesttoolpath + "writer\optional\input\undo\spellcheck_undo.odt")
 300     Call sMakeReadOnlyDocumentEditable
 301         '/// Type "This is a testp<End>"
 302         Call wTypeKeys ( "<End>" )  'This is a testp
 303         '/// Select word' testp'
 304         Call wTypeKeys ( "<Mod1 Shift Left>" )
 305         '/// Tools / Spellcheck
 306         ToolsSpellcheckWriter
 307         Kontext "Spellcheck"
 308         Suggestions.Select 1
 309         sReplace = Suggestions.GetSelText
 310         '///Replace with 1st word in suggestion list
 311         printlog "-> Replace with word: " & sReplace
 312         Change.Click
 313         Kontext "Active"
 314         if Active.Exists then
 315                 if Active.GetRT = 304 then
 316                         Active.Ok
 317                 end if
 318         end if
 319         Kontext "Spellcheck"
 320         if Spellcheck.Exists then Spellcheck.Close
 321         '///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'")
 322         Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
 323
 324     '/// Uncheck 'Autospellcheck' in Toolbar ///
 325     ToolsSpellcheckAutoSpellcheck
 326
 327         printlog "- Spellcheck"
 328         Call wTypeKeys ( "<End><Return>", 2 )
 329         '/// retype 'testp'
 330         Call wTypeKeys ( "testp<Shift Home>" )
 331         ToolsSpellcheckWriter
 332         Kontext "Spellcheck"
 333         ' Workaround: For some reasons sometimes dialog is disabled here
 334         ' Only reproducable by testtool
 335         try
 336                 Suggestions.Select 1
 337         catch
 338                 Spellcheck.Close
 339                 ToolsSpellcheckWriter
 340                 Kontext "Spellcheck"
 341                 Suggestions.Select 1
 342         endcatch
 343         Change.Click
 344         Kontext "Active"
 345         if Active.Exists then
 346                 if Active.GetRT = 304 then
 347                         try
 348                                 Active.No
 349                         catch
 350                                 Active.Ok
 351                         endcatch
 352                 end if
 353         end if
 354         Kontext "Spellcheck"
 355         if Spellcheck.Exists then Spellcheck.Close
 356
 357         '///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'")
 358         Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
 359
 360         '/// close document
 361     Call hCloseDocument
 362 endcase
 363
 364
 365 testcase tUndoFormControl
 366
 367         '/// <B>Form Control (Insert/resize/move/replace/change property/delete)</B>
 368         printlog "- Form control (insert)"
 369         '/// new document
 370         Call hNewDocument
 371         '/// Open 'Form' Toolbox ///
 372         Call hToolbarSelect ("FormControls", true)
 373         'Formsbar.Move 20, 30
 374         '/// Insert a pushbutton from toolbox ///
 375         Pushbutton.Click
 376     Kontext "DocumentWriter"
 377     DocumentWriter.MouseDown ( 40, 50 )
 378     DocumentWriter.MouseMove ( 50, 55 )
 379     DocumentWriter.MouseUp   ( 50, 55 )
 380     Sleep 1
 381
 382         '///  string in Undo-list has to be: "Insert control")
 383         Call CheckUndoStringInUndoList ( 10, "ControlInsert" )
 384
 385         printlog "- Form control (move)"
 386         '/// Press '<Up>' to move control
 387         Call wTypeKeys ( "<Up>" )
 388         '///  string in Undo-list has to be: "Move control")
 389         Call CheckUndoStringInUndoList ( 10, "ControlMove" )
 390
 391         printlog "- Form control (resize)"
 392         '/// Press '<Ctrl+Tab>' to enter handle selection mode
 393         Call wTypeKeys ( "<Mod1 Tab>" )
 394         '/// Press '<Up>' to resize control
 395         Call wTypeKeys ( "<Up>" )
 396         '///  string in Undo-list has to be: "Resize control")
 397         Call CheckUndoStringInUndoList ( 10, "ControlResize" )
 398
 399         printlog "- Form control (replace)"
 400         '/// Select 'Format->Replace with-> Text box'
 401         FormatReplaceWithTextBox
 402         wait 500
 403         '///  string in Undo-list has to be: "Replace control")
 404         Call CheckUndoStringInUndoList ( 10, "ControlReplace" )
 405
 406         printlog "- Form control (change property)"
 407         '/// Select 'Format->Control' and change name of control
 408         FormatControl
 409         Kontext "ControlPropertiesTabControl"
 410     ControlPropertiesTabControl.setPage TabGeneralControl
 411         Kontext "TabGeneralControl"
 412         NameText.Settext "MyControl"
 413     FormatControl
 414         '///  string in Undo-list has to be: "Set property 'Name'")
 415         Call CheckUndoStringInUndoList ( 10, "ControlChange" )
 416
 417         printlog "- Form control (delete)"
 418         '/// Press '<Delete>' to delete control
 419         Call wTypeKeys ( "<Delete>" )
 420         '///  string in Undo-list has to be: "Delete control")
 421         Call CheckUndoStringInUndoList ( 10, "ControlDelete" )
 422
 423         '/// close document
 424     Call hCloseDocument
 425 endcase
 426
 427
 428 testcase tUndoHeaderFooter
 429
 430     QAErrorlog "#i56552#footer deletion cannot be undone"
 431     goto endsub
 432         '/// Insert header
 433         printlog "- Insert header"
 434         '/// new Document
 435         Call hNewDocument
 436         '/// Insert / Header / Default
 437      DocumentWriter.UseMenu
 438      MenuSelect(Menugetitemid(4))
 439      Sleep 2
 440      MenuSelect(Menugetitemid(9))
 441      Sleep 2
 442      MenuSelect(Menugetitemid(1))
 443      Sleep 2
 444         '///  string in Undo-list has to be: "Header/footer changed")
 445         Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
 446
 447         '///  Delete header
 448         printlog "- Delete header"
 449     Kontext "DocumentWriter"
 450         DocumentWriter.UseMenu
 451     MenuSelect(Menugetitemid(4))
 452     Sleep 2
 453     MenuSelect(Menugetitemid(9))
 454     Sleep 2
 455     MenuSelect(Menugetitemid(1))
 456     Sleep 2
 457         Kontext "Active"
 458         if Active.Exists then
 459                 if Active.GetRT = 304 then
 460                         Active.Yes
 461                 end if
 462         end if
 463         '///  string in Undo-list has to be: "Header/footer changed")
 464         Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
 465
 466         '/// Insert footer
 467         printlog "- Insert footer"
 468         '/// Insert / Header / Default
 469      Kontext "DocumentWriter"
 470          DocumentWriter.UseMenu
 471      MenuSelect(Menugetitemid(4))
 472      Sleep 2
 473      MenuSelect(Menugetitemid(10))
 474      Sleep 2
 475      MenuSelect(Menugetitemid(1))
 476      Sleep 2
 477         '///  string in Undo-list has to be: "Header/footer changed")
 478         Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
 479
 480         '///  Delete footer
 481         printlog "- Delete footer"
 482     Kontext "DocumentWriter"
 483         DocumentWriter.UseMenu
 484     MenuSelect(Menugetitemid(4))
 485     Sleep 2
 486     MenuSelect(Menugetitemid(10))
 487     Sleep 2
 488     MenuSelect(Menugetitemid(1))
 489     Sleep 2
 490         Kontext "Active"
 491         if Active.Exists then
 492                 if Active.GetRT = 304 then
 493                         Active.Yes
 494                 end if
 495         end if
 496         '///  string in Undo-list has to be: "Header/footer changed")
 497         Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
 498
 499          '/// close document
 500          Call hCloseDocument
 501 endcase