testautomation/framework/required/includes/basic_dialog_export.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/******************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Update test for the dialog export feature
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tUpdtDialogExport
  35
  36     printlog( "Update test for the dialog export feature" )
  37
  38     dim brc as boolean
  39     dim cMsg as string
  40
  41     dim cDlgName as string
  42         cDlgName = hGetWorkPath() & "DialogTest"
  43
  44     const DLG_SUFFIX = ".xdl"
  45
  46     hCreateDocument()
  47
  48     printlog( "Test init: Setting up environment" )
  49     brc = hInitFormControls( "DialogExport" )
  50     if ( not brc ) then
  51         warnlog( "Failed to initialize BAIC IDE/Dialog editor, aborting" )
  52         goto endsub
  53     endif
  54
  55     printlog( "Test begin" )
  56     kontext "DialogBar"
  57     if ( not DialogBar.exists() ) then
  58         warnlog( "DialogBar does not exist, aborting" )
  59         hClosebasicIDE()
  60         hDestroyDocument()
  61         goto endsub
  62     endif
  63     sleep(1)
  64     printlog( "Click the Export button on the DialogBar" )
  65     kontext "DialogBar"
  66     Export.click()
  67
  68     kontext "ExportierenDlg"
  69     if ( not ExportierenDlg.exists( 1 ) ) then
  70         warnlog( "Export dialog is not open, aborting" )
  71         hCloseBasicIDE()
  72         hDestroyDocument()
  73         goto endsub
  74     endif
  75
  76     printlog( "Export dialog is open. Good." )
  77
  78     kontext "ExportierenDlg"
  79     DateiName.setText( cDlgName )
  80     Speichern.click()
  81
  82     kontext "Active"
  83     if ( Active.exists() ) then
  84         cMsg = active.getText()
  85         cMsg = hRemoveLineBreaks( cMsg )
  86         printlog( "File appears to exist, overwriting: " & cMsg )
  87         Active.Yes()
  88     endif
  89
  90     kontext "DialogBar"
  91     if ( not DialogBar.exists() ) then
  92         warnlog( "DialogBar is not visible, please check." )
  93     endif
  94
  95     printlog( "Back on the Basic IDE / Dialog Editor. Good." )
  96
  97     cDlgName = cDlgName & DLG_SUFFIX
  98     if ( dir( cDlgName ) = "" ) then
  99         warnlog( "The dialog was not saved to the expected location" )
 100     else
 101         hDeleteFile( cDlgName )
 102         printlog( "Dialog was exported and deleted. Good." )
 103     endif
 104
 105     printlog( "Test end. Cleanup" )
 106     hCloseBasicIDE()
 107     hDestroyDocument()
 108
 109 endcase
 110