testautomation/extensions/required/includes/e_update_oooimprovement.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: e_update.inc,v $
  10 '*
  11 '* $Revision: 1.1.2.3 $
  12 '*
  13 '* last change: $Author: jsk $ $Date: 2008/10/08 09:05:51 $
  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 : Extension Update Test
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tUpdtOOoImprovement
  41
  42     printlog( "Update test for the tools/options dialog of the OOo Improvement extension" )
  43     if ( not gExtensionOOoImprovementIsInstalled ) then
  44         qaerrorlog( "The extension is not installed." )
  45         goto endsub
  46     endif
  47
  48     dim cLogFile as string
  49         cLogFile = gOfficePath & "user\temp\feedback\Current.csv"
  50         cLogFile = convertpath( cLogFile )
  51
  52     if ( hDeleteFile( cLogFile ) ) then
  53         printlog( "Test environment is clean, no logfile present (anymore)" )
  54     endif
  55
  56     ToolsOptions
  57     hToolsOptions( "StarOffice", "Improvement" )
  58     printlog( "Improvement Program tabpage" )
  59
  60     call DialogTest( TabOOoImprovement )
  61
  62     ParticipateNo.check()
  63     ParticipateYes.check()
  64
  65     if ( ShowData.isEnabled() ) then
  66
  67         ShowData.click()
  68
  69         Kontext "TextImport"
  70         if ( TextImport.exists( 1 ) ) then
  71             printlog( "Text import dialog" )
  72
  73             call DialogTest( TextImport )
  74             TextImport.cancel()
  75         else
  76             warnlog( "#i97340# Show Data button enabled but no logged data found" )
  77         endif
  78
  79         Kontext "Active"
  80         if ( Active.exists( 1 ) ) then
  81             printlog( "Messagebox: " & Active.getText() )
  82             Active.ok()
  83         else
  84             warnlog( "No warning for missing file: " & cLogFile )
  85         endif
  86
  87         Kontext "Active"
  88         if ( Active.exists( 1 ) ) then
  89             warnlog( "#97342# Second message for missing " & cLogFile )
  90             Active.ok()
  91         endif
  92     else
  93         printlog( "Show data is disabled" )
  94     endif
  95
  96     Kontext "OptionenDlg"
  97     OptionenDlg.cancel()
  98
  99 endcase
 100