testautomation/graphics/optional/includes/global/g_find_replace.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: g_find_replace.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description : Edit -> Find & Replace
  37 '*
  38 '***********************************************************************************
  39 '*
  40 ' #1 tiEditSearchAndReplace
  41 ' #1 tiEditSearchAndReplaceBUGS
  42 '*
  43 '\**********************************************************************************
  44 testcase tiEditSearchAndReplace
  45    '/// This test tests the 'Search and Replace' -dialogue. ///'
  46    Dim sFile  'as string
  47    Dim sExpression(2) as string  ' Expression to look for: ... Replace with
  48    dim sExt as string
  49
  50    Select Case Ucase(gApplication)
  51        case "DRAW"      : sExt = ".odg"
  52        case "IMPRESS"   : sExt = ".odp"
  53    end select
  54
  55   'First we need some errornes words to replace. (sExpression)
  56   'sExpression(1) has to be 3 times in the document
  57      select case iSprache
  58          case 01 : sExpression(1) = "Alle" : sExpression(2) = "Allz"
  59          case 03 : sExpression(1) = "empreza" : sExpression(2) = "Emperor"       ' Portuguese
  60          case 07 : qaerrorlog "No files for Russian yet, will use english instead."
  61                            sExpression(1) = "Alle" :  sExpression(2) = "Allz"
  62          case 30 :        ' Greek
  63          case 31 : sExpression(1) = "bedoeling" : sExpression(2) = "Bedoling"    ' Netherlands
  64          case 33 : sExpression(1) = "projjet" : sExpression(2) = "projete"       ' French
  65          case 34 : sExpression(1) = "lazsos" : sExpression(2) = "Lazsi"           ' Spanish
  66          case 35 :        ' Finnish
  67          case 36 : sExpression(1) = "Bozniai" : sExpression(2) = "Boszniai"            ' Hungaria
  68          case 37 :        ' Catalan
  69          case 39 : sExpression(1) = "Presentazione" : sExpression(2) = "Raggazi" ' Italian
  70          case 42 :        ' Czech
  71          case 43 :        ' Slowak
  72          case 44 :        ' English (GB)
  73          case 45 : sExpression(1) = "installlere" : sExpression(2) = "installer" ' Danish
  74          case 46 : sExpression(1) = "desa" : sExpression(2) = "ased"             ' Swedish
  75          case 47 :        ' Norwegian
  76          case 48 : sExpression(1) = "programmu" : sExpression(2) = "programu"    ' Polish
  77          case 49 : sExpression(1) = "Texxt" : sExpression(2) = "Schrieb"         ' German
  78          case 55 : sExpression(1) = "esktava" : sExpression(2) = "norte"         ' Portuguese (Brazil)
  79          case 66 :        ' Thai
  80 '         case 81 : sExpression(1) = "���" : sExpression(2) = "���"       ' Japanese
  81          '      case 82 :        ' Korean
  82          '      case 86 :        ' Chinese (simplified)
  83          '      case 88 :        ' Chinese (traditional)
  84          case 90 :        ' Turkish
  85          case 91 :        ' Hindi
  86          case 96 :        ' Arab
  87          case 97 :        ' Hebrew
  88          case else :
  89 '                Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here and create the file"
  90                 printlog " :-) Will use English instead"
  91                 sExpression(1) = "Alle" :  sExpression(2) = "Allz"
  92     end select
  93
  94     if ((bAsianLan) OR (iSprache = 07)) then
  95         Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+"1"+sExt)
  96     else
  97         Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
  98     endif
  99     ' check if the document is writable
 100     if fIsDocumentWritable = false then
 101         ' make the document writable and check if it's succesfull
 102         if fMakeDocumentWritable = false then
 103             warnlog "The document can't be make writeable. Test stopped."
 104             goto endsub
 105         endif
 106     endif
 107     sleep 3
 108     gMouseClick 50,40
 109     sleep 3
 110     Kontext "Messagebox"
 111     if Messagebox.Exists then
 112         Warnlog Messagebox.GetText
 113         Messagebox.OK
 114     end if
 115     sleep 2
 116     hTypeKeys "<MOD1 HOME>"     '/// Select the text ///'
 117
 118  '/// Edit-Find & Replace I///'
 119     EditSearchAndReplace
 120     sleep 1
 121     Kontext "FindAndReplace"
 122     '/// Clap the 'more options'-part open ///'
 123     More.Click
 124     '/// verify, that search is done without 'similarity search' !!! ///'
 125     if SimilaritySearch.IsChecked = TRUE then
 126         SimilaritySearch.UnCheck
 127         warnlog "'Similar search' checkbox was enabled! It shouldn't be the default!"
 128     end if
 129     SearchFor.SetText sExpression(1)                               '/// set Search text ///'
 130     ReplaceWith.SetText sExpression(2)                            '/// set Replace text///'
 131
 132  '/// Word has to be there ONLY three times ///'
 133     SearchNow.Click                                        '/// 1st search for text ///'
 134     Kontext "Messagebox"
 135         if Messagebox.Exists(2) then
 136             Printlog Messagebox.GetText
 137             Messagebox.OK
 138         end if
 139     sleep 1
 140     Kontext "FindAndReplace"
 141
 142     SearchNow.Click                   '/// 2nd search for text ///'
 143     Kontext "Messagebox"
 144         if Messagebox.Exists(2) then
 145             Printlog Messagebox.GetText
 146             Messagebox.OK
 147         end if
 148     sleep 1
 149     Kontext "FindAndReplace"
 150
 151     SearchNow.Click                   '/// 3th search for text///'
 152     Kontext "Messagebox"
 153         if Messagebox.Exists(2) then
 154             Printlog Messagebox.GetText
 155             Messagebox.OK
 156         end if
 157     sleep 1
 158     Kontext "FindAndReplace"
 159
 160     SearchNow.Click                   '/// 4th search for text; but it is no more available!///'
 161     sleep 2
 162     kontext "Messagebox"
 163     if Messagebox.Exists Then
 164         Printlog "- The word was found 3 times: '" + messagebox.gettext + "'"
 165         Messagebox.OK
 166     else
 167         SearchNow.Click               '/// 5th search for word 1///'
 168         kontext
 169         if Messagebox.Exists (5) Then
 170             Printlog "?: "+Messagebox.gettext
 171         Warnlog "- No MsgBox appeared: 'changed'"
 172             Messagebox.OK
 173         endif
 174         Warnlog "- No MsgBox appeared: 'changed'"
 175     end if
 176
 177  '/// Replace all ///'
 178     Kontext "FindAndReplace"
 179     sleep 1
 180     ReplaceAll.Click
 181     Kontext "Messagebox"
 182     if Not Messagebox.Exists (2) then
 183     '      Warnlog "  Not all words are replaced" ' there never was a mesagebox ! (compared to 5.2)
 184     else
 185         printlog messagebox.gettext
 186         qaerrorlog "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
 187         Messagebox.OK
 188     end if
 189     Kontext "FindAndReplace"
 190     sleep 2
 191     SearchNow.Click                                        '/// Search for word 1 to check if all words are replaced ///'
 192     Kontext "Messagebox"
 193     if Not Messagebox.Exists then
 194         Warnlog "  Not all words are replaced (Replace All)"
 195     else
 196         printlog "Search key not found!: '" + messagebox.gettext + "'"
 197         Messagebox.OK
 198     end if
 199     Kontext "FindAndReplace"
 200     FindAndReplace.Close
 201     sleep 3
 202
 203  '/// Edit-Find & Replace II ///'
 204     gMouseClick 50,50
 205     sleep 1
 206     hTypeKeys "<MOD1 HOME>"
 207     EditSearchAndReplace
 208     sleep 1
 209     Kontext "FindAndReplace"
 210     SearchFor.SetText sExpression(2)           '/// Search for word 2 ///'
 211     ReplaceWith.SetText sExpression(1)       '/// Replace with word 1 ///'
 212
 213     Replace.Click                      '/// Replace 1 ///'
 214     Kontext "Messagebox"
 215     if Messagebox.Exists(4) Then
 216         Kontext "Messagebox"
 217         Messagebox.OK
 218         Printlog "  Clicked 'OK' in the messagebox after searching and replacing the word(s)"
 219     else
 220         Printlog "  Word replaced, no messagebox appeared afterwards"
 221     end if
 222     Kontext "FindAndReplace"
 223     sleep 1
 224
 225     SearchNow.Click                       '/// 2nd search for word 2 ///'
 226     Kontext "Messagebox"
 227     if Messagebox.Exists(2) Then
 228         Warnlog "  All words got replaced, but only the 1st should have been"
 229         Kontext "Messagebox"
 230         Messagebox.OK
 231         Kontext "FindAndReplace"
 232     else
 233         Printlog "  Word replaced"
 234     end if
 235
 236  '/// Replace all ///'
 237     Kontext "FindAndReplace"
 238     ReplaceAll.Click
 239     kontext "Messagebox"
 240     if Messagebox.Exists(4) Then
 241         Messagebox.OK
 242     else
 243         Printlog "- No messagebox after replace all"
 244     end if
 245
 246  '/// Search for word 2 to check if all are replaced ///'
 247     Kontext "FindAndReplace"
 248     SearchNow.Click
 249     kontext "Messagebox"
 250     if Messagebox.Exists(2) Then
 251         printlog "Search key not found!: " + messagebox.gettext +"'"
 252         Messagebox.OK
 253     else
 254         Warnlog "- Replace all does not work properly"
 255     end if
 256
 257     Kontext "FindAndReplace"
 258     More.Click
 259     FindAndReplace.Close
 260     sleep 2
 261   '/// Close document ///'
 262     Call hCloseDocument
 263
 264 endcase 'tiEditSearchAndReplace
 265 '--------------------------------------------------------
 266 testcase tiEditSearchAndReplaceBUGS
 267
 268 '/// inspired by bugs: 101974, 101975, 101976 ///'
 269    dim i as integer
 270    dim bTemp as boolean
 271
 272    '/// open application ///'
 273    Call hNewDocument
 274    sleep 3
 275    '/// Edit->Search and Replace ///'
 276    EditSearchAndReplace
 277    Kontext "FindAndReplace"
 278    if FindAndReplace.Exists (5) then
 279       Printlog "Dialog for Search&Replace could be opened :-)"
 280    else
 281       Warnlog "Dialog for Search&Replace could NOT be opened :-("
 282    endif
 283
 284    '/// for al 5 views in 'View->Workspace->...' do:  ///'
 285    for i = 1 to 6
 286       Printlog "- " + i + " View->Workspace->... ------------------------------------------------------"
 287       try
 288          select case i
 289             case 1:Printlog "                                        Drawing"
 290                      ViewWorkspaceDrawingView
 291             case 2:Printlog "                                        Outline"
 292                      ViewWorkspaceOutlineView
 293             case 3:Printlog "                                         Slides"
 294                      ViewWorkspaceSlidesView
 295             case 4:Printlog "                                         Notes"
 296                      ViewWorkspaceNotesView
 297             case 5:Printlog "                                         Handout"
 298                      ' this is done this way, to regcognize BUGID:101975
 299                      ViewWorkspaceHandoutView
 300             case 6:Printlog "                                         Drawing"
 301                      ViewWorkspaceDrawingView
 302          end select
 303       catch
 304          Warnlog "Couldn't excecute the last view ^^^^^^^^^ :-("
 305          Printlog "Will close the search&replace dialog as a workaround and then try to switch to the view again"
 306          Kontext "FindAndReplace"
 307          FindAndReplace.close
 308          sleep 5
 309          try
 310             select case i
 311                case 1:ViewWorkspaceDrawingView
 312                case 2:ViewWorkspaceOutlineView
 313                case 3:ViewWorkspaceSlidesView
 314                case 4:ViewWorkspaceNotesView
 315                case 5:ViewWorkspaceHandoutView
 316             end select
 317          catch
 318             Warnlog "Couldn't really switch the view :-("
 319          endcatch
 320       endcatch
 321       sleep 5
 322       Kontext "FindAndReplace"
 323       '///+ if not already open, open. edit->search and replace ///'
 324       if (FindAndReplace.exists <> TRUE) then
 325          try
 326             EditSearchAndReplace
 327          catch
 328          endcatch
 329       endif
 330       if (FindAndReplace.exists <> TRUE) then
 331          if (i=3) then
 332            ' SlideView
 333          else
 334             Warnlog "Search and replace was not open, and could not be opened :-("
 335          endif
 336       else
 337          Kontext "FindAndReplace"
 338          '///+ set text to look for to "a" ///'
 339          SearchFor.SetText "a"
 340          Printlog "'///+ click button 'find' ///'"
 341          SearchNow.Click
 342          sleep 5
 343          kontext
 344          '///+ if active exists 'wrap/not found...' say OK ///'
 345          if active.exists(5) then
 346             Printlog "Active: '" + active.GetText + "'"
 347             try
 348                active.ok
 349             catch
 350                active.yes
 351                sleep 2
 352                if active.exists(5) then
 353                   Printlog "Active: '" + active.GetText + "'"
 354                   active.ok
 355                endif
 356             endcatch
 357          else
 358             ' this is done this way, to regcognize BUGID:101974
 359             Warnlog "No message about 'search key not found' :-("
 360          endif
 361       endif
 362    next i
 363    Kontext "FindAndReplace"
 364    FindAndReplace.cancel
 365    '/// close application ///'
 366    Call hCloseDocument
 367
 368 endcase 'tiEditSearchAndReplaceBUGS