testautomation/global/system/includes/declare.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: declare.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-19 12:49:25 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : starting routines for declare.bas
  37 '*
  38 '*****************************************************************
  39 '*
  40 ' #1 GetUseFiles
  41 ' #1 LoadDeclaration
  42 ' #1 TestEnter
  43 ' #1 TestExit
  44 ' #1 hOfficeStarten
  45 ' #0 TrimTab
  46 ' #0 lTrimTab
  47 ' #0 rTrimTab
  48 '*
  49 '\****************************************************************
  50
  51 ' *****************************************************************
  52 '  ruft alle wichtigen Startroutinen auf
  53 '
  54 sub GetUseFiles()
  55 '///
  56    Use "global\system\includes\sysinfo.inc"
  57    Use "global\system\includes\inivalue.inc"
  58    Use "global\system\includes\iniinfo.inc"
  59
  60 '   Use "global\tools\includes\optional\t_xml1.inc"
  61    Use "global\tools\includes\required\t_tools1.inc"
  62    Use "global\tools\includes\required\t_tools2.inc"
  63    Use "global\tools\includes\required\t_lists.inc"
  64
  65    Call LoadDeclaration                  ' Deklarationen einlesen ( master.inc )
  66    Call GetToolPlatform                  ' Plattform und Pfade des Testtools bestimmen ( sysinfo.inc )
  67    Call GetOfficePlatform                ' Plattform und Pfade des Office bestimmen ( sysinfo.inc )
  68    Call GetIniInformation                ' alle wichtigen Daten aus der Testtool.ini ziehen und auf glob. Variable setzen ( iniinfo.inc )
  69    Call GetOfficeInformation             ' set 'sAppExe' for startup
  70    Call hOfficeStarten                   ' try to start the office for first time ( master.inc )
  71    Call GetLanguageInformation           ' die Sprache des Office ermitteln und ggf. einstellen ( iniinfo.inc )
  72    Call hDisableQuickstarterAPI
  73 end sub
  74
  75 ' **********************************************************
  76 '  Einbinden der Deklarationen
  77 '
  78 sub LoadDeclaration
  79 '///load all sid-files
  80    use "global\sid\all.sid"         ' all menu items ( german )
  81    use "global\sid\bars.sid"         ' all bars as slots
  82    use "global\sid\context.sid"      ' slots only used in context menus
  83    use "global\sid\e_all.sid"        ' all menu items ( english )
  84    use "global\sid\others.sid"       ' general slots ( german )
  85
  86 '///load all win-files
  87    use "global\win\tab_a_d.win"      ' Tabpages TabA ...TabZ
  88    use "global\win\tab_e_g.win"
  89    use "global\win\tab_h_o.win"
  90    use "global\win\tab_p_s.win"
  91    use "global\win\tab_t_z.win"
  92
  93    use "global\win\dial_a_c.win"     ' Dialogs A ... Z
  94    use "global\win\dial_d_h.win"
  95    use "global\win\dial_i_o.win"
  96    use "global\win\dial_p_s.win"
  97    use "global\win\dial_t_z.win"
  98
  99    use "global\win\sys_dial.win"     ' Systemdialogs
 100    use "global\win\dokument.win"     '
 101    use "global\win\mathop.win"       ' Mathoperators
 102
 103    use "global\win\piloten.win"      ' Draw-Autopilot
 104    use "global\win\w_autop.win"      ' Writer-Autopilots
 105
 106    use "global\win\bars.win"         ' bars with buttons ( englisch )
 107
 108    use "global\win\e_mathop.win"
 109    use "global\win\edia_a_c.win"
 110    use "global\win\edia_d_h.win"
 111    use "global\win\edia_i_o.win"
 112    use "global\win\edia_p_s.win"
 113    use "global\win\edia_t_z.win"
 114    use "global\win\etab_a_d.win"
 115    use "global\win\etab_e_g.win"
 116    use "global\win\etab_h_o.win"
 117    use "global\win\etab_p_s.win"
 118    use "global\win\etab_t_z.win"
 119
 120    use "global\win\etoolbox.win"
 121
 122    use "global\win\spadmin.win"
 123    use "global\win\reportdesigner.win"
 124
 125 end sub
 126 '
 127 '-------------------------------------------------------------------------------
 128 '
 129 sub TestEnter
 130 '///special TestEnter : without recovering at starting a testcase
 131
 132    Dim sFehler as String
 133    Dim Unterbrechnung as Boolean
 134
 135    Unterbrechnung = FALSE
 136
 137    try
 138       sFehler = ResetApplication
 139       if sFehler <> "" then
 140          WarnLog "   **    Fehler in der TestEnter-Routine      **"
 141
 142          if InStr ( 1, sFehler, "nicht schliessen", 1 ) <> 0 then
 143             printLog sFehler
 144             Unterbrechnung = TRUE
 145          else
 146             printLog sFehler
 147          end if
 148       end if
 149    catch
 150       WarnLog "   **    Fehler in der TestEnter-Routine      **"
 151       printLog "!!!  Konnte nicht auf Grundzustand kommen  !!!"
 152       Unterbrechnung = TRUE
 153    endcatch
 154
 155    try
 156       AppAbort                       ' Alle noch anstehenden Befehle loeschen
 157    catch
 158    endcatch
 159
 160    if Unterbrechnung = TRUE then
 161       if ( MsgBox ("Konnte nicht in den Grundzustand kommen." + Chr(10) + "Bitte die Applikation selbst in den Basiszustand setzten und OK druecken", 1, "TestEnter-Routine" )) = 2 then end
 162    else
 163       Kontext "Standardbar"
 164       if Standardbar.Exists = FALSE then
 165          ViewFullScreen
 166          if Standardbar.Exists (3) then
 167             Warnlog "Ansicht/Ganzerbildschirm war noch eingeschaltet"
 168          else
 169             ViewToolbarsFunctionbar
 170             if Standardbar.Exists (3) then Warnlog "Standardbar was turned off"
 171          end if
 172       end if
 173    end if
 174
 175    try
 176       AppAbort                       ' Alle noch anstehenden Befehle loeschen
 177    catch
 178    endcatch
 179
 180    Kontext
 181 end sub
 182 '
 183 '-------------------------------------------------------------------------------
 184 '
 185 sub TestExit
 186 '///special TestEnter : without recovering at ending a testcase
 187    Dim sFehler as String
 188    Dim Unterbrechnung as Boolean
 189
 190    Unterbrechnung = FALSE
 191
 192    try
 193       sFehler = ResetApplication
 194       if sFehler <> "" then
 195          Warnlog "   **    Fehler in der TestExit-Routine      **"
 196
 197          if InStr ( 1, sFehler, "nicht schliessen", 1 ) <> 0 then
 198             printLog sFehler
 199             Unterbrechnung = TRUE
 200          else
 201             printLog sFehler
 202          end if
 203       end if
 204    catch
 205       WarnLog "   **    Fehler in der TestExit-Routine      **"
 206       printLog "!!!  Konnte nicht auf Grundzustand kommen, es wurde vielleicht von Hand recovert.   !!!"
 207       Unterbrechnung = TRUE
 208    endcatch
 209
 210    try
 211       AppAbort                       ' Alle noch anstehenden Befehle loeschen
 212    catch
 213    endcatch
 214
 215    if Unterbrechnung = TRUE then
 216       if ( MsgBox ("Konnte nicht in den Grundzustand kommen." + Chr(10) + "Bitte die Applikation selbst in den Basiszustand setzten und OK druecken", 1, "TestExit-Routine" )) = 2 then End
 217    else
 218       Kontext "Standardbar"
 219       if Standardbar.Exists = FALSE then
 220          ViewFullScreen
 221          if Standardbar.Exists (3) then
 222             Warnlog "Ansicht/Ganzerbildschirm war noch eingeschaltet"
 223          else
 224             ViewToolbarsFunctionbar
 225             if Standardbar.Exists (3) then Warnlog "Standardbar was turned off"
 226          end if
 227       end if
 228    end if
 229
 230    try
 231       AppAbort                       ' Alle noch anstehenden Befehle loeschen
 232    catch
 233    endcatch
 234
 235    Kontext
 236 end sub
 237
 238 '-------------------------------------------------------------------------------
 239
 240 sub hOfficeStarten
 241     dim sUnoPort as string
 242     dim sPlatformProgramPath as string
 243     dim sPlatformBinExt as string
 244
 245     ' Set a valid URE_BOOTSTRAP path for soffice, else the invalid one from this testtool instance
 246     ' will get used i86718 - would result in a message about vcl stuff and a not starting soffice
 247     if gPlatform = lcase("osx") then
 248         sPlatformProgramPath = "MacOS"
 249         sPlatformBinExt = "rc"
 250     else
 251         sPlatformProgramPath = "program"
 252         if gPlatGroup <> "unx" then
 253             sPlatformBinExt = ".ini"
 254         else
 255             sPlatformBinExt = "rc"
 256         end if
 257     end if
 258     setChildEnv("URE_BOOTSTRAP",convertToURL(convertPath(gNetzOfficePath + sPlatformProgramPath + "/fundamental" + sPlatformBinExt)))
 259
 260
 261     if gClient = TRUE then
 262        try
 263           start sAppExe, sAppParameter
 264 ' hiermit kann der Client nicht gestartet werden, aber wenn er schon aktiv ist, darf der Shell-befehl nicht ausgeführt werden
 265        catch
 266           shell ( sAppExe & sAppParameter, 1 )
 267           wait 10000
 268        endcatch
 269     end if
 270
 271     hGetUNOService(true, sUnoPort)
 272     try
 273        start sAppExe, "-enableautomation -norestore -nolockcheck -accept=socket,host=localhost,port=" + sUnoPort + ";urp "
 274     catch
 275        if gSamePC = FALSE then
 276           Exceptlog
 277           if MsgBox ("Ein Office auf einem anderen Rechner/Plattform kann nicht automatisch gestartet werden." + Chr(10) + "Bitte das Office selber starten und Test weiterlaufen lassen.", 1, "Starten des Office" ) = 2 then end
 278        else
 279           Exceptlog
 280           if gClient = TRUE then
 281              if MsgBox ( "Beim Start des Office-Client gab es Probleme. Bitte den Client von Hand starten und den Test weiterlaufen lassen!", 1, "Starten des Office" ) = 2 then end
 282           else
 283              if gNetzInst = TRUE then
 284                 Warnlog "Beim Start des Workstation-Office gab es Probleme, es wird ein 2. Start versucht!"
 285              else
 286                 Warnlog "Beim Starten des Office gab es Probleme, es wird ein 2. Start versucht!"
 287              end if
 288           end if
 289        end if
 290        wait 2000
 291    endcatch
 292
 293    if gClient = TRUE then
 294       start sAppExe, sAppParameter
 295    else
 296       start sAppExe, "-enableautomation -norestore -nolockcheck "
 297    end if
 298    wait 3000
 299 end sub
 300
 301 '-------------------------------------------------------------------------------
 302
 303 function TrimTab ( sTrimmer as String ) as String
 304    Dim sInterim as String
 305
 306    sInterim = sTrimmer
 307    sInterim = lTrimTab ( sInterim )
 308    TrimTab = rTrimTab ( sInterim )
 309
 310 end function
 311
 312 '-------------------------------------------------------------------------------
 313
 314 function lTrimTab ( slTrimmer as String ) as String
 315    Dim i, iLen as Integer
 316    Dim sInterim as String
 317
 318    iLen = len ( slTrimmer )
 319    sInterim = slTrimmer
 320
 321    for i=1 to iLen
 322       if Asc ( left ( sInterim, 1 ) ) = 9 then
 323          sInterim = Right ( sInterim, len ( sInterim ) - 1 )
 324       else
 325          i=iLen+1
 326       end if
 327    next i
 328    lTrimTab = sInterim
 329 end function
 330
 331 '-------------------------------------------------------------------------------
 332
 333 function rTrimTab ( srTrimmer as String ) as String
 334    Dim i, iLen as Integer
 335    Dim sInterim as String
 336
 337    iLen = len ( srTrimmer )
 338    sInterim = srTrimmer
 339
 340    for i=1 to iLen
 341       if Asc ( right ( sInterim, 1 ) ) = 9 then
 342          sInterim = left ( sInterim, len ( sInterim ) - 1 )
 343       else
 344          i=iLen+1
 345       end if
 346    next i
 347    rTrimTab = sInterim
 348 end function
 349
 350 '-------------------------------------------------------------------------------
 351
 352 sub StartTheOffice
 353     '/// this routine is not intended to be called from within a testscript.
 354     '/// this routine will get called by the VCL TestTool application, in case it recognizes there is no soffice.bin running anymore or not responding anymore
 355     '/// this happens usually after OpenOffice.org crashed
 356     'keep it as short as possible!
 357     warnlog "OpenOffice.org application crashed or can not be started. Double click the above error message if exists for the culprint."
 358     hOfficeStarten()
 359     try
 360         catchGPF false
 361     catch
 362     endcatch
 363     hDisableQuickstarterAPI()
 364     ' set global variable for backwards compatibility
 365     gStartTheOffice = TRUE
 366 end sub
 367