testautomation/framework/required/includes/wizard_euroconverter.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_euroconverter.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:04 $
  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 : Update test for the Euroconverter
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tUpdtWizardEuroconverter
  41
  42     dim irc as integer
  43     dim iWait as integer
  44     dim cMsg as string
  45
  46     dim iKnownCurrencies as integer
  47     const KNOWN_CURRENCIES = 16
  48     const TARGET_FILE = "barfly.ods"
  49
  50
  51     dim cSourceDir as string
  52         cSourceDir = gTesttoolPath & "framework\required\input"
  53         cSourceDir = convertpath( cSourceDir )
  54
  55     dim cTargetDir as string
  56         cTargetDir = hGetWorkPath()
  57
  58     hInitSingleDoc()
  59
  60     irc = hOpenWizardWithMenu( "EUROCONV" )
  61     if ( irc <> 0 ) then
  62         warnlog( "Failed to open the Euroconverter, aborting test" )
  63         hDestroyDocument()
  64         goto endsub
  65     endif
  66
  67     kontext "AutopilotEuroKonverter"
  68     call DialogTest( AutopilotEuroKonverter , 1 )
  69
  70     Kontext "AutopilotEuroKonverter"
  71     iKnownCurrencies = Waehrungen.getItemCount()
  72     if ( iKnownCurrencies <> KNOWN_CURRENCIES ) then
  73         warnlog( "The number of currencies in the currencies listbox is incorrect." )
  74         printlog( "Found...: " & iKnownCurrencies )
  75         printlog( "Expected: " & KNOWN_CURRENCIES )
  76     endif
  77
  78     if ( not Verzeichnis.isChecked() ) then
  79         warnlog( "Converting entire directories should be default" )
  80         Verzeichnis.Check()
  81     endif
  82
  83     kontext "AutopilotEuroKonverter"
  84     QuelleSuchen.click()
  85
  86     kontext "FilePicker"
  87     EFFilename.setText( cSourceDir )
  88     PBSelect.click()
  89
  90     kontext "AutopilotEuroKonverter"
  91     ZielSuchen.click()
  92
  93     kontext "FilePicker"
  94     EFFilename.setText( cTargetDir )
  95     PBSelect.click()
  96     WaitSlot()
  97
  98     kontext "AutopilotEuroKonverter"
  99     Waehrungen.Select(1) 'Setting to first entry of listbox
 100
 101     Konvertieren.click()
 102
 103     iWait = 0
 104     do while( not Konvertieren.isEnabled() )
 105
 106         iWait = iWait + 1
 107         printlog( "Waiting for document to get converted..." )
 108
 109         if ( iWait = 20000 ) then
 110             warnlog( "Document(s) were not converted within 20 seconds, aborting" )
 111             exit do
 112         endif
 113
 114         ' If the target file already exists we get an overwrite warning
 115         kontext "Active"
 116         if ( Active.exists() ) then
 117             cMsg = active.getText()
 118             cMsg = hRemoveLineBreaks( cMsg )
 119             warnlog( "Unexpected message: " & cMsg )
 120             active.yes()
 121         endif
 122
 123         Wait( 1 )
 124         kontext "AutopilotEuroKonverter"
 125
 126     loop
 127
 128     kontext "AutopilotEuroKonverter"
 129     call DialogTest( AutopilotEuroKonverter , 2 )
 130
 131     hFinishWizard( 1 )
 132     hDestroyDocument()
 133     hDeleteFile( cTargetDir & TARGET_FILE )
 134
 135 endcase
 136