'encoding UTF-8 Do not remove or change this line! '************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* '* '* short description : Checking all gallery themes '* '***************************************************************** '* ' #1 tLoad100GalleryGraphicFiles 'Inserting 100 gallery graphics and checking the sizes ' #1 tCheckAllGalleryGraphicFiles 'Checking the size ( > 0 Byte ) of all gallery-files. ' #1 tInsertGalleryObjects 'Inserting random objects via contextmenu-insert-copy. ' #0 LoadGraphic ' #0 CheckGraphic ' #0 makeNumOutOfText ' #1 tSettingsToCM 'Measurement unit for textdocuments to cm ' #1 tResetSettings 'Resetting the measurement unit for textdocuments. '* '\**************************************************************** testcase tSettingsToCM printlog " Setting the measurement unit for textdocuments to cm." printlog " +Tools / options / text documents / general" ExitRestartTheOffice WaitSlot (10000) Call hNewDocument ToolsOptions hToolsOptions ( "WRITER", "General" ) iSaveSetting = Masseinheit.GetSelIndex Masseinheit.Select 2 Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK Call hCloseDocument endcase '------------------------------------------------------------------------- testcase tLoad100GalleryGraphicFiles Dim lsFiles (3000) as String Dim lsGraphics (3000) as String Dim i as Integer Dim y as Integer Dim t as Integer Dim iCount as Integer Dim corLoad as Boolean Dim x as boolean if gNetzInst = TRUE then GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () ) else GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () ) end if call GetOnlyGraphics ( lsFiles (), lsGraphics() ) iCount = ListCount ( lsGraphics() ) printlog " We have " + iCount + " graphics in the gallery." call hNewDocument for i = 1 to 100 for y = 1 to 1 randomize t = Int((iCount*Rnd)) if (t<1) then 'just so we get it between 1 and the amount of items. y = y - 1 end if next y corLoad = FALSE try x = LoadGraphic ( lsGraphics(t), corLoad ) printlog catch ExceptLog if corLoad = FALSE then warnlog "Problems with " + lsGraphics(t) ResetApplication call hNewDocument end if endcatch if (not x) then printlog " Tested nr: " + t + " : " + lsGraphics(t) end if next i ToolsGallery WaitSlot (2000) call hCloseDocument endcase 'tLoadAllGalleryGraphicFiles '------------------------------------------------------------------------- testcase tCheckAllGalleryGraphicFiles Dim lsFiles (3000) as String Dim lsGraphics (3000) as String Dim i as Integer Dim y as Integer Dim t as Integer Dim iCount as Integer Dim corLoad as Boolean Dim x as boolean if gNetzInst = TRUE then GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () ) else GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () ) end if call GetOnlyGraphics ( lsFiles (), lsGraphics() ) iCount = ListCount ( lsGraphics() ) printlog " We have " + iCount + " graphics in the gallery." call hNewDocument for i=1 to iCount corLoad = FALSE try x = CheckGraphic ( lsGraphics(i), corLoad ) catch ExceptLog if corLoad = FALSE then warnlog "Problems with " + lsGraphics(i) ResetApplication call hNewDocument end if endcatch if (not x) then printlog " Tested nr: " + i + " : " + lsGraphics(i) end if next i ToolsGallery WaitSlot (2000) call hCloseDocument endcase 'tLoadAllGalleryGraphicFiles '------------------------------------------------------------------------- testcase tInsertGalleryObjects Dim lsFiles (3000) as String Dim lsGraphics (3000) as String Dim CountOfThemes Dim HowManyItems as Integer Dim WhichOne as Integer Dim CountOfItems as Integer Dim ct as Integer Dim i as Integer Dim d as Integer Dim iCount as Integer Dim corLoad, x as Boolean call hNewDocument call hOpenGallery kontext "Gallery" CountOfThemes = Gallerys.GetItemCount for ct = 1 to CountOfThemes Gallerys.Select ct printlog " Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText kontext "Gallery" CountOfItems = View.GetItemCount() for d = 1 to 1 randomize HowManyItems=Int((5*Rnd)+(3*Rnd)) if CountOfItems = 0 then QaErrorLog " There were no objects in the the gallery-theme on position: " + ct else if (HowManyItems<3) then 'just so we get it between 3 and 5. d = d - 1 else printlog " Will now select and copy " + HowManyItems + " items from this Theme." end if for i = 1 to HowManyItems for x = 1 to 1 randomize WhichOne=Int(CountOfItems*RND) '(5*Rnd)+(CountOfItems*Rnd)) if (WhichOne<1) then 'just so we get it between 1 and the amount of items. '>(CountOfItems + 1)) OR (WhichOne<1) then ' x = x - 1 end if next x printlog " Will copy object nr: " + WhichOne View.Mousemove (1,1) View.TypeKeys "" View.TypeKeys "", (WhichOne) kontext "GraphicObjectBar" if GraphicObjectBar.Exists then if GraphicObjectBar.IsDocked = False then GraphicObjectBar.Dock end if kontext "Gallery" sleep (1) View.TypeKeys("") sleep (1) try dim number as integer number = MenuGetItemCount if (number > 2) AND (number < 10) then hMenuSelectNr (1) 'Insert hMenuSelectNr (1) 'As Copy sleep (1) else Warnlog " The contextmenu came up, but the number of entries were strange." printlog " Number of entries:" + number MenuSelect(0) end if catch warnlog " A contextmenu didnt come up for the gallery-theme on position: " + ct i = HowManyItems endcatch next i end if 'if the theme didnt have any objects, we landed here. next d next ct Kontext "Gallery" if Gallery.Exists(2) then ToolsGallery WaitSlot (2000) end if hTypeKeys "" call hCloseDocument endcase 'tInsertGalleryObjects '------------------------------------------------------------------------- testcase tResetSettings printlog "Resetting the measurement unit for textdocuments." printlog "+Tools / options / text documents / general" call hNewDocument ToolsOptions hToolsOptions ( "WRITER", "General" ) Masseinheit.Select iSaveSetting Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK call hCloseDocument endcase 'tResetSettings '-------------------------------------------------------------------------