testautomation/framework/optional/includes/filedlg_multiselection.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: filedlg_multiselection.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $
  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 : Select a huge number of documents and load
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tFiledlgMultiselection1()
  41
  42     printlog( "Stress test: Load a great number of documents simultaneously" )
  43
  44     GLOBAL_USE_NEW_SLEEP = true
  45
  46     ' This is a test requested by framework development to be used in multi-
  47     ' user environments like Terminal Servers. It is used to quickly create
  48     ' a certain load. Furthermore issues (mostly unconfirmed) have been reported
  49     ' that loading files using multiselection might lead to a crash.
  50
  51     dim cWorkPath as string : cWorkPath = hGetWorkPath() & "multiselection"
  52     dim cMsg as string
  53
  54     dim iCurrentFile as integer
  55     dim iOpenDocuments as integer
  56     dim lTime as long
  57     dim lWait as long
  58     dim lTimeSum as long
  59     dim iCurrentTime as long
  60
  61
  62     dim iDocType as integer
  63     dim iDocument as integer
  64     dim cFilter( 4 ) as string
  65         cFilter( 1 ) = "writer8"
  66         cFilter( 2 ) = "calc8"
  67         cFilter( 3 ) = "impress8"
  68         cFilter( 4 ) = "draw8"
  69
  70     dim cFile as string
  71
  72     dim brc as boolean
  73
  74     const TESTFILE_COUNT = 60 ' the number of documents in cWorkPath
  75     const TESTFILE_TIMEOUT = 480000
  76
  77     ' Minimum cleanup
  78     while( getDocumentCount > 0 )
  79         hCloseDocument()
  80     wend
  81
  82     ' create the workdirectory
  83     mkdir( cWorkPath )
  84
  85     ' dynamically create a bulk of files to be written to the work directory
  86     lTimeSum = 0
  87
  88     for iDocType = 1 to 4
  89         hNumericDocType( iDocType )
  90         hNewDocument()
  91         hChangeDoc()
  92         lWait = 0
  93         for iDocument = 1 to 15
  94             cFile = cWorkPath & "\" & "test_" & cFilter( iDocType ) & iDocument
  95             lTime = getSystemTicks
  96             hFileSaveAsWithFilterKill( cFile, cFilter( iDocType ) )
  97             lWait = lWait + getSystemTicks - lTime
  98         next iDocument
  99         hCloseDocument()
 100         printlog( "Total time for saving 15 documents: " & lWait & " ms" )
 101         lTimeSum = lTimeSum + lWait
 102     next iDocType
 103
 104     if ( getDocumentCount > 0 ) then
 105         warnlog( "Not all files were saved and closed" )
 106         goto endsub
 107     endif
 108
 109     printlog( "Time for saving 60 documents: " & lTimeSum & " ms" )
 110     printlog( "Average time per document...: " & lTimeSum / TESTFILE_COUNT & " ms" )
 111
 112     printlog( "FileOpen" )
 113     FileOpen
 114
 115     printlog( "Go to the workdirectory: " & cWorkPath )
 116     kontext "OeffnenDlg"
 117     if ( OeffnenDlg.exists( 1 ) ) then
 118
 119         DateiName.typeKeys( cWorkPath )
 120         Oeffnen.click()
 121
 122         kontext "Active"
 123         if ( active.exists( 2 ) ) then
 124                 cMsg = active.getText()
 125                 cMsg = hRemoveLineBreaks( cMsg )
 126                 warnlog( "Unexpected messagebox: " & cMsg )
 127                 active.ok()
 128                 kontext "OeffnenDlg"
 129                 if ( OeffnenDlg.exists() ) then
 130                 OeffnenDlg.cancel()
 131             else
 132                 warnlog( "File Open dialog is not visible" )
 133             endif
 134                 goto endsub
 135         endif
 136
 137         printlog( "Select all documents and load them simultaneously" )
 138         kontext "OeffnenDlg"
 139         if ( OeffnenDlg.exists() ) then
 140
 141             DateiAuswahl.typeKeys( "<HOME>" )
 142             DateiAuswahl.typeKeys( "<SHIFT END>" )
 143             Oeffnen.Click()
 144
 145             lTime = GetSystemTicks
 146             iOpenDocuments = 0
 147             while ( iOpenDocuments < TESTFILE_COUNT )
 148                 iOpenDocuments = getDocumentCount()
 149                 iCurrentTime = getSystemTicks - lTime
 150
 151                 ' exit the hard way
 152                 if ( iCurrentTime > TESTFILE_TIMEOUT ) then
 153                     warnlog( "Loading files max wait time exceed (" & _
 154                               TESTFILE_TIMEOUT/1000 & "), aborting" )
 155                     goto endsub
 156                 endif
 157             wend
 158
 159             if ( iCurrentTime > 120000 ) then
 160                 warnlog( "#i105289# Slow loading of files, should be less than 120 seconds on all platforms" )
 161             endif
 162             lWait = getSystemTicks - lTime ' time diff
 163
 164             printlog( "All documents loaded in " & lWait & " ms" )
 165             sleep()
 166
 167             printlog( "Starting to close all documents" )
 168             for iCurrentFile = 1 to TESTFILE_COUNT
 169                 FileClose
 170                 sleep()
 171             next iCurrentFile
 172             printlog( "Finished closing documents" )
 173
 174             if ( getDocumentCount > 0 ) then
 175                 warnlog( "Not all documents were closed." )
 176                 iOpenDocuments = getDocumentCount
 177                 for iCurrentFile = 1 to iOpenDocuments - 1
 178                         hCloseDocument()
 179                 next iCurrentFile
 180             else
 181                 printlog( "All documents have been closed. Test succeeded." )
 182             endif
 183
 184             printlog( "Deleting work files..." )
 185             for iDocType = 1 to 4
 186                 hNumericDocType( iDocType )
 187                 for iDocument = 1 to 15
 188                     cFile = cWorkPath & "\" & "test_" & cFilter( iDocType ) & iDocument
 189                     hDeleteFile( cFile )
 190                 next iDocument
 191             next iDocType
 192
 193             printlog( "Removing temporary work directory" )
 194             rmdir( cWorkPath )
 195         else
 196             warnlog( "File Open dialog is not visible" )
 197         endif
 198     else
 199         warnlog( "File Open dialog did not open." )
 200     endif
 201
 202 endcase