testautomation/framework/required/includes/wizard_fax.inc

   1 'encoding UTF-8  Do not remove or change this line!\r
   2 '**************************************************************************\r
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.\r
   4 '* \r
   5 '* Copyright 2008 by Sun Microsystems, Inc.\r
   6 '*\r
   7 '* OpenOffice.org - a multi-platform office productivity suite\r
   8 '*\r
   9 '* $RCSfile: wizard_fax.inc,v $\r
  10 '*\r
  11 '* $Revision: 1.2 $\r
  12 '*\r
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:16:59 $\r
  14 '*\r
  15 '* This file is part of OpenOffice.org.\r
  16 '*\r
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify\r
  18 '* it under the terms of the GNU Lesser General Public License version 3\r
  19 '* only, as published by the Free Software Foundation.\r
  20 '*\r
  21 '* OpenOffice.org is distributed in the hope that it will be useful,\r
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  24 '* GNU Lesser General Public License version 3 for more details\r
  25 '* (a copy is included in the LICENSE file that accompanied this code).\r
  26 '*\r
  27 '* You should have received a copy of the GNU Lesser General Public License\r
  28 '* version 3 along with OpenOffice.org.  If not, see\r
  29 '* <http://www.openoffice.org/license.html>\r
  30 '* for a copy of the LGPLv3 License.\r
  31 '*\r
  32 '/************************************************************************\r
  33 '*\r
  34 '*  owner : joerg.skottke@sun.com\r
  35 '*\r
  36 '*  short description : Update Test for Fax Wizard\r
  37 '*\r
  38 '\******************************************************************************\r
  39 \r
  40 testcase tUpdtWizardFax\r
  41 \r
  42     dim iErr as integer\r
  43     dim brc as boolean\r
  44     \r
  45     dim cTemplateName as string\r
  46     dim cTemplatePath as string    \r
  47     \r
  48     ' Build the filename we want to save the template as.\r
  49     cTemplateName = "FWK-testtool-faxtemplate.ott"\r
  50     cTemplatePath = gOfficePath & "user\template\" & cTemplateName\r
  51     cTemplatePath = convertpath( cTemplatePath )  \r
  52     \r
  53     FileAutopilotFax\r
  54 \r
  55     kontext "AutopilotFax"\r
  56     if ( AutopilotFax.exists( 2 ) ) then\r
  57     \r
  58         kontext "AutopilotFax"    \r
  59         call DialogTest( AutopilotFax, 1 )\r
  60         hClickNextButton()\r
  61 \r
  62         kontext "AutopilotFax"    \r
  63         call DialogTest( AutopilotFax, 2 )\r
  64         hClickNextButton()\r
  65 \r
  66         kontext "AutopilotFax"    \r
  67         call DialogTest( AutopilotFax, 3 )\r
  68         hClickNextButton()\r
  69 \r
  70         kontext "AutopilotFax"    \r
  71         call DialogTest( AutopilotFax, 4 )\r
  72         hClickNextButton()\r
  73         \r
  74         kontext "AutopilotFax"\r
  75         call DialogTest( AutopilotFax, 5 )\r
  76         \r
  77         printlog( "Name the template for further usage" )\r
  78         TemplateName.setText( cTemplateName )\r
  79         \r
  80         hSetTemplateSavePath( cTemplatePath )\r
  81         \r
  82         hFinishWizard( 1 )\r
  83         \r
  84         kontext "StandardBar"\r
  85         hWaitForObject( Speichern, 5000 )\r
  86        \r
  87         brc = hDestroyDocument()\r
  88         if ( not brc ) then\r
  89             qaerrorlog( "#i59233# The wizard does not display the new template" )\r
  90         endif   \r
  91         \r
  92         printlog( "Delete the user-template: " & cTemplatePath )\r
  93         hDeleteFile( cTemplatePath )\r
  94         \r
  95     else\r
  96         warnlog( "Fax wizard did not open/exceeded timeout" )\r
  97     endif\r
  98         \r
  99     while( getDocumentCount() > 0 ) \r
 100         hDestroyDocument()\r
 101     wend\r
 102     \r
 103     '///</ul>\r
 104     \r
 105 endcase\r