testautomation/writer/optional/includes/drawing/w_drawing_tools1.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_drawing_tools1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:25:48 $
  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 of the drawing tools
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_drawing_tools1
  41
  42     printLog Chr(13) + "- Test of the drawing tools 1"
  43
  44     printLog Chr(13) + " -- Format/Position And Size"
  45
  46     Call tCreateObjects_1            'Create objects from the drawing functions of the Toolbar
  47
  48     Call tPositionAndSize_1          'check checkbox "protect position" of the object
  49     Call tPositionAndSize_2          'check Undo/Redo function of position assignment
  50     Call tPositionAndSize_3          'check "keep ratio" option
  51     Call tPositionAndSize_4          'check Undo/Redo function of size assignment
  52     Call tPositionAndSize_5          'check rotation angle of an object
  53     Call tPositionAndSize_6          'check corner radius of rectangles
  54     Call tPositionAndSize_7          'check corner radius of textboxes
  55     Call tPositionAndSize_8
  56
  57     printLog Chr(13) + " -- Format/line"
  58     'Dialog format/line/line
  59     Call tLine_1                     'check style, color, width and arrow styles . Test undo and redo .
  60     Call tLine_2                     'Check call Format.Line dialog via Button in object bar
  61     Call tLine_3                     'check line attributes are applied in object bar
  62     Call tLine_4                     'check  "synchronize ends"
  63     'Dialog format/line/line styles
  64     Call tline_5                     'check the attributes in format/line/line styles
  65     'Dialog format/line/arrow styles
  66     Call tline_6                     'check the attributes in format/line/arrow styles
  67
  68 end sub
  69
  70 '-------------------------------------------------------------------------
  71
  72 testcase tCreateObjects_1
  73
  74     PrintLog "- Create objects from the drawing functions of the Toolbar , include ..."
  75
  76     Call hNewDocument
  77
  78     Call hToolbarSelect("DRAWING", true)
  79
  80     PrintLog "- Draw a line"
  81     Kontext "Drawbar"
  82     Linie.Click
  83     gMouseMove(30,30,55,55)
  84     gMouseClick (75,5)
  85     Sleep 1
  86
  87     PrintLog "- Draw a rectangle"
  88     Kontext "Drawbar"
  89     Rechteck.Click
  90     gMouseMove(35,35,40,40)
  91     gMouseClick (75,5)
  92     Sleep 1
  93
  94     PrintLog "- Draw a ellipse (circle)"
  95     Kontext "Drawbar"
  96     Ellipse.Click
  97     Call gMouseMove(50,30,75,50)
  98     gMouseClick (75,5)
  99     Sleep 1
 100
 101     PrintLog "- Draw textobject"
 102     Kontext "Drawbar"
 103     Textobjekt.Click
 104     gMouseMove(40,60,60,75)
 105     Sleep 1
 106     Kontext "DocumentWriter"
 107     Call wTypeKeys "This is StarOffice Test !"
 108     gMouseClick (75,5)
 109
 110     PrintLog "- Draw callouts"
 111     Kontext "Drawbar"
 112     Legende.Click
 113     gMouseMove(30,80,50,95)
 114     gMouseClick (75,5)
 115     Sleep 1
 116
 117     Kontext "Drawbar"
 118     Drawbar.Close
 119
 120     Call hCloseDocument
 121
 122 endcase
 123
 124 '-------------------------------------------------------------------------
 125
 126 testcase  tPositionAndSize_1
 127
 128     Dim sPositionX as String
 129     Dim sPositionY as String
 130     Dim sPositionXMove as String
 131     Dim sPositionYMove as String
 132
 133     sPositionX           = "3" + gSeperator + "00" + gMeasurementUnit
 134     sPositionY           = "3" + gSeperator + "00" + gMeasurementUnit
 135     sPositionXMove  = "5" + gSeperator + "00" + gMeasurementUnit
 136     sPositionYMove  = "5" + gSeperator + "00" + gMeasurementUnit
 137
 138     PrintLog "- Check the checkbox 'protect position' of the object"
 139
 140     Call hNewDocument
 141
 142     PrintLog "- Insert a drawing object (rectangle)"
 143     Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
 144     Call gMouseClick(40,50)
 145
 146     printLog "when 'protect position' is Checked"
 147     PrintLog "- Format/Position and size /Position and size ,"
 148     PrintLog "- + set positionX and positionY , and Check 'postion' in protect area"
 149     PrintLog "- + close the dialogue  and reopen it"
 150     PrintLog "- check wether the rectangle can be removed when 'protect position' is Checked"
 151     fPositionAndSize("TabPositionAndSizeWriter")
 152
 153     Horizontalby.Settext "3"
 154     Verticalby.Settext "3"
 155     ProtectPosition.Check
 156
 157     TabPositionAndSizeWriter.OK
 158     Sleep 1
 159
 160     Kontext "DocumentWriter"
 161     Call wTypeKeys "<Right>",2
 162     Call wTypeKeys "<Down>" ,2
 163     Sleep 1
 164
 165     fPositionAndSize("TabPositionAndSizeWriter")
 166
 167     if Horizontalby.Gettext <> sPositionX then Warnlog "X-Position is wrong: Not -> "+sPositionX+"  but -> "+Horizontalby.Gettext
 168     if Verticalby.Gettext <> sPositionY then Warnlog "Y-Position is wrong: Not -> "+sPositionY+"  but -> "+Verticalby.Gettext
 169
 170     ProtectPosition.UnCheck
 171     TabPositionAndSizeWriter.OK
 172
 173     PrintLog "- check wether the rectangle can be removed when 'protect position' is UnChecked"
 174     Kontext "DocumentWriter"
 175     Call wTypeKeys "<Right>",2
 176     Call wTypeKeys "<Down>" ,2
 177     Sleep 1
 178
 179     fPositionAndSize("TabPositionAndSizeWriter")
 180
 181     if Horizontalby.Gettext <> sPositionXMove then Warnlog "X-Position is wrong: Not -> "+sPositionXMove+"  but -> "+Horizontalby.Gettext
 182     if Verticalby.Gettext <> sPositionYMove then Warnlog "Y-Position is wrong: Not -> "+sPositionYMove+"  but -> "+Verticalby.Gettext
 183
 184     TabPositionAndSizeWriter.OK
 185
 186     Call hCloseDocument
 187
 188 endcase
 189
 190 '-------------------------------------------------------------------------
 191
 192 testcase  tPositionAndSize_2
 193
 194     Dim sPositionX as String
 195     Dim sPositionY as String
 196     Dim sPositionXMove as String
 197     Dim sPositionYMove as String
 198
 199     sPositionX           = "3" + gSeperator + "00" + gMeasurementUnit
 200     sPositionY           = "3" + gSeperator + "00" + gMeasurementUnit
 201     sPositionXMove  = "4" + gSeperator + "00" + gMeasurementUnit
 202     sPositionYMove  = "4" + gSeperator + "00" + gMeasurementUnit
 203
 204     PrintLog "- check Undo/Redo function of position assignment"
 205
 206     Call hNewDocument
 207
 208     PrintLog "- Insert a drawing object (rectangle)"
 209     Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
 210     Call gMouseClick(40,50)
 211
 212     fPositionAndSize("TabPositionAndSizeWriter")
 213     Horizontalby.Settext "3"
 214     Verticalby.Settext "3"
 215     TabPositionAndSizeWriter.OK
 216     Sleep 1
 217
 218     Kontext "DocumentWriter"
 219     Call wTypeKeys "<Right>"
 220     Call wTypeKeys "<Down>"
 221     Sleep 1
 222
 223     PrintLog "- check undo function"
 224     EditUndo
 225     Sleep 1
 226     EditUndo
 227     Sleep 1
 228
 229     fPositionAndSize("TabPositionAndSizeWriter")
 230     if Horizontalby.Gettext <> sPositionX then Warnlog "#i40845# X-Position is wrong: Not -> "+sPositionX+"  but -> "+Horizontalby.Gettext
 231     if Verticalby.Gettext <> sPositionY then Warnlog "Y-Position is wrong: Not -> "+sPositionY+"  but -> "+Verticalby.Gettext
 232     TabPositionAndSizeWriter.Cancel
 233
 234     PrintLog "- check redo function"
 235     EditRedo
 236     Sleep 1
 237     EditRedo
 238     Sleep 1
 239
 240     fPositionAndSize("TabPositionAndSizeWriter")
 241     if Horizontalby.Gettext <> sPositionXMove then Warnlog "X-Position is wrong: Not -> "+sPositionXMove+"  but -> "+Horizontalby.Gettext
 242     if Verticalby.Gettext <> sPositionYMove then Warnlog "Y-Position is wrong: Not -> "+sPositionYMove+"  but -> "+Verticalby.Gettext
 243     TabPositionAndSizeWriter.Cancel
 244
 245     Call hCloseDocument
 246
 247 endcase
 248
 249 '-------------------------------------------------------------------------
 250
 251 testcase  tPositionAndSize_3
 252
 253     Dim sWidth as String
 254     Dim sHeight as String
 255     Dim sWidthChange as String
 256     Dim sHeightChange as String
 257
 258     sHeightChange  = "8" + gSeperator + "00" + gMeasurementUnit
 259     sWidthChange   = "6" + gSeperator + "00" + gMeasurementUnit
 260
 261     PrintLog "- check 'keep ratio' option"
 262
 263     Call hNewDocument
 264
 265     PrintLog "- Insert a drawing object (rectangle)"
 266     Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
 267     Call gMouseClick(40,50)
 268
 269     fPositionAndSize("TabPositionAndSizeWriter")
 270
 271     PrintLog "- Check when ratio is 5:4"
 272     Width.Settext  "5"
 273     Height.Settext "4"
 274
 275     KeepRatio.Check
 276     Width.Settext "10"
 277     Sleep 2
 278     if Height.GetText <> sHeightChange then Warnlog "Height is wrong: Not -> "+sHeightChange+"  but -> "+Height.GetText
 279
 280     KeepRatio.UnCheck
 281     PrintLog "- Check when ratio is 3:5"
 282     Width.Settext  "3"
 283     Height.Settext "5"
 284
 285     KeepRatio.Check
 286     Height.Settext "10"
 287     Sleep 2
 288     if Width.GetText <> sWidthChange then Warnlog "Width is wrong: Not -> "+sWidthChange+"  but -> "+Width.GetText
 289
 290     'Recover to the default
 291     KeepRatio.UnCheck
 292     TabPositionAndSizeWriter.OK
 293
 294     Call hCloseDocument
 295
 296 endcase
 297
 298 '-------------------------------------------------------------------------
 299
 300 testcase  tPositionAndSize_4
 301
 302     Dim sWidth as String
 303     Dim sHeight as String
 304     Dim sWidthChange as String
 305     Dim sHeightChange as String
 306
 307     sWidth             = "5" + gSeperator + "00" + gMeasurementUnit
 308     sHeight            = "4" + gSeperator + "00" + gMeasurementUnit
 309     sWidthChange  = "8" + gSeperator + "00" + gMeasurementUnit
 310     sHeightChange = "6" + gSeperator + "00" + gMeasurementUnit
 311
 312     PrintLog "- check Undo/Redo function of size assignment"
 313
 314     Call hNewDocument
 315
 316     PrintLog "- Insert a drawing object (rectangle) , and set the first Size"
 317     Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
 318     Call gMouseClick(40,50)
 319
 320     fPositionAndSize("TabPositionAndSizeWriter")
 321     Width.Settext  sWidth
 322     Height.Settext sHeight
 323     TabPositionAndSizeWriter.OK
 324     Sleep 1
 325
 326     PrintLog "- Set the second Size."
 327     fPositionAndSize("TabPositionAndSizeWriter")
 328     Width.Settext  sWidthChange
 329     Height.Settext sHeightChange
 330     TabPositionAndSizeWriter.OK
 331     Sleep 1
 332
 333     PrintLog "- check undo function"
 334     EditUndo
 335     Sleep 1
 336     fPositionAndSize("TabPositionAndSizeWriter")
 337     if Width.GetText  <> sWidth  then Warnlog "Width is wrong: Not -> "+sWidth+"  but -> "+Width.GetText
 338     if Height.GetText <> sHeight then Warnlog "Height is wrong: Not -> "+sHeight+"  but -> "+Height.GetText
 339     TabPositionAndSizeWriter.Cancel
 340
 341     PrintLog "- check redo function"
 342     EditRedo
 343     Sleep 1
 344
 345     fPositionAndSize("TabPositionAndSizeWriter")
 346     if Width.GetText  <> sWidthChange  then Warnlog "Width is wrong: Not -> "+sWidthChange+"  but -> "+Width.GetText
 347     if Height.GetText <> sHeightChange then Warnlog "Height is wrong: Not -> "+sHeightChange+"  but -> "+Height.GetText
 348     TabPositionAndSizeWriter.Cancel
 349
 350     Call hCloseDocument
 351
 352 endcase
 353
 354 '-------------------------------------------------------------------------
 355
 356 testcase  tPositionAndSize_5
 357
 358     PrintLog "- check rotation angle of an object"
 359
 360     Call hNewDocument
 361
 362     PrintLog "- Insert a drawing object (rectangle) , and set its rotation angle"
 363     Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
 364     Call gMouseClick(40,50)
 365
 366     Call fPositionAndSize("TabDrehung")
 367     Winkel.SetText "45"
 368     TabDrehung.OK
 369     Sleep 1
 370
 371     Call fPositionAndSize("TabDrehung")
 372     if Left$(Winkel.GetText,5) <> "45" + gSeperator + "00" then
 373         Warnlog "The rotation angle isn't corroct! It should be 45" & gSeperator & "00, but get " + Left$(Winkel.GetText, 5)
 374     end if
 375     TabDrehung.Cancel
 376
 377     Call hCloseDocument
 378
 379 endcase
 380
 381 '-------------------------------------------------------------------------
 382
 383 testcase  tPositionAndSize_6
 384
 385     Dim sRadius as String
 386
 387     sRadius = "0" + gSeperator + "50" + gMeasurementUnit
 388
 389     PrintLog "- check corner radius of rectangles"
 390
 391     Call hNewDocument
 392
 393     PrintLog "- Insert a rectangle , and set its corner radius."
 394     Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
 395     Call gMouseClick(40,50)
 396
 397     fPositionAndSize("TabSchraegstellen")
 398      Radius.SetText sRadius
 399     TabSchraegstellen.OK
 400     Sleep 1
 401
 402     fPositionAndSize("TabSchraegstellen")
 403      if Radius.GetText <> sRadius then Warnlog "The Radius isn't corroct! It should be " +sRadius + " , but was " +Radius.GetText
 404     TabSchraegstellen.Cancel
 405
 406     Call hCloseDocument
 407
 408 endcase
 409
 410 '-------------------------------------------------------------------------
 411
 412 testcase  tPositionAndSize_7
 413
 414     Dim sRadius as String
 415
 416     sRadius = "0" + gSeperator + "50" + gMeasurementUnit
 417
 418     PrintLog "- check corner radius of textboxes."
 419
 420     Call hNewDocument
 421
 422     PrintLog "- Insert a rectangle , and set its corner radius"
 423
 424     Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
 425     Call wTypeKeys "The test for corner radius of textboxes..."
 426     Kontext "DocumentWriter"
 427     Call wTypeKeys "<ESCAPE>"
 428
 429     fPositionAndSize("TabSchraegstellen")
 430      Radius.SetText sRadius
 431     TabSchraegstellen.OK
 432     Sleep 1
 433
 434     fPositionAndSize("TabSchraegstellen")
 435      if Radius.GetText <> sRadius then Warnlog "The Radius isn't corroct! It should be " +sRadius + " ,but get " +Radius.GetText
 436     TabSchraegstellen.Cancel
 437
 438     Call hCloseDocument
 439
 440 endcase
 441
 442 '-------------------------------------------------------------------------
 443
 444 testcase  tPositionAndSize_8
 445
 446     Dim sPositionStartX as String
 447     Dim sPositionStartY as String
 448     Dim sWidth as String
 449     Dim sHeight as String
 450     Dim sPivotDefaultX as String
 451     Dim sPivotDefaultY as String
 452     Dim sPivotStartX as String
 453     Dim sPivotStartY as String
 454     Dim sPivotEndX  as String
 455     Dim sPivotEndY as String
 456
 457     sPositionStartX   = "3" + gSeperator + "00" + gMeasurementUnit
 458     sPositionStartY   = "3" + gSeperator + "00" + gMeasurementUnit
 459     sWidth            = "4" + gSeperator + "00" + gMeasurementUnit
 460     sHeight           = "3" + gSeperator + "00" + gMeasurementUnit
 461
 462     sPivotDefaultX    = "5" + gSeperator + "00" + gMeasurementUnit
 463     sPivotDefaultY    = "4" + gSeperator + "50" + gMeasurementUnit
 464     sPivotStartX      = "3" + gSeperator + "50" + gMeasurementUnit
 465     sPivotStartY      = "2" + gSeperator + "50" + gMeasurementUnit
 466     sPivotEndX        = "6" + gSeperator + "50" + gMeasurementUnit
 467     sPivotEndY        = "6" + gSeperator + "50" + gMeasurementUnit
 468
 469     PrintLog "- check 'keep ratio' option"
 470
 471     Call hNewDocument
 472
 473     PrintLog "- Insert a drawing object (rectangle)"
 474     Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
 475     Call gMouseClick(40,50)
 476
 477     fPositionAndSize("TabPositionAndSizeWriter")
 478     Width.Settext        sWidth
 479     Height.Settext       sHeight
 480     Horizontalby.Settext sPositionStartX
 481     Verticalby.Settext   sPositionStartY
 482     TabPositionAndSizeWriter.OK
 483     Sleep 1
 484     fPositionAndSize("TabDrehung")
 485     Winkel.SetText "270"
 486     TabDrehung.OK
 487     Sleep 1
 488
 489     fPositionAndSize("TabDrehung")
 490     if PositionX.Gettext <> sPivotDefaultX then Warnlog "X-Position is wrong: Not -> "+sPivotDefaultX+"  but -> "+PositionX.Gettext
 491     if PositionY.Gettext <> sPivotDefaultY then Warnlog "Y-Position is wrong: Not -> "+sPivotDefaultY+"  but -> "+PositionY.Gettext
 492
 493     Drehpunkt.TypeKeys "<Up>"
 494     Drehpunkt.TypeKeys "<Left>"
 495
 496     if PositionX.Gettext <> sPivotStartX then Warnlog "X-Position is wrong: Not -> "+sPivotStartX+"  but -> "+PositionX.Gettext
 497     if PositionY.Gettext <> sPivotStartY then Warnlog "Y-Position is wrong: Not -> "+sPivotStartY+"  but -> "+PositionY.Gettext
 498
 499     Drehpunkt.TypeKeys "<Right>" , 2
 500     Drehpunkt.TypeKeys "<Down>"  , 2
 501
 502     if PositionX.Gettext <> sPivotEndX then Warnlog "X-Position is wrong: Not -> "+sPivotEndX+"  but -> "+PositionX.Gettext
 503     if PositionY.Gettext <> sPivotEndY then Warnlog "Y-Position is wrong: Not -> "+sPivotEndY+"  but -> "+PositionY.Gettext
 504     TabDrehung.Cancel
 505
 506     Call hCloseDocument
 507
 508 endcase
 509
 510 '-------------------------------------------------------------------------
 511
 512 testcase  tLine_1
 513
 514     Dim iLineStyle as Integer
 515     Dim iColor as Integer
 516     Dim iArrowStyleLeft as Integer
 517     Dim iArrowStyleRight as Integer
 518     Dim sLineWidth as String
 519     Dim sTransparency as String
 520     Dim sArrowWidthLeft as String
 521     Dim sArrowWidthRight as String
 522
 523     Dim iLineStyleDefault as Integer
 524     Dim iColorDefault as Integer
 525     Dim iArrowStyleLeftDefault as Integer
 526     Dim iArrowStyleRightDefault as Integer
 527     Dim sLineWidthDefault as String
 528     Dim sTransparencyDefault as String
 529     Dim sArrowWidthLeftDefault as String
 530     Dim sArrowWidthRightDefault as String
 531
 532     sTransparency    = "25%"
 533     iLineStyle       = 3
 534     iColor           = 7
 535     iArrowStyleLeft  = 2
 536     iArrowStyleRight = 3
 537     sLineWidth       = "0" + gSeperator + "10" + gMeasurementUnit
 538     sArrowWidthLeft  = "0" + gSeperator + "55" + gMeasurementUnit
 539     sArrowWidthRight = "0" + gSeperator + "60" + gMeasurementUnit
 540
 541     PrintLog "- check style, color, width and arrow styles"
 542
 543     Call hNewDocument
 544
 545     PrintLog "- Insert a line"
 546     Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
 547     Sleep 2
 548     Call gMouseClick(40,40)
 549     Sleep 2
 550     Call wTypeKeys ( "<Shift F4>" )
 551     Sleep 1
 552
 553     PrintLog "- modify Style ,color , width and arrow styles"
 554     fFormatLine("TabLinie")
 555
 556     iLineStyleDefault       = Stil.GetSelIndex
 557     iColorDefault           = Farbe.GetSelIndex
 558     slineWidthDefault       = Breite.GetText
 559     sTransparencyDefault    = Transparenz.GetText
 560     iArrowStyleLeftDefault  = StilLinks.GetSelIndex
 561     iArrowStyleRightDefault = StilRechts.GetSelIndex
 562     sArrowWidthLeftDefault  = BreiteLinks.GetText
 563     sArrowWidthRightDefault = BreiteRechts.GetText
 564
 565     PrintLog "- Line properties , include :"
 566     PrintLog "- - Style"
 567     Stil.Select iLineStyle
 568     wait 500
 569     PrintLog "- - Color"
 570     Farbe.Select iColor
 571     wait 500
 572     PrintLog "- - Width"
 573     Breite.SetText sLineWidth
 574     wait 500
 575     PrintLog "- - Transparency"
 576     Transparenz.SetText sTransparency
 577     wait 500
 578
 579     PrintLog "- Arrow styles , include :"
 580     PrintLog "- - Synchronize ends"
 581     EndenSynchronisieren.UnCheck
 582     PrintLog "- - Style (left and right)"
 583     StilLinks.Select  iArrowStyleLeft
 584     StilRechts.Select iArrowStyleRight
 585     wait 500
 586     PrintLog "- - Width (left and right)"
 587     BreiteLinks.SetText  sArrowWidthLeft
 588     BreiteRechts.SetText sArrowWidthRight
 589     PrintLog "- - Center (left and right)"
 590     ZentriertLinks.Check
 591     ZentriertRechts.Check
 592
 593     TabLinie.OK
 594
 595     PrintLog "- Check all changes"
 596     fFormatLine("TabLinie")
 597
 598     if Stil.GetSelIndex    <> iLineStyle    then Warnlog "Line style is wrong."
 599     if Farbe.GetSelIndex   <> iColor        then Warnlog "Line color is wrong."
 600     if Breite.GetText      <> sLineWidth    then Warnlog "Line width is wrong."
 601     if Transparenz.GetText <> sTransparency then Warnlog "Line transparency is wrong."
 602
 603     if EndenSynchronisieren.IsChecked = TRUE         then Warnlog "Synchronize ends should NOT be checked."
 604     if StilLinks.GetSelIndex     <> iArrowStyleLeft  then Warnlog "The left arrow style is wrong."
 605     if StilRechts.GetSelIndex    <> iArrowStyleRight then Warnlog "The right arrow style is wrong."
 606     if BreiteLinks.GetText       <> sArrowWidthLeft  then Warnlog "The left arrow width is wrong."
 607     if BreiteRechts.GetText      <> sArrowWidthRight then Warnlog "The right arrow width is wrong."
 608     if ZentriertLinks.IsChecked  <> TRUE             then Warnlog "The left 'center' should be checked"
 609     if ZentriertRechts.IsChecked <> TRUE             then Warnlog "The right 'center' should be checked"
 610     TabLinie.Cancel
 611
 612     PrintLog "- Test Undo function"
 613     Kontext "DocumentWriter"
 614     EditUndo
 615     Sleep 1
 616
 617     fFormatLine("TabLinie")
 618     if Stil.GetSelIndex    <> iLineStyleDefault    then Warnlog "Line style is wrong."
 619     if Farbe.GetSelIndex   <> iColorDefault        then Warnlog "Line color is wrong."
 620     if Breite.GetText      <> sLineWidthDefault    then Warnlog "Line width is wrong."
 621     if Transparenz.GetText <> sTransparencyDefault then Warnlog "Line transparency is wrong."
 622
 623     if EndenSynchronisieren.IsChecked = TRUE                then Warnlog "Synchronize ends should NOT be checked."
 624     if StilLinks.GetSelIndex     <> iArrowStyleLeftDefault  then Warnlog "The left arrow style is wrong."
 625     if StilRechts.GetSelIndex    <> iArrowStyleRightDefault then Warnlog "The right arrow style is wrong."
 626     if BreiteLinks.GetText       <> sArrowWidthLeftDefault  then Warnlog "The left arrow width is wrong."
 627     if BreiteRechts.GetText      <> sArrowWidthRightDefault then Warnlog "The right arrow width is wrong."
 628     if ZentriertLinks.IsChecked  = TRUE                     then Warnlog "The left 'center' should be checked"
 629     if ZentriertRechts.IsChecked = TRUE                     then Warnlog "The right 'center' should be checked"
 630     TabLinie.Cancel
 631
 632     PrintLog "- Test Redo function"
 633     Kontext "DocumentWriter"
 634     EditRedo
 635     Sleep 1
 636
 637     fFormatLine("TabLinie")
 638     if Stil.GetSelIndex    <> iLineStyle    then Warnlog "Line style is wrong."
 639     if Farbe.GetSelIndex   <> iColor        then Warnlog "Line color is wrong."
 640     if Breite.GetText      <> sLineWidth    then Warnlog "Line width is wrong."
 641     if Transparenz.GetText <> sTransparency then Warnlog "Line transparency is wrong."
 642
 643     if EndenSynchronisieren.IsChecked = TRUE         then Warnlog "Synchronize ends should NOT be checked."
 644     if StilLinks.GetSelIndex     <> iArrowStyleLeft  then Warnlog "The left arrow style is wrong."
 645     if StilRechts.GetSelIndex    <> iArrowStyleRight then Warnlog "The right arrow style is wrong."
 646     if BreiteLinks.GetText       <> sArrowWidthLeft  then Warnlog "The left arrow width is wrong."
 647     if BreiteRechts.GetText      <> sArrowWidthRight then Warnlog "The right arrow width is wrong."
 648     if ZentriertLinks.IsChecked  <> TRUE             then Warnlog "The left 'center' should be checked"
 649     if ZentriertRechts.IsChecked <> TRUE             then Warnlog "The right 'center' should be checked"
 650     TabLinie.Cancel
 651
 652     Call hCloseDocument
 653
 654 endcase
 655
 656 '-------------------------------------------------------------------------
 657
 658 testcase  tLine_2
 659
 660     PrintLog "- Check call Format.Line dialog via Button in object bar."
 661
 662     Call hNewDocument
 663
 664     PrintLog "- Insert a line."
 665     Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
 666     Sleep 2
 667     Call gMouseClick(40,40)
 668     Sleep 2
 669     Call wTypeKeys ( "<Shift F4>" )
 670     Sleep 1
 671
 672     PrintLog "- call Format/Line dialog via Button in object bar."
 673     try
 674         Kontext "DrawingObjectbar"
 675         Linie.Click
 676         Kontext
 677         active.SetPage TabLinie
 678         Sleep 1
 679         Kontext "TabLinie"
 680         Kontext
 681         active.SetPage TabLinienstile
 682         Sleep 1
 683         Kontext "TabLinienstile"
 684         Kontext
 685         active.SetPage TabLinienenden
 686         Sleep 1
 687         Kontext "TabLinienenden"
 688         TabLinienenden.Cancel
 689     catch
 690         Warnlog "Can't call format/line via Button in object bar."
 691     endcatch
 692
 693     Call hCloseDocument
 694
 695 endcase
 696
 697 '-------------------------------------------------------------------------
 698
 699 testcase  tLine_3
 700
 701     Dim iLineStyle as Integer
 702     Dim iColor as Integer
 703     Dim iArrowStyleLeft as Integer
 704     Dim iArrowStyleRight as Integer
 705     Dim sLineWidth as String
 706
 707     iLineStyle          = 4
 708     iColor                = 5
 709     iArrowStyleLeft  = 4
 710     iArrowStyleRight = 6
 711
 712     PrintLog "- check line attributes are applied in object bar ,include -"
 713
 714     Call hNewDocument
 715
 716     PrintLog "- Insert a line"
 717     Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
 718     Sleep 2
 719     Call gMouseClick(40,40)
 720     Sleep 2
 721     Call wTypeKeys ( "<Shift F4>" )
 722     Sleep 1
 723
 724     PrintLog "- set Arrow Styles"
 725     Kontext "DrawingObjectbar"
 726     Linienendenstil.TearOff
 727     Kontext "Linienenden"
 728     Sleep 1
 729     Auswahl.TypeKeys "<Down>" , 4
 730     Sleep 2
 731     Auswahl.TypeKeys "<Return>"
 732     Sleep 2
 733     Auswahl.TypeKeys "<Right>"
 734     Sleep 2
 735     Auswahl.TypeKeys "<Down>" , 2
 736     Sleep 2
 737     Auswahl.TypeKeys "<Return>"
 738     Sleep 2
 739     Linienenden.Close
 740     Sleep 2
 741
 742     PrintLog "- set Line Style"
 743     Kontext "DrawingObjectbar"
 744     Linienstil.Select iLineStyle
 745
 746     PrintLog "- + Line Width"
 747     Linienbreite.More 4
 748     sLineWidth = Linienbreite.GetText
 749
 750     PrintLog "- + Line Color"
 751     Linienfarbe.Select iColor
 752
 753     PrintLog "- check the lines status"
 754     fFormatLine("TabLinie")
 755     if Stil.GetSelIndex    <> iLineStyle    then Warnlog "Line style is wrong."
 756     if Farbe.GetSelIndex   <> iColor        then Warnlog "Line color is wrong."
 757     if Breite.GetText      <> sLineWidth    then warnlog "Line width is wrong."
 758
 759     if StilLinks.GetSelIndex   <> iArrowStyleLeft  then Warnlog "Arrow style is not correctly shown in format dialog"
 760     if StilRechts.GetSelIndex  <> iArrowStyleRight then Warnlog "Arrow style is not correctly shown in format dialog"
 761
 762     TabLinie.Cancel
 763
 764     Call hCloseDocument
 765
 766 endcase
 767
 768 '-------------------------------------------------------------------------
 769
 770 testcase  tLine_4
 771
 772     Dim iArrowStyleLeft as Integer
 773     Dim iArrowStyleRight as Integer
 774
 775     iArrowStyleLeft  = 2
 776     iArrowStyleRight = 3
 777
 778     PrintLog "- check  'synchronize ends'"
 779
 780     Call hNewDocument
 781
 782     Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
 783     Sleep 2
 784     Call gMouseClick(40,40)
 785     Sleep 2
 786     Call wTypeKeys ( "<Shift F4>" )
 787     Sleep 1
 788
 789     fFormatLine("TabLinie")
 790     PrintLog "- Check Synchronize ends"
 791     EndenSynchronisieren.Check
 792
 793     PrintLog "- Style (left and right)"
 794     StilLinks.Select  iArrowStyleLeft
 795     Sleep 1
 796     if StilRechts.GetSelIndex <> iArrowStyleLeft then Warnlog "The right arrow style is wrong."
 797
 798     StilRechts.Select iArrowStyleRight
 799     Sleep 1
 800     if StilLinks.GetSelIndex <> iArrowStyleRight then Warnlog "The left arrow style is wrong."
 801
 802     TabLinie.Cancel
 803
 804     Call hCloseDocument
 805
 806 endcase
 807
 808 '-------------------------------------------------------------------------
 809
 810 testcase  tLine_5
 811
 812     Dim iLineTypeLeft as Integer
 813     Dim iLineTypeRight as Integer
 814     Dim sLineStyle as String
 815     Dim sRightLength as String
 816     Dim sSpace as String
 817     Dim sLeftNumber as String
 818     Dim sRightNumber as String
 819
 820     sLineStyle     = "myTest"
 821     iLineTypeLeft  =  1
 822     iLineTypeRight =  2
 823     sLeftNumber    = "3"
 824     sRightNumber   = "2"
 825     sRightLength   = "0" + gSeperator + "30" + gMeasurementUnit
 826     sSpace         = "0" + gSeperator + "10" + gMeasurementUnit
 827
 828     PrintLog "- check  'check the attributes in format/line/line styles'"
 829
 830     Call hNewDocument
 831
 832     Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
 833     Sleep 2
 834     Call gMouseClick(40,40)
 835     Sleep 2
 836     Call wTypeKeys ( "<Shift F4>" )
 837     Sleep 1
 838
 839     Call fFormatLine("TabLinienstile")
 840
 841     AnLinienbreite.UnCheck
 842
 843     TypLinks.Select      iLineTypeLeft
 844     TypRechts.Select     iLineTypeRight
 845     AnzahlLinks.SetText  sLeftNumber
 846     AnzahlRechts.SetText sRightNumber
 847     LaengeRechts.SetText sRightLength
 848     Abstand.SetText      sSpace
 849     TabLinienstile.OK
 850     Sleep 1
 851
 852     Kontext
 853     Kontext "Linienstil"
 854     if Linienstil.Exists then
 855         Hinzufuegen.Click
 856     else
 857         Warnlog "The dialog doesn't appear ! No test for this case"
 858         Kontext "TabLinienstile"
 859         goto NoTEST
 860     end if
 861     Sleep 1
 862
 863     Kontext
 864     Kontext "LinieName"
 865
 866     if LinieName.Exists then
 867         Sleep 1
 868         Eingabefeld.SetText sLineStyle
 869         Sleep 1
 870         LinieName.OK
 871         Sleep 1
 872     else
 873         Warnlog "The dialog doesn't appear !"
 874         Goto endsub
 875     end if
 876
 877     Call fFormatLine("TabLinienstile")
 878     Sleep 2
 879     if AnLinienbreite.IsChecked =  TRUE           then Warnlog "Fit to line width should NOT be checked"
 880     Sleep 1
 881     if TypLinks.GetSelIndex     <> iLineTypeLeft  then Warnlog "The left line type is wrong !"
 882     Sleep 1
 883     if TypRechts.GetSelIndex    <> iLineTypeRight then Warnlog "The right line type is wrong !"
 884     Sleep 1
 885     if AnzahlLinks.GetText      <> sLeftNumber    then Warnlog "The left number is wrong !"
 886     Sleep 1
 887     if AnzahlRechts.GetText     <> sRightNumber   then Warnlog "The right number is wrong !"
 888     Sleep 1
 889     if LaengeLinks.IsEnabled                      then Warnlog "The left length should be unable !"
 890     Sleep 1
 891     if LaengeRechts.GetText     <> sRightLength   then Warnlog "The right length is wrong !"
 892     Sleep 1
 893     if Abstand.GetText          <> sSpace         then Warnlog "The spacing is wrong !"
 894     Sleep 1
 895
 896 NoTEST:
 897     'delete the testing line type , recover to the default
 898     Loeschen.Click
 899     Sleep 1
 900     Kontext "Active"
 901     if Active.Exists then
 902         if Active.GetRT = 304 then
 903             Active.Yes
 904             Sleep 1
 905         else
 906             Warnlog "Something wrong when deleting the new line type!"
 907         end if
 908     end if
 909
 910     Kontext
 911     Kontext "TabLinienstile"
 912     TabLinienstile.OK
 913     Sleep 1
 914     Call hCloseDocument
 915
 916 endcase
 917
 918 '-------------------------------------------------------------------------
 919
 920 testcase  tLine_6
 921
 922     Dim i as Integer
 923     Dim sArrowTitle1 as String
 924     Dim sArrowTitle2 as String
 925     Dim soeFile as String
 926     Dim soeDefaultFile as String
 927
 928     sArrowTitle1  = "myTest1"
 929     sArrowTitle2  = "myTest2"
 930
 931     soeFile            = ConvertPath(gOfficePath + "user\work\standard_reserver.soe")
 932     soeDefaultFile = ConvertPath(gOfficePath + "user\config\standard.soe")
 933
 934     if hFileExists ( soeFile ) then app.kill ( soeFile )
 935
 936     PrintLog "- check the attributes in format/line/arrow styles"
 937
 938     Call hNewDocument
 939
 940     Call wZeichenobjektEinfuegen("RECHTECK", 32, 40, 40, 60)
 941     Call wZeichenobjektEinfuegen("ELLIPSE",  32, 65, 40, 85)
 942
 943     Call wZeichenobjektEinfuegen("LINIE", 30,40 , 60,50 , false)
 944     Call gMouseClick(30,40)
 945
 946     PrintLog "- add the first test arrow type."
 947     fFormatLine("TabLinienenden")
 948     PrintLog "- save the arrow types first."
 949     Speichern.Click
 950     Kontext
 951     Kontext "SpeichernDlg"
 952     Dateiname.SetText soeFile
 953     Speichern.Click
 954     Sleep 2
 955
 956     Kontext
 957     Kontext "TabLinienenden"
 958     PrintLog "- delete the all arrow types."
 959     if Loeschen.IsEnabled then
 960         for i = 1 to Liste.GetItemCount
 961             Loeschen.Click
 962             Kontext "Active"
 963             if Active.Exists then
 964                 if Active.GetRT = 304 then
 965                     Active.Yes
 966                 else
 967                     Warnlog "Something wrong when deleting the arrow types!"
 968                 end if
 969             end if
 970             Kontext
 971             Kontext "TabLinienenden"
 972         next i
 973     end if
 974
 975     Hinzufuegen.Click
 976     Kontext
 977     Kontext "LinieName"
 978     Eingabefeld.SetText sArrowTitle1
 979     LinieName.OK
 980
 981     Kontext
 982     Kontext "TabLinienenden"
 983     TabLinienenden.OK
 984
 985     PrintLog "- add the second test arrow type."
 986     Call wZeichenobjektEinfuegen("LINIE", 30,70 , 60,50 , false)
 987     Call gMouseClick(30,70)
 988     fFormatLine("TabLinienenden")
 989     Hinzufuegen.Click
 990     Kontext
 991     Kontext "LinieName"
 992     Eingabefeld.SetText sArrowTitle2
 993     LinieName.OK
 994
 995     Kontext
 996     Kontext "TabLinienenden"
 997     TabLinienenden.OK
 998
 999     Call gMouseClick(30,40)
1000     fFormatLine("TabLinienenden")
1001
1002     Liste.Select 1
1003     if TextFeld.GetText <> sArrowTitle1 then Warnlog "The first arraw title is wrong, hope "+sArrowTitle1+ " but get " +TextFeld.GetText
1004     Liste.Select 2
1005     if TextFeld.GetText <> sArrowTitle2 then Warnlog "The first arraw title is wrong, hope "+sArrowTitle2+ " but get " +TextFeld.GetText
1006
1007     Oeffnen.Click
1008     Kontext
1009     Kontext "OeffnenDlg"
1010     Pfad.SetText soeFile
1011     Oeffnen.Click
1012     Sleep 1
1013     Kontext
1014     Kontext "TabLinienenden"
1015
1016     if hFileExists ( soeDefaultFile ) then app.kill ( soeDefaultFile )
1017
1018     Speichern.Click
1019     Kontext
1020     Kontext "SpeichernDlg"
1021     Dateiname.SetText soeDefaultFile
1022     Speichern.Click
1023     Sleep 2
1024
1025     Kontext
1026     Kontext "TabLinienenden"
1027     TabLinienenden.OK
1028
1029     Call hCloseDocument
1030
1031 endcase
1032
1033 '-------------------------------------------------------------------------