testautomation/writer/optional/includes/fontwork/w_fontwork1.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: w_fontwork1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:28:01 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Test Format/Fontwork
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFontWork_1
  41 ' #1 tFontWork_2
  42 ' #1 tFontWork_3
  43 ' #1 tFontWork_4
  44 ' #1 tFontWork_5
  45 ' #1 tFontWork_6
  46 '*
  47 '\***********************************************************************
  48
  49 testcase tFontWork_1
  50
  51     Dim i as Integer
  52
  53     printLog Chr(13) + "- Test pre-defined shapes (upper/lower Semicircle,...) to the selected text object"
  54     '/// Test pre-defined shapes (upper/lower Semicircle,...) to the selected text object
  55
  56     Call hNewDocument
  57
  58     Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
  59     Call wTypeKeys "First Line<Return>"
  60     Call wTypeKeys "Second Line<Return>"
  61     Call wTypeKeys "Third Line<Return>"
  62     Kontext "DocumentWriter"
  63     Call wTypeKeys "<ESCAPE>"
  64
  65     '/// format/fontwork
  66     FormatFontWork
  67     Kontext
  68     Kontext "Fontwork"
  69
  70     '/// test Rotate
  71     Drehen.Click
  72     For i = 1 to 12
  73         kreisAuswahl.TypeKeys "<Right>"
  74         Sleep 3
  75     next i
  76
  77     '/// test Upright
  78     Aufrecht.Click
  79     For i = 1 to 12
  80         kreisAuswahl.TypeKeys "<Right>"
  81         Sleep 3
  82     next i
  83
  84     '/// test Slant Horizontal
  85     HorizontalKippen.Click
  86     For i = 1 to 12
  87         kreisAuswahl.TypeKeys "<Right>"
  88         Sleep 3
  89     next i
  90
  91     '/// test Slant Vertical
  92     VertikalKippen.Click
  93     For i = 1 to 12
  94         kreisAuswahl.TypeKeys "<Right>"
  95         Sleep 3
  96     next i
  97
  98     Fontwork.Close
  99
 100     Call hCloseDocument
 101
 102 endcase
 103
 104 '-------------------------------------------------------------------------
 105
 106 testcase tFontWork_2
 107
 108     Dim i , j as Integer
 109
 110     printLog Chr(13) + "- Test Orientation"
 111     '/// Test Orientation
 112
 113     Call hNewDocument
 114
 115     Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
 116     Call wTypeKeys "Test"
 117     Kontext "DocumentWriter"
 118     Call wTypeKeys "<ESCAPE>"
 119
 120     '/// format/fontwork
 121     FormatFontWork
 122     Kontext "Fontwork"
 123
 124     '/// Test Orientation in Rotate
 125     Drehen.Click
 126     kreisAuswahl.TypeKeys "<Right>"
 127     Laufrichtgung.Click
 128     Sleep 2
 129     Laufrichtgung.Click
 130
 131     '/// Test Orientation in Upright
 132     Aufrecht.Click
 133     kreisAuswahl.TypeKeys "<Right>"
 134     Laufrichtgung.Click
 135     Sleep 2
 136     Laufrichtgung.Click
 137
 138     '/// Test Orientation in Horizontal
 139     HorizontalKippen.Click
 140     kreisAuswahl.TypeKeys "<Right>"
 141     Laufrichtgung.Click
 142     Sleep 2
 143     Laufrichtgung.Click
 144
 145     '/// Test Orientation in Slant Vertical
 146     VertikalKippen.Click
 147     kreisAuswahl.TypeKeys "<Right>"
 148     Laufrichtgung.Click
 149     Sleep 2
 150     Laufrichtgung.Click
 151
 152     Fontwork.Close
 153
 154     Call hCloseDocument
 155
 156 endcase
 157
 158 '-------------------------------------------------------------------------
 159
 160 testcase tFontWork_3
 161
 162     Dim i , j as Integer
 163
 164     printLog Chr(13) + "- Test Align , include Left , Center, Right and Autosize ."
 165     '/// Test Align , include Left , Center, Right and Autosize
 166
 167     Call hNewDocument
 168
 169     Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
 170     Call wTypeKeys "Test"
 171     Kontext "DocumentWriter"
 172     Call wTypeKeys "<ESCAPE>"
 173
 174     '/// format/fontwork
 175     FormatFontWork
 176     Kontext "Fontwork"
 177
 178     '/// Test Align in Rotate
 179     Drehen.Click
 180     kreisAuswahl.TypeKeys "<Right>"
 181     Linksbuendig.Click
 182     Sleep 2
 183     Zentriert.Click
 184     Sleep 2
 185     Rechtsbuendig.Click
 186     Sleep 2
 187
 188     '/// Test Align in Upright
 189     Aufrecht.Click
 190     kreisAuswahl.TypeKeys "<Right>"
 191     Linksbuendig.Click
 192     Sleep 2
 193     Zentriert.Click
 194     Sleep 2
 195     Rechtsbuendig.Click
 196     Sleep 2
 197
 198     '/// Test Align in Horizontal
 199     HorizontalKippen.Click
 200     kreisAuswahl.TypeKeys "<Right>"
 201     Linksbuendig.Click
 202     Sleep 2
 203     Zentriert.Click
 204     Sleep 2
 205     Rechtsbuendig.Click
 206     Sleep 2
 207
 208     '/// Test Align in Slant Vertical
 209     VertikalKippen.Click
 210     kreisAuswahl.TypeKeys "<Right>"
 211     Linksbuendig.Click
 212     Sleep 2
 213     Zentriert.Click
 214     Sleep 2
 215     Rechtsbuendig.Click
 216     Sleep 2
 217
 218     Fontwork.Close
 219
 220     Call hCloseDocument
 221
 222 endcase
 223
 224 '-------------------------------------------------------------------------
 225
 226 testcase tFontWork_4
 227
 228     Dim sDistance , sIndent as String
 229
 230     sDistance = "1" + gSeperator + "00" + gMeasurementUnit
 231     sIndent   = "1" + gSeperator + "10" + gMeasurementUnit
 232
 233     printLog Chr(13) + "- Test distance and indent"
 234     '/// Test distance and indent
 235
 236     Call hNewDocument
 237
 238     Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
 239     Call wTypeKeys "Test"
 240     Kontext "DocumentWriter"
 241     Call wTypeKeys "<ESCAPE>"
 242
 243     '/// format/fontwork , set distance and indent
 244     FormatFontWork
 245     Kontext "Fontwork"
 246     Drehen.Click
 247     Sleep 4
 248     kreisAuswahl.TypeKeys "<Right>"
 249     Sleep 5
 250     Linksbuendig.Click
 251     Sleep 5
 252     Abstand.SetText   sDistance
 253     Sleep 5
 254     Einzug.SetText    sIndent
 255     Sleep 5
 256     Fontwork.Close
 257     Sleep 5
 258
 259     FormatFontWork
 260     Kontext
 261     Kontext "Fontwork"
 262     Sleep 2
 263     if Left$(Abstand.GetText,4) <> Left$(sDistance,4) then Warnlog "Distance should be "+sDistance+"  but -> "+Abstand.GetText
 264     Sleep 2
 265     if Left$(Einzug.GetText,4) <> Left$(sIndent,4) then Warnlog "Indent should be "+sIndent+"  but -> "+Einzug.GetText
 266     Sleep 2
 267     Fontwork.Close
 268
 269     Call hCloseDocument
 270
 271 endcase
 272
 273 '-------------------------------------------------------------------------
 274
 275 testcase tFontWork_5
 276
 277     printLog Chr(13) + "- Test Contour - include contour and text contour"
 278     '/// Test Contour - include contour and text contour
 279
 280     Call hNewDocument
 281
 282     Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
 283     Call wTypeKeys "Test"
 284     Kontext "DocumentWriter"
 285     Call wTypeKeys "<ESCAPE>"
 286
 287     '/// format/fontwork
 288     FormatFontWork
 289     Kontext
 290     Kontext "Fontwork"
 291     Drehen.Click
 292     kreisAuswahl.TypeKeys "<Right>"
 293     Kontur.Click
 294     Buchstabenumrandung.Click
 295     Sleep 2
 296     Kontur.Click
 297     Buchstabenumrandung.Click
 298     Fontwork.Close
 299
 300     Call hCloseDocument
 301
 302 endcase
 303
 304 '-------------------------------------------------------------------------
 305
 306 testcase tFontWork_6
 307
 308     Dim sDistanceX , sDistanceY                    as String
 309     Dim sAngle     , SPercent                      as String
 310     Dim iVerticalShadowColor , iSlantedShadowColor as Integer
 311
 312     Select case iSprache
 313         case 01   : sAngle = "140" + gSeperator + "0 degrees"
 314         case 03   : sAngle = "140" + gSeperator + "0 graus"
 315         case 31   : sAngle = "140" + gSeperator + "0graden"
 316         case 33   : sAngle = "140" + gSeperator + "0 degrés"
 317         case 34   : sAngle = "140" + gSeperator + "0Grados"
 318         case 39   : sAngle = "140" + gSeperator + "0gradi"
 319         case 46   : sAngle = "140" + gSeperator + "0 grader"
 320         case 49   : sAngle = "140" + gSeperator + "0 Grad"
 321         case 55   : sAngle = "140" + gSeperator + "0 graus"
 322         case 81   : sAngle = "140" + gSeperator + "0度"
 323         case 82   : sAngle = "140" + gSeperator + "0 도"
 324         case 86   : sAngle = "140" + gSeperator + "0度"
 325         case 88   : sAngle = "140" + gSeperator + "0度"
 326         case else : QAErrorLog "Now, the test does not support for the language " +iSprache
 327                  Goto endsub
 328     end select
 329
 330     sDistanceX = "1" + gSeperator + "00" + gMeasurementUnit
 331     sDistanceY = "1" + gSeperator + "50" + gMeasurementUnit
 332     SPercent   = "150%"
 333     iVerticalShadowColor = 3
 334     iSlantedShadowColor  = 4
 335
 336     printLog Chr(13) + "- Test shadow - include vertical and slanted"
 337     '/// Test shadow - include vertical and slanted
 338
 339     Call hNewDocument
 340
 341     Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
 342     Call wTypeKeys "Test"
 343     Kontext "DocumentWriter"
 344     Call wTypeKeys "<ESCAPE>"
 345
 346     '/// format/fontwork
 347     FormatFontWork
 348     Kontext "Fontwork"
 349     Drehen.Click
 350     Sleep 2
 351     kreisAuswahl.TypeKeys "<Right>"
 352     Sleep 2
 353     Zentriert.Click                        ' center
 354     Sleep 2
 355
 356     'vertical shadow
 357     Senkrecht.Click
 358     Sleep 2
 359     AbstandX.SetText sDistanceX
 360     Sleep 2
 361     AbstandY.SetText sDistanceY
 362     Sleep 2
 363     Schattenfarbe.Select iVerticalShadowColor
 364     Sleep 2
 365     FontWork.Close
 366     Sleep 2
 367
 368     FormatFontWork
 369     Kontext "Fontwork"
 370     Sleep 2
 371     if AbstandX.GetText            <> sDistanceX           then Warnlog "Distance X should be "+sDistanceX+"  but -> "+AbstandX.GetText
 372     Sleep 2
 373     if AbstandY.GetText            <> sDistanceY           then Warnlog "Distance Y should be "+sDistanceY+"  but -> "+AbstandY.GetText
 374     Sleep 2
 375     if Schattenfarbe.GetSelIndex   <> iVerticalShadowColor then Warnlog "Vertical shadow color is wrong."
 376     Sleep 2
 377     'Slanted shadow
 378     Kippen.Click
 379     Sleep 2
 380
 381     printLog "-" + AbstandX.GetText
 382     AbstandX.SetText sAngle
 383     Sleep 2
 384     AbstandY.SetText SPercent
 385     Sleep 2
 386     Schattenfarbe.Select iSlantedShadowColor
 387     Sleep 2
 388     Fontwork.Close
 389     Sleep 2
 390
 391     FormatFontWork
 392     Kontext "Fontwork"
 393     Sleep 2
 394     if AbstandX.GetText <> sAngle then Warnlog "Distance X should be "+sAngle+"  but -> "+AbstandX.GetText
 395     Sleep 2
 396     if Left$(AbstandY.GetText,3) <> Left$(SPercent,3) then Warnlog "Distance Y should be "+SPercent+"  but -> "+AbstandY.GetText
 397     Sleep 2
 398     if Schattenfarbe.GetSelIndex <> iSlantedShadowColor then Warnlog "Slanted shadow color is wrong."
 399     Sleep 2
 400     Fontwork.Close
 401
 402     Call hCloseDocument
 403
 404 endcase
 405
 406 '-------------------------------------------------------------------------