diff options
Diffstat (limited to 'testautomation/framework/optional/includes/fontworkgallery.inc')
-rwxr-xr-x | testautomation/framework/optional/includes/fontworkgallery.inc | 152 |
1 files changed, 152 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/fontworkgallery.inc b/testautomation/framework/optional/includes/fontworkgallery.inc new file mode 100755 index 000000000000..be7120d43a32 --- /dev/null +++ b/testautomation/framework/optional/includes/fontworkgallery.inc @@ -0,0 +1,152 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: fontworkgallery.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/************************************************************************ +'* +'* owner : thorsten.bosbach@sun.com +'* +'* short description : Resource test of font work gallery +'* +'\************************************************************************ + +sub sFontworkGalleryUpdate + dim sApplication + dim i,a as integer + + sApplication = array("WRITER","MASTERDOCUMENT","CALC","IMPRESS","DRAW") + + ' for every application + a = uBound(sApplication()) + for i = 0 to a + gApplication = sApplication(i) + printlog "********** " + gApplication + tFontworkGalleryUpdate + next i +end sub + +testcase tFontworkGalleryUpdate + dim j,b as integer + +'i67024 - tbo sj Help-IDs missing on the windows items for FontworkAlignment and FontworkCharacterSpacing +'i66989 - tbo sj Fontwork Gallery control has no Help-ID + b = getDocumentCount + for j = 1 to b + printlog "closing: " + j + hCloseDocument() + next j + hNewDocument() + sleep (5) + Kontext "Drawbar" + if NOT Drawbar.exists then + hToolbarSelect("DRAWING",true) + printlog "opened drawing toolbar" + endif + if Drawbar.exists then + FontworkGallery.click + + Kontext "FontworkGallery" + dialogtest(FontworkGallery) + FontworkGallery.typeKeys("<right>", true) + FontworkGallery.mousedown(50,50) + FontworkGallery.mouseup(50,50) + FontworkGallery.OK + + sleep 5 + Kontext "FontworkObjectbar" + if FontworkObjectbar.exists then + FontworkGallery.click + Kontext "FontworkGallery" + dialogtest(FontworkGallery) + FontworkGallery.cancel + + Kontext "FontworkObjectbar" + FontworkShape.click + Kontext "FontworkShape" + PlainText.click + + Kontext "FontworkObjectbar" + FontworkSameLetterHeights.click + sleep 3 + + Kontext "FontworkObjectbar" + FontworkAlignment.click + Kontext "FontworkAlignment" + if FontworkAlignment.exists(5) then + dialogtest(FontworkAlignment) + FontworkAlignment.close + else + printlog "beginning workaround lockup" + hUseMenu() + hMenuClose() + sleep 3 + Kontext "FontworkObjectbar" + FontworkAlignment.click + Kontext "FontworkAlignment" + if FontworkAlignment.exists(5) then + dialogtest(FontworkAlignment) + FontworkAlignment.close + else + warnlog "FontworkAlignment dialog not visible" + endif + endif + + Kontext "FontworkObjectbar" + FontworkCharacterSpacing.click + Kontext "FontworkCharacterSpacing" + if FontworkCharacterSpacing.exists(5) then + 'dialogtest(FontworkCharacterSpacing) + FontworkCharacterSpacing.typeKeys ("<down><down><down><down><down><return>") + Kontext "FontworkCharacterSpacingCustom" + if FontworkCharacterSpacingCustom.exists(5) then + dialogtest(FontworkCharacterSpacingCustom) + printlog value.getText + FontworkCharacterSpacingCustom.close + else + printlog "dialog FontworkCharacterSpacingCustom didn't came up" + endif + Kontext "FontworkCharacterSpacing" + if FontworkCharacterSpacing.exists(5) then + FontworkCharacterSpacing.close + else + printlog "dialog FontworkCharacterSpacing was closed in another way" + endif + else + warnlog "fontWork characterspacing drop down menu is not visible" + endif + else + warnlog "fontWork toolbar is not visible" + endif + else + warnlog "Draw toolbar is not visible" + endif + hCloseDocument() +endcase + |