testautomation/framework/optional/includes/extras_preview.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: extras_preview.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 : Perform standard operations on all samples/templates etc.
  37 '*
  38 '\***********************************************************************
  39
  40 private const MAX_FILE_COUNT = 3000 ' the max number of templates or samples
  41
  42 ' NOTE: Usually we have only about a 100 templates but in multi-language
  43 '       installations there are more than 2100. You should not run these
  44 '       tests on multi language installations. Really.
  45
  46 testcase tShowAllObjectsAsPreview( cCategory as string )
  47
  48     '///<h1>Show documents in the preview pane of the teplates-dialog</h1>
  49
  50     dim iObjectFolder as Integer   ' the current folder in loops
  51     dim iObjectFolders as integer  ' the number of template/sample-folders
  52
  53     dim iObject as Integer         ' the current template/sample within loops
  54     dim iObjectCount( 20 ) as integer  ' number of templates/samples in the folders
  55
  56
  57     printlog( "" )
  58
  59
  60     '///<ul>
  61     '///+<li>Open File->New->Templates and documents</li>
  62     FileNewFromTemplate
  63     if ( TemplateAndDocuments.exists( 1 ) ) then
  64
  65
  66         '///+<li>find the category we want to work with (TEMPLATES/SAMPLES...)</li>
  67         hSelectCategory( cCategory )
  68
  69         '///+<li>Count the folders in the root of cCategory</li>
  70         iObjectFolders = FileList.getItemCount()
  71
  72         '///+</li>Now go through every folder and count the number of objects</li>
  73         for iObject = 1 to iObjectFolders
  74
  75             '//<li>grab a folder below cCategory and open it</li>
  76             hSelectFileFolder( iObject , true )
  77
  78             '<li>get the number of items</li>
  79             iObjectCount( iObject ) = FileList.getItemCount()
  80
  81             '<li>step up one level to the root of cCategory</li>
  82             UpOneLevel.click()
  83
  84         next iObject
  85
  86         '///+<li>Click the preview button</li>
  87         preview.click()
  88
  89         printlog( "" )
  90         printlog( "Displaying documents in preview pane" )
  91         printlog( "" )
  92
  93         '///+<li>Step through all folders and templates/samples</li>
  94         '///<ol>
  95         for iObjectFolder = 1 to iObjectFolders
  96
  97             kontext "TemplateAndDocuments"
  98
  99             '///+<li>Select the category (samples, templates ...)</li>
 100             hSelectCategory( cCategory )
 101
 102             '///+<li>Select the current folder</li>
 103             hSelectFileFolder( iObjectFolder , false )
 104
 105             for iObject = 1 to iObjectCount( iObjectFolder )
 106
 107                 printlog( "Object-Folder: " & iObjectFolder & " Entry: " & iObject )
 108
 109                 '///+<li>Select the desired template</li>
 110                 hSelectDocumentObject( iObject , 0 )
 111
 112                 '///+<li>Wait for the preview to be loaded and displayed</li>
 113                 'Problem: Cannot verify the content of preview window.
 114                 WaitSlot( 5000 )
 115
 116                 '///+<li>Next document</li>
 117
 118             next iObject
 119
 120             '///</ol>
 121
 122        next iObjectFolder
 123
 124        '///</ul>
 125        Kontext "TemplateAndDocuments"
 126        TemplateAndDocuments.cancel()
 127
 128     else
 129         warnlog( "Failed to open Templates And Documents dialog" )
 130     endif
 131
 132 endcase
 133
 134