testautomation/framework/required/includes/wizard_firsttime.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: wizard_firsttime.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-01 09:48:30 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Updatetest for the first time wizard
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tUpdtWizardFirsttime
  41
  42     '///<h1>Updatetest for the First-Time / Migration-Wizard</h1>
  43
  44     dim iClick as integer
  45     dim cFirstName as string
  46     dim cLastName as string
  47     dim cInitials as string
  48
  49     cFirstName = "Tom"
  50     cLastName = "Cat"
  51     cInitials = "TC"
  52
  53     dim cQuickstarterPath as string
  54         cQuickStarterPath = gNetzOfficePath & "program\quickstart.exe"
  55
  56     '///<ul>
  57
  58     '///+<li>Make sure exactly one single writer document is open</li>
  59     hInitSingleDoc()
  60
  61     '///+<li>Open the wizard</li>
  62     printlog( "Open the Wizard" )
  63     FirstTimeWizard
  64
  65     ' give the wizard a maximum of 2 seconds to open, it's a serve-url and
  66     ' should open almost instantly
  67     kontext "WelcomeDialog"
  68     if ( WelcomeDialog.exists( 2 ) ) then
  69         printlog( "The Wizard is open" )
  70         call dialogtest( WelcomeDialog )
  71
  72         '///+<li>Click the 'next' button to get to the second page</li>
  73         printlog( "click 'next'")
  74         NextBtn.click()
  75     endif
  76
  77
  78
  79
  80
  81     '///+<li>Check the license page</li>
  82     printlog( "Check the license page" )
  83     kontext "TabFirstStartLicense"
  84     if ( TabFirstStartLicense.exists( 2 ) ) then
  85         printlog( "License page is visible" )
  86         call dialogtest( TabFirstStartLicense )
  87
  88
  89         '///+<li>Enable the next-button by 'reading' the licensetext</li>
  90         printlog( "scroll down (button!) the licensetext to enable the >>-button" )
  91         for iClick = 1 to 50
  92
  93             kontext "TabFirstStartLicense"
  94             if ( ScrollDown.isEnabled( 1 ) ) then
  95                 ScrollDown.click()
  96             else
  97                 kontext "WelcomeDialog"
  98                 if ( NextBtn.isEnabled() ) then
  99                     printlog( "Needed " & iClick & " clicks on 'scroll down' " )
 100                     exit for
 101                 else
 102                     warnlog( "Both Scroll-button and Next-button are disabled" )
 103                     goto endsub
 104                 endif
 105             endif
 106         next iClick
 107
 108         sleep( 1 )
 109
 110         kontext "WelcomeDialog"
 111         if ( WelcomeDialog.exists( 2 ) ) then
 112             NextBtn.click()
 113         else
 114             warnlog( "Cannot access welcome dialog" )
 115         endif
 116     endif
 117
 118
 119
 120     '///+<li>Data Migration Page</li>
 121     printlog( "Handle Data-Migration page" )
 122     kontext "TabPersonalDataMigration"
 123     if ( TabPersonalDataMigration.exists( 2 ) ) then
 124         call dialogtest( TabPersonalDataMigration )
 125         printlog( "The data migration page is visible" )
 126         TransferPersonalData.uncheck()
 127         '///+<li>Click the 'next' button to get to the next page</li>
 128         kontext "WelcomeDialog"
 129         NextBtn.click()
 130     endif
 131
 132
 133
 134     '///+<li>Page to enter personal data</li>
 135     printlog( "The personal data page should show up" )
 136     Kontext "TabFirstStartUser"
 137     if ( TabFirstStartUser.exists( 2 ) ) then
 138
 139         call dialogtest( TabFirstStartUser )
 140
 141         Kontext "TabFirstStartUser"
 142         printlog( "Enter lastname, name and initials" )
 143         FirstName.setText( cFirstname )
 144         LastName.setText( cLastName )
 145         Initials.setText( cInitials )
 146
 147         kontext "WelcomeDialog"
 148         NextBtn.click()
 149     else
 150         warnlog( "Could not access TabFirstStartUser" )
 151     endif
 152
 153     kontext "TabFirstStartOnlineUpdate"
 154     if ( TabFirstStartOnlineUpdate.exists( 2 ) ) then
 155         call dialogtest( TabFirstStartOnlineUpdate )
 156         CheckForUpdates.unCheck()
 157         kontext "WelcomeDialog"
 158         NextBtn.click()
 159     else
 160         warnlog( "Online Update Page is missing" )
 161     endif
 162
 163
 164     '///+<li>Handle the welcome Dialog - Internet Update page which should NOT appear</li>
 165     Kontext "TabFirstStartRegistration"
 166     if ( TabFirstStartRegistration.exists( 3 ) ) then
 167         printlog( "Registration page visible." )
 168     else
 169             qaerrorlog( "An additional page appears on rerun of wizard" )
 170         kontext "WelcomeDialog"
 171         NextBtn.click()
 172     endif
 173
 174     '///+<li>Last page: Registration. Choose not to register</li>
 175     printlog( "Registration page: " )
 176     Kontext "TabFirstStartRegistration"
 177     if ( TabFirstStartRegistration.exists( 2 ) ) then
 178         printlog( "Page is present." )
 179         call dialogtest( TabFirstStartRegistration )
 180         printlog( "Choose not to register" )
 181         DoNotWantRegister.check()
 182
 183         '///+<li>Finally close the wizard</li>
 184         printlog( "close the wizard" )
 185         kontext "WelcomeDialog"
 186         WelcomeDialog.ok()
 187     endif
 188
 189     '///+<li>Verify that the data made it into tools/options instantly</li>
 190     '///<ol>
 191     printlog( "Verify that the userdata made it to tools/options" )
 192     ToolsOptions
 193     hToolsOptions( "StarOffice" , "UserData" )
 194
 195     '///+<li>First name</li>
 196     if ( Vorname.getText() <> cFirstname ) then
 197         warnlog( "First name is not transferred to Tools/options/userdata" )
 198     endif
 199
 200     '///+<li>Last name</li>
 201     if ( ZuName.getText() <> cLastName ) then
 202         warnlog( "Last name is not transferred to Tools/options/userdata" )
 203     endif
 204
 205     '///+<li>Initials</li>
 206     if ( Kuerzel.getText() <> cInitials ) then
 207         warnlog( "Initials are not transferred to Tools/options/userdata" )
 208     endif
 209
 210     '///+<li>Go to the OpenOffice.org / Memory page</li>
 211     hToolsOptions( "StarOffice", "Memory" )
 212
 213     if ( LoadQuickstarter.exists() ) then
 214         if ( LoadQuickstarter.isEnabled() ) then
 215             printlog( "Quickstarter checkbox is enabled" )
 216             if ( LoadQuickstarter.isChecked() ) then
 217                 printlog( "Quickstart is activated, turning it off." )
 218                 LoadQuickstarter.unCheck()
 219                 printlog( "Closing Tools/Options" )
 220                 Kontext "OptionenDlg"
 221                 OptionenDlg.cancel()
 222                 printlog( "Restarting program" )
 223                 call ExitRestartTheOffice()
 224             else
 225                 printlog( "Quickstarter is not turned on." )
 226             endif
 227         else
 228             printlog( "Quickstarter checkbox is not enabled for this system" )
 229         endif
 230     else
 231         if ( gPlatGroup <> "unx" ) then
 232             if ( dir( cQuickStarterPath ) <> "" ) then
 233                 warnlog( "Quickstarter checkbox is missing on options page" )
 234             else
 235                 printlog( "Quickstarter is not installed/no checkbox present" )
 236             endif
 237         endif
 238     endif
 239     '///</ol>
 240
 241     Kontext "OptionenDlg"
 242     if ( OptionenDlg.exists() ) then
 243         OptionenDlg.cancel()
 244     endif
 245
 246     ' due to issue i105248 the Quickstart disabler needs to get called again, because the First Start Wizard resets the veto
 247     call hDisableQuickstarterAPI()
 248
 249     do while( getDocumentCount() > 0 )
 250         call hCloseDocument()
 251     loop
 252
 253     '///</ul>
 254 endcase
 255