testautomation/writer/optional/includes/number/w_205_.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_205_.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:19:08 $
  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 : Testing Number and Bullets
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_205_
  41
  42     Call tNumberingBullets_1
  43     Call tFormatNumberingBullets
  44     Call tFormatNumberingPosition
  45     Call tFormatNumberingOptions
  46     Call tFormatNumberingAll
  47
  48 end sub
  49
  50 testcase tNumberingBullets_1
  51
  52     printlog "Turn several selected paragraphs into numbered list"
  53         '/// Open a new text document
  54     Call hNewDocument()
  55     '/// Insert 3 times dummy text
  56     Call wBlindTextEinfuegen()
  57     Call wBlindTextEinfuegen()
  58     Call wBlindTextEinfuegen()
  59     '/// Select all inserted text
  60     call wTypeKeys "<shift mod1 home>"
  61
  62     '/// Choose 'Numbering' on 'Objectbar'
  63     Kontext "TextObjectbar"
  64     try
  65         Numerierung.Click
  66         catch
  67         warnlog "Objectbar is not accessible for numbering bullets"
  68         endcatch
  69     '/// Check if numbering has been created
  70     if (hIsNumberingBullets () <> True) then
  71         Warnlog " - Seems numbering has not been created"
  72     else
  73         printlog " - Numbering has been created"
  74         end if
  75
  76     '/// Turn numbereing off via Toolbar
  77     Printlog "Turn Numbering off"
  78     OL_Writer_Numerierung
  79     '/// Check if numbering has been turned off
  80     if (hIsNumberingBullets () <> False) then
  81         warnlog " - Seems numbering is still available"
  82     else
  83         printlog " - Numbering has been turned off"
  84     end if
  85
  86     Printlog "'/// Restart counting via Format->Paragraph->Numbering ///"
  87     Call hFormatParagraphNumbering ("",1,-1)
  88     if (hIsNumberingBullets () <> True) then
  89         Warnlog "Seems numbering has not been created"
  90     else
  91       printlog "Numbering has been created"
  92     end if
  93
  94     Printlog "'/// +O+ restart numbering enable///"
  95     ' checked 'restart numbering' on tabpage toggles icon at Objectbar
  96     Kontext "NumObjectbar"
  97     if Not NumObjectBar.Exists then Call hToolbarSelect ( "BULLETSANDNUMBERING", true )
  98
  99     ' Button in objectbar has to be checked
 100     if NeuStarten.GetState(2) <> 1 then
 101         warnlog "Button 'Restart Numbering' not pressed!"
 102         NeuStarten.Click
 103         sleep (1)
 104         if NeuStarten.GetState(2) <> 1 then
 105             warnlog "doesn't work"
 106         else
 107             printlog "     --- worked :-)"
 108         end if
 109     else
 110         ' Undo 'restart numbering'
 111         Printlog "'                          disable"
 112         NeuStarten.Click
 113         sleep (1)
 114         if NeuStarten.GetState(2) <> 0 then
 115             warnlog "doesn't work "
 116         else
 117             printlog "     --- worked :-)"
 118         end if
 119     end if
 120
 121     Call hCloseDocument
 122
 123 endcase
 124
 125 '--------------------------------------------------
 126
 127 testcase tFormatNumberingBullets
 128         Dim i as Integer :
 129         PrintLog "- Format / Numbering and Bullets"
 130
 131         '/// New document ///
 132         Call hNewDocument
 133
 134         printlog "  - All bullet entries"
 135         '/// Insert all bullet entries ///
 136         for i=1 to 8
 137                 FormatNumberingBullets
 138                 Kontext
 139                 Active.SetPage TabBullet
 140                 Kontext "TabBullet"
 141                 Auswahl.TypeKeys "<Right>", i
 142                 TabBullet.OK
 143                 call wTypeKeys "Bullet <Return><Return>"
 144         next i
 145
 146         printlog "  - All Numbering entries"
 147         '/// Insert all numbering entries ///
 148         for i=1 to 8
 149                 FormatNumberingBullets
 150                 Kontext
 151                 Active.SetPage TabNumerierungsart
 152                 Kontext "TabNumerierungsart"
 153                 Auswahl.TypeKeys "<Right>", i
 154                 TabNumerierungsart.OK
 155                 call wTypeKeys "Nummerierungsart <Return><Return>"
 156                 Sleep 1
 157         next i
 158
 159         printlog "  - All entries in Level"
 160         '/// Insert all level entries ///
 161         for i=1 to 8
 162                 FormatNumberingBullets
 163                 Kontext
 164                 Active.SetPage TabGliederung
 165                 Kontext "TabGliederung"
 166                 Auswahl.TypeKeys "<Right>", i
 167                 TabGliederung.OK
 168                 call wTypeKeys "Gliederung <Return><Return>"
 169                 Sleep 1
 170         next i
 171
 172         printlog "  - All entries in graphic"
 173         '/// Insert all graphic entries ///
 174         for i=1 to 29
 175                 FormatNumberingBullets
 176                 Kontext
 177                 Active.SetPage TabGrafiken
 178                 Kontext "TabGrafiken"
 179                 wait 500
 180                 Auswahl.TypeKeys "<Right>", i
 181                 TabGrafiken.OK
 182                 call wTypeKeys "Grafik <Return><Return>"
 183                 Sleep 1
 184         next i
 185
 186         printlog "  - Save document and reload"
 187         '/// Save document, close and reopen previous saved document ///
 188         Call hFileSaveAsKill ( gOfficePath + "user\work\format4." & WriterFilterExtension(0) )
 189         Sleep 2
 190         Call hCloseDocument
 191         Sleep 2
 192         Call hFileOpen ( gOfficePath + "user\work\format4." & WriterFilterExtension(0) )
 193         Sleep 2
 194         '/// Close document ///
 195         Call hCloseDocument
 196 endcase
 197
 198 '--------------------------------------------------
 199 testcase tFormatNumberingPosition
 200     Dim V1 : Dim V2 :  Dim V3 : Dim V4 :  Dim V5 : Dim V6 :  Dim V7 : Dim V8 : Dim V9 : Dim V10
 201     Dim V11 : Dim V12 :  Dim V13 : Dim V14 :  Dim V15 : Dim V16
 202
 203     printlog "  - adjust position of Numbering"
 204     '/// New document ///
 205     Call hNewDocument
 206     '/// Select Format / Numbering Bullets and adjust position for each level ///
 207     FormatNumberingBullets
 208     Kontext
 209     Active.SetPage TabPositionNumerierung
 210     Kontext "TabPositionNumerierung"
 211     Level.Select 1
 212     Alignment.Select 2         ' Zentriert
 213 '    if Relativ.IsEnabled then Warnlog "Relativ is enabled with level1!"
 214     AlignedAt.More 5
 215     V1 = AlignedAt.GetText
 216     IndentAt.More 1
 217     V2 = IndentAt.GetText
 218     Level.Select 3
 219     Alignment.Select 3         ' Rechts
 220 '    Relativ.Check
 221     AlignedAt.Less 5
 222     V3 = AlignedAt.GetText
 223 '    AbstandTextNumerierung.More 2
 224 '    V4 = AbstandTextNumerierung.GetText
 225     Level.Select 4
 226     Alignment.Select 1         ' Links
 227 '    Relativ.Check
 228     V5 = AlignedAt.GetText
 229  '   V6 = AbstandTextNumerierung.GetText
 230     V7 = IndentAt.GetText
 231     Level.Select 6
 232     Alignment.Select 3         ' Rechts
 233 '    Relativ.Check
 234     AlignedAt.More 4
 235     V8 = AlignedAt.GetText
 236 '    AbstandTextNumerierung.Less 3
 237 '    V9 = AbstandTextNumerierung.GetText
 238     IndentAt.Less 3
 239     V10 = IndentAt.GetText
 240     Level.Select 9
 241     Alignment.Select 1
 242 '    Relativ.Check
 243     AlignedAt.Less 2
 244     V11 = AlignedAt.GetText
 245 '    AbstandTextNumerierung.More 2
 246 '    V12 = AbstandTextNumerierung.GetText
 247     IndentAt.More 3
 248     V13 = IndentAt.GetText
 249     Level.Select 10
 250     Alignment.Select 3
 251 '    Relativ.Check
 252     AlignedAt.More 4
 253     V14 = AlignedAt.GetText
 254 '    AbstandTextNumerierung.Less 3
 255 '    V15 = AbstandTextNumerierung.GetText
 256     IndentAt.Less 3
 257     V16 = IndentAt.GetText
 258     TabPositionNumerierung.OK
 259
 260     printlog "  - write down numbering"
 261     '/// write down the numbering ///
 262     call wTypeKeys "Nummerierung 1. Ebene<Return>"
 263     call wTypeKeys "<Tab>Nummerierung 2. Ebene<Return>"
 264     call wTypeKeys "<Tab>Nummerierung 3. Ebene<Return>"
 265     call wTypeKeys "<Tab>Nummerierung 4. Ebene<Return>"
 266     call wTypeKeys "<Tab>Nummerierung 5. Ebene<Return>"
 267     call wTypeKeys "<Tab>Nummerierung 6. Ebene<Return>"
 268     call wTypeKeys "<Tab>Nummerierung 7. Ebene<Return>"
 269     call wTypeKeys "<Tab>Nummerierung 8. Ebene<Return>"
 270     call wTypeKeys "<Tab>Nummerierung 9. Ebene<Return>"
 271     call wTypeKeys "<Tab>Nummerierung  10. Ebene<Return>"
 272     call wTypeKeys "<Tab>Immer noch 10. Ebene<Return>"
 273     call wTypeKeys "<Return><Return>Ende der Nummerierung"
 274     call wTypeKeys "<Up>", 5
 275
 276     printlog "  - check numbering-position"
 277     '/// reopen Format / NumberingBullets and check settings made ///
 278     FormatNumberingBullets
 279     Kontext
 280     Active.SetPage TabPositionNumerierung
 281     Kontext "TabPositionNumerierung"
 282     Level.Select 1
 283 '    if Alignment.GetSelIndex <> 2 then Warnlog "#i38904#Level 1: Wrong alignment:  Should = 2   Ist = "+ Alignment.GetSelIndex
 284     if V1 <> AlignedAt.GetText then Warnlog "Level 1: Wrong Text <-> Rand:  Should = "+ V1+ "  Is = "+ AlignedAt.GetText
 285     if V2 <> IndentAt.GetText then Warnlog "Level 1: Wrong indent:  Should = "+ V2+ "  Is = "+ IndentAt.GetText
 286     Level.Select 3
 287 '    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 3!"
 288     if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 3: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
 289     if V3 <> AlignedAt.GetText then Warnlog "Level 3: Wrong Text <-> Spacing to text:  Should = "+ V3+ "  Is = "+ AlignedAt.GetText
 290 '    if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Wrong indent:  Should = "+ V4+ "  Is = "+ AbstandTextNumerierung.GetText
 291     Level.Select 4
 292 '    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 4!"
 293     if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 4: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
 294     if V5 <> AlignedAt.GetText then Warnlog "Level 4: Wrong Text <-> Spacing to text:  Should = "+ V5+ "  Is = "+ AlignedAt.GetText
 295 '    if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V6+ "  Is = "+ AbstandTextNumerierung.GetText
 296     if V7 <> IndentAt.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V7+ "  Is = "+ IndentAt.GetText
 297     Level.Select 6
 298 '    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 6!"
 299     if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 6: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
 300     if V8 <> AlignedAt.GetText then Warnlog "Level 6: Wrong Text <-> Spacing to text:  Should = "+ V8+ "  Is = "+ AlignedAt.GetText
 301 '    if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V9+ "  Is = "+ AbstandTextNumerierung.GetText
 302     if V10 <> IndentAt.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V10+ "  Is = "+ IndentAt.GetText
 303     Level.Select 9
 304 '    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 9!"
 305     if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 9: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
 306     if V11 <> AlignedAt.GetText then Warnlog "Level 9: Wrong Text <-> Spacing to text:  Should = "+ V11+ "  Is = "+ AlignedAt.GetText
 307 '    if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V12+ "  Is = "+ AbstandTextNumerierung.GetText
 308     if V13 <> IndentAt.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V13+ "  Is = "+ IndentAt.GetText
 309     Level.Select 10
 310 '    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 10!"
 311     if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 10: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
 312     if V14 <> AlignedAt.GetText then Warnlog "Level 10: Wrong Text <-> Spacing to text:  Should = "+ V14+ "  Is = "+ AlignedAt.GetText
 313 '    if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V15+ "  Is = "+ AbstandTextNumerierung.GetText
 314     if V16 <> IndentAt.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V16+ "  Is = "+ IndentAt.GetText
 315     TabPositionNumerierung.Ok
 316
 317     printlog "  - check previous saved numbering"
 318     '/// save document, close it and reload previous saved document ///
 319     Sleep 1
 320     Call hFileSaveAsKill ( gOfficePath + "user\work\tFormatNumberingPosition." & WriterFilterExtension(0) )
 321     Sleep 2
 322     Call hCloseDocument
 323     Sleep 2
 324     Call hFileOpen ( gOfficePath + "user\work\tFormatNumberingPosition." & WriterFilterExtension(0) )
 325
 326     '/// check settings on Format / NumberingBullets ///
 327     FormatNumberingBullets
 328     Kontext
 329     Active.SetPage TabPositionNumerierung
 330     Kontext "TabPositionNumerierung"
 331     Level.Select 1
 332
 333     if Alignment.GetSelIndex <> 2 then Warnlog "#i38904#Level 1: Wrong alignment:  Should = 2   Ist = "+ Alignment.GetSelIndex
 334     if V1 <> AlignedAt.GetText then Warnlog "Level 1: Wrong Text <-> Rand:  Should = "+ V1+ "  Is = "+ AlignedAt.GetText
 335     if V2 <> IndentAt.GetText then Warnlog "Level 1: Wrong indent:  Should = "+ V2+ "  Is = "+ IndentAt.GetText
 336     Level.Select 3
 337 '    if Not Relativ.IsChecked then Relativ.Check
 338     if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 3: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
 339     if V3 <> AlignedAt.GetText then Warnlog "Level 3: Wrong Text <-> Spacing to text:  Should = "+ V3+ "  Is = "+ AlignedAt.GetText
 340 '    if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Wrong indent:  Should = "+ V4+ "  Is = "+ AbstandTextNumerierung.GetText
 341     Level.Select 4
 342 '    if Not Relativ.IsChecked then Relativ.Check
 343     if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 4: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
 344     if V5 <> AlignedAt.GetText then Warnlog "Level 4: Wrong Text <-> Spacing to text:  Should = "+ V5+ "  Is = "+ AlignedAt.GetText
 345 '    if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V6+ "  Is = "+ AbstandTextNumerierung.GetText
 346     if V7 <> IndentAt.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V7+ "  Is = "+ IndentAt.GetText
 347     Level.Select 6
 348 '    if Not Relativ.IsChecked then Relativ.Check
 349     if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 6: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
 350     if V8 <> AlignedAt.GetText then Warnlog "Level 6: Wrong Text <-> Spacing to text:  Should = "+ V8+ "  Is = "+ AlignedAt.GetText
 351 '    if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V9+ "  Is = "+ AbstandTextNumerierung.GetText
 352     if V10 <> IndentAt.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V10+ "  Is = "+ IndentAt.GetText
 353     Level.Select 9
 354 '    if Not Relativ.IsChecked then Relativ.Check
 355     if Alignment.GetSelIndex <> 1 then Warnlog "#i38904#Level 9: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
 356     if V11 <> AlignedAt.GetText then Warnlog "Level 9: Wrong Text <-> Spacing to text:  Should = "+ V11+ "  Is = "+ AlignedAt.GetText
 357 '    if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V12+ "  Is = "+ AbstandTextNumerierung.GetText
 358     if V13 <> IndentAt.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V13+ "  Is = "+ IndentAt.GetText
 359     Level.Select 10
 360 '    if Not Relativ.IsChecked then Relativ.Check
 361     if Alignment.GetSelIndex <> 3 then Warnlog "#i38904#Level 10: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
 362     if V14 <> AlignedAt.GetText then Warnlog "Level 10: Wrong Text <-> Spacing to text:  Should = "+ V14+ "  Is = "+ AlignedAt.GetText
 363 '    if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V15+ "  Is = "+ AbstandTextNumerierung.GetText
 364     if V16 <> IndentAt.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V16+ "  Is = "+ IndentAt.GetText
 365     TabPositionNumerierung.Cancel
 366     Sleep 1
 367     '/// Close document ///
 368     Call hCloseDocument
 369 endcase
 370
 371 '--------------------------------------------------
 372
 373 testcase tFormatNumberingOptions
 374     Dim V1 : Dim V2 : Dim V3 : Dim V4 : Dim V5 : Dim V6 : Dim V7 : Dim V8 : Dim V9 : Dim V10
 375     Dim i as integer
 376
 377     printlog "  - adjust numbering properties"
 378     '/// New document ///
 379     Call hNewDocument
 380     '/// Select Format / Numbering Bullets and adjust properties for each level ///
 381     FormatNumberingBullets
 382
 383     Kontext
 384     Active.SetPage TabOptionenNumerierung
 385     Kontext "TabOptionenNumerierung"
 386
 387     Ebene.Select 1
 388     Numerierung.Select 11           ' Keine
 389     Davor.SetText "Vorher "
 390     Dahinter.SetText "sp�ter "
 391
 392     Ebene.Select 3
 393     Numerierung.Select 2            ' A,B,C,...
 394     Davor.SetText "��� "
 395     Dahinter.SetText "��� "
 396     Zeichenvorlage.Select 2
 397     V9 = Zeichenvorlage.GetSelText
 398     Vollstaendig.Less 1
 399     V1 = Vollstaendig.GetText
 400     BeginnBei.More 4
 401     V2 = BeginnBei.GetText
 402
 403     Ebene.Select 5
 404     Numerierung.Select 8            ' Bullets
 405     if Davor.IsVisible then Warnlog "'Before' is visible on Bullet-Options"
 406     if Dahinter.IsVisible then Warnlog "'After' is visible on Bullet-Options"
 407     Zeichenvorlage.Select 1
 408
 409     Ebene.Select 7
 410     Numerierung.Select 9            ' Grafik
 411     if Davor.IsVisible then Warnlog "'Before' is visible on Graphic-Options"
 412     if Dahinter.IsVisible then Warnlog "'After' is visible on Graphic-Options"
 413     Auswahl.Click
 414     Call hMenuSelectNr (1)
 415     Kontext "OeffnenDlg"
 416     Dateiname.Settext Convertpath(gtesttoolpath + "writer\optional\input\graphics\bullet.gif")
 417     Oeffnen.Click
 418     wait 500
 419     Kontext "Active"
 420     if Active.Exists then
 421         if Active.GetRT = 304 then
 422             Warnlog Active.Gettext
 423             Active.Ok
 424         end if
 425     end if
 426
 427     Kontext "TabOptionenNumerierung"
 428     Breite.More 4
 429     V3 = Breite.GetText
 430     Hoehe.More 3
 431     V4 = Hoehe.GetText
 432     Ausrichtung.Select 4
 433
 434     Ebene.Select 9
 435     Numerierung.Select 1            ' 1,2,3,...
 436     Zeichenvorlage.Select 3
 437     V10 = Zeichenvorlage.GetSelText
 438
 439     Ebene.Select 10
 440     Numerierung.Select 3            ' a,b,c,...
 441     V5 = Davor.GetText
 442     V6 = Dahinter.GetText
 443     Vollstaendig.More 9
 444     V7 = Vollstaendig.GetText
 445     BeginnBei.More 3
 446     V8 = BeginnBei.GetText
 447     TabOptionenNumerierung.OK
 448
 449     printlog "  - write down numbering"
 450     '/// write down numbering ///
 451     call wTypeKeys "Hallo 1. Ebene<Return>"
 452     call wTypeKeys "<Tab>Hallo 2. Ebene<Return>"
 453     call wTypeKeys "<Tab>Hallo 3. Ebene<Return>"
 454     call wTypeKeys "<Tab>Hallo 4. Ebene<Return>"
 455     call wTypeKeys "<Tab>Hallo 5. Ebene<Return>"
 456     call wTypeKeys "<Tab>Hallo 6. Ebene<Return>"
 457     call wTypeKeys "<Tab>Hallo 7. Ebene<Return>"
 458     call wTypeKeys "<Tab>Hallo 8. Ebene<Return>"
 459     call wTypeKeys "<Tab>Hallo 9. Ebene<Return>"
 460     call wTypeKeys "<Tab>Hallo 10. Ebene<Return>"
 461     call wTypeKeys "<Tab>Immer noch 10. Ebene<Return>"
 462     call wTypeKeys "<Return><Return>Ende der Numerierung"
 463     call wTypeKeys "<Up>", 5
 464
 465     FormatNumberingBullets
 466     Kontext
 467     Active.SetPage TabOptionenNumerierung
 468     Kontext "TabOptionenNumerierung"
 469     Ebene.Select 1
 470     if Numerierung.GetSelIndex <> 11 then Warnlog "Level 1: Wrong Numbering type : Should 11     Is " + Numerierung.GetSelIndex
 471     if Davor.GetText <> "Vorher " then Warnlog "Level 1: Wrong Text in 'After': Should 'Vorher '    Is " + Davor.GetText
 472     if Dahinter.GetText <> "sp�ter " then Warnlog "Level 1: Wrong Text in 'Before': Should 'sp�ter '    Is " + Dahinter.GetText
 473     Ebene.Select 3
 474     if Numerierung.GetSelIndex <> 2 then Warnlog "Level 3: Wrong Numbering type : Should 2     Is " + Numerierung.GetSelIndex
 475     if Davor.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'Before': Should '��� '    Is " + Davor.GetText
 476     if Dahinter.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'After': Should '��� '    Is " + Dahinter.GetText
 477     if Zeichenvorlage.GetSelText <> V9 then Warnlog "Level 3: Wrong Character Style: Should " + V9 + "    Is " + Zeichenvorlage.GetSelText
 478     if V1 <> Vollstaendig.GetText then Warnlog "Level 3: 'Show Sublevels' Is wrong: Should " + V1 + "   Is: " + Vollstaendig.GetText
 479     if V2 <> BeginnBei.GetText then Warnlog "Level 3: 'Start at'  Is wrong: Should " + V2 + "   Is: " + BeginnBei.GetText
 480     Ebene.Select 5
 481     if Numerierung.GetSelIndex <> 8 then Warnlog "Level 5: Wrong Numbering type : Should 8     Is " + Numerierung.GetSelIndex
 482     if Zeichenvorlage.GetSelIndex <> 1 then Warnlog "Level 5: Wrong Character Style: Should 1    Is " + Zeichenvorlage.GetSelIndex
 483     Ebene.Select 7
 484     if Numerierung.GetSelIndex <> 9 then
 485         Warnlog "Level 7: Wrong Numbering type : Should 9     Is " + Numerierung.GetSelIndex
 486     else
 487         if V3 <> Breite.GetText then Warnlog "Level 7: Wrong graphic width: Should " + V3 + "   Is: " + Breite.GetText
 488         if V4 <> Hoehe.GetText then Warnlog "Level 7: Wrong graphic height: Should " + V4 + "   Is: " + Hoehe.GetText
 489         if Ausrichtung.GetSelIndex <> 4 then Warnlog "Level 7: Alignment Is not 4 but " + Ausrichtung.GetSelIndex
 490     end if
 491     Ebene.Select 9
 492     if Numerierung.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering type : Should 1     Is " + Numerierung.GetSelIndex
 493     if Zeichenvorlage.GetSelText <> V10 then Warnlog "Level 9: Wrong Character Style: Should " + V10 +"    Is " + Zeichenvorlage.GetSelText
 494     Ebene.Select 10
 495     if Numerierung.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering type : Should 3     Is " + Numerierung.GetSelIndex
 496     if Davor.GetText <> V5 then Warnlog "Level 10: Wrong Text in 'Before': Should "+ V5 + "    Is " + Davor.GetText
 497     if Dahinter.GetText <> V6 then Warnlog "Level 10: Wrong Text in 'After': Should "+ V6 + "    Is " + Dahinter.GetText
 498     if V7 <> Vollstaendig.GetText then Warnlog "Level 10: 'Show Sublevels' Is wrong: Should " + V7 + "   Is: " + Vollstaendig.GetText
 499     if V8 <> BeginnBei.GetText then Warnlog "Level 10: 'Start at'  Is wrong: Should " + V8 + "   Is: " + BeginnBei.GetText
 500     TabOptionenNumerierung.Cancel
 501
 502     printlog "  - check previous saved numbering"
 503     '/// save document, close it and reload previous saved document ///
 504     Call hFileSaveAsKill ( gOfficePath + "user\work\format6." & WriterFilterExtension(0) )
 505     Sleep 2
 506     Call hCloseDocument
 507     Sleep 2
 508     Call hFileOpen ( gOfficePath + "user\work\format6." & WriterFilterExtension(0) )
 509     For i = 1 to 15
 510         call wTypeKeys "<Up>"
 511         Wait 500
 512     next i
 513     call wTypeKeys "<Home>"
 514
 515     '/// check settings in Format / Numbering Bullets ///
 516     FormatNumberingBullets
 517     Kontext
 518     Active.SetPage TabOptionenNumerierung
 519     Kontext "TabOptionenNumerierung"
 520     Ebene.Select 1
 521     if Numerierung.GetSelIndex <> 11 then Warnlog "Level 1: Wrong Numbering type : Should 11     Is " + Numerierung.GetSelIndex
 522     if Davor.GetText <> "Vorher " then Warnlog "Level 1: Wrong Text in 'After': Should 'Vorher '    Is " + Davor.GetText
 523     if Dahinter.GetText <> "sp�ter " then Warnlog "Level 1: Wrong Text in 'Before': Should 'sp�ter '    Is " + Dahinter.GetText
 524     Ebene.Select 3
 525     if Numerierung.GetSelIndex <> 2 then Warnlog "Level 3: Wrong Numbering type : Should 2     Is " + Numerierung.GetSelIndex
 526     if Davor.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'Before': Should '��� '    Is " + Davor.GetText
 527     if Dahinter.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'After': Should '��� '    Is " + Dahinter.GetText
 528     if Zeichenvorlage.GetSelText <> V9 then Warnlog "Level 3: Wrong Character Style: Should " + V9 + "    Is " + Zeichenvorlage.GetSelText
 529     if V1 <> Vollstaendig.GetText then Warnlog "Level 3: 'Show Sublevels' Is wrong: Should " + V1 + "   Is: " + Vollstaendig.GetText
 530     if V2 <> BeginnBei.GetText then Warnlog "Level 3: 'Start at'  Is wrong: Should " + V2 + "   Is: " + BeginnBei.GetText
 531     Ebene.Select 5
 532     if Numerierung.GetSelIndex <> 8 then Warnlog "Level 5: Wrong Numbering type : Should 8     Is " + Numerierung.GetSelIndex
 533     if Zeichenvorlage.GetSelIndex <> 1 then Warnlog "Level 5: Wrong Character Style: Should 1    Is " + Zeichenvorlage.GetSelIndex
 534     Ebene.Select 7
 535     if Numerierung.GetSelIndex <> 9 then
 536         Warnlog "Level 7: Wrong Numbering type : Should 9     Is " + Numerierung.GetSelIndex
 537     else
 538         if V3 <> Breite.GetText then Warnlog "Level 7: Wrong graphic width: Should " + V3 + "   Is: " + Breite.GetText
 539         if V4 <> Hoehe.GetText then Warnlog "Level 7: Wrong graphic height: Should " + V4 + "   Is: " + Hoehe.GetText
 540         if Ausrichtung.GetSelIndex <> 4 then Warnlog "Level 7: Alignment Is not 4 but " + Ausrichtung.GetSelIndex
 541     end if
 542     Ebene.Select 9
 543     if Numerierung.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering type : Should 1     Is " + Numerierung.GetSelIndex
 544     if Zeichenvorlage.GetSelText <> V10 then Warnlog "Level 9: Wrong Character Style: Should " + V10 +"    Is " + Zeichenvorlage.GetSelText
 545     Ebene.Select 10
 546     if Numerierung.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering type : Should 3     Is " + Numerierung.GetSelIndex
 547     if Davor.GetText <> V5 then Warnlog "Level 10: Wrong Text in 'Before': Should "+ V5 + "    Is " + Davor.GetText
 548     if Dahinter.GetText <> V6 then Warnlog "Level 10: Wrong Text in 'After': Should "+ V6 + "    Is " + Dahinter.GetText
 549     if V7 <> Vollstaendig.GetText then Warnlog "Level 10: 'Show Sublevels' Is wrong: Should " + V7 + "   Is: " + Vollstaendig.GetText
 550     if V8 <> BeginnBei.GetText then Warnlog "Level 10: 'Start at'  Is wrong: Should " + V8 + "   Is: " + BeginnBei.GetText
 551     TabOptionenNumerierung.Cancel
 552
 553     '/// Close document ///
 554     Call hCloseDocument
 555 endcase
 556
 557 '--------------------------------------------------
 558 testcase tFormatNumberingAll
 559         Dim i as Integer
 560         Dim Wert( 20 ) as Integer
 561         printlog "- Format / Numbering -Bullets in detail"
 562         printlog "  - adjust different Numbering and check the properties"
 563         '/// New document ///
 564         Call hNewDocument
 565         '/// Select Format / NumberingBullets and adjust different numbering ///
 566         FormatNumberingBullets
 567
 568         Kontext
 569         Active.SetPage TabBullet
 570         Kontext "TabBullet"
 571         Sleep 1
 572         Auswahl.TypeKeys "<Right><Down>"
 573         Kontext
 574         Active.SetPage TabOptionenNumerierung
 575         Kontext "TabOptionenNumerierung"
 576         '/// Level 1 select a bullet ///
 577         Ebene.Select 1                                               ' 1. Ebene ein Bullet einstellen
 578
 579         Kontext
 580         Active.SetPage TabOptionenNumerierung
 581         Kontext "TabOptionenNumerierung"
 582         '/// Level 2 select a numbering ///
 583         Ebene.Select 2                                               ' 2. Ebene eine Numerierungsart einstellen
 584
 585         Kontext
 586         Active.SetPage TabNumerierungsart
 587         Kontext "TabNumerierungsart"
 588         Sleep 1
 589         Auswahl.TypeKeys "<Down>", 2
 590
 591         Kontext
 592         Active.SetPage TabOptionenNumerierung
 593         Kontext "TabOptionenNumerierung"
 594         '/// Level 3 select a numbering ///
 595         Ebene.Select 3                                               ' 3. Ebene eine Numerierungsart einstellen
 596
 597         Kontext
 598         Active.SetPage TabNumerierungsart
 599         Kontext "TabNumerierungsart"
 600         Sleep 1
 601         Auswahl.TypeKeys "<Down><Right>", 2
 602
 603         Kontext
 604         Active.SetPage TabOptionenNumerierung
 605         Kontext "TabOptionenNumerierung"
 606         '/// Level 4 select a graphic ///
 607         Ebene.Select 4                                               ' 4. Ebene eine Grafik einstellen
 608
 609         Kontext
 610         Active.SetPage TabGrafiken
 611         Kontext "TabGrafiken"
 612         Sleep 1
 613         Auswahl.TypeKeys "<Right>"
 614                                                                                                                         ' 5. und 6. Ebene werden nicht besonders eingestellt
 615         Kontext
 616         Active.SetPage TabOptionenNumerierung
 617         Kontext "TabOptionenNumerierung"
 618         '/// Level 7 select a graphic ///
 619         Ebene.Select 7                                               ' 7. Ebene eine Grafik einstellen
 620
 621         Kontext
 622         Active.SetPage TabGrafiken
 623         Kontext "TabGrafiken"
 624         Sleep 1
 625         Auswahl.TypeKeys "<Right><Down>"
 626
 627         Kontext
 628         Active.SetPage TabOptionenNumerierung
 629         Kontext "TabOptionenNumerierung"
 630         '/// Level 8 select a graphic ///
 631         Ebene.Select 8                                               ' 8. Ebene eine Grafik einstellen
 632
 633         Kontext
 634         Active.SetPage TabGrafiken
 635         Kontext "TabGrafiken"
 636         Sleep 1
 637         Auswahl.TypeKeys "<Right>", 5
 638
 639         Kontext
 640         Active.SetPage TabOptionenNumerierung
 641         Kontext "TabOptionenNumerierung"
 642         '/// Level 9 select a bullet ///
 643         Ebene.Select 9                                               ' 9. Ebene ein Bullet einstellen
 644
 645         Kontext
 646         Active.SetPage TabBullet
 647         Kontext "TabBullet"
 648         Sleep 1
 649         Auswahl.TypeKeys "<Down>"
 650
 651         Kontext
 652         Active.SetPage TabOptionenNumerierung
 653         Kontext "TabOptionenNumerierung"
 654         '/// Level 10 select a numbering ///
 655         Ebene.Select 10                                              ' 10. Ebene eine Numerierungsart einstellen
 656
 657         Kontext
 658         Active.SetPage TabNumerierungsart
 659         Kontext "TabNumerierungsart"
 660         Sleep 1
 661         Auswahl.TypeKeys "<Right>", 2
 662
 663         Kontext
 664         Active.SetPage TabOptionenNumerierung
 665         Kontext "TabOptionenNumerierung"
 666
 667         for i=1 to 10
 668                 Ebene.Select i
 669                 Wert (i) = Numerierung.GetSelIndex
 670         next i
 671         '/// check settings made ///
 672
 673         if Wert(1)  <> 8 then Warnlog "Selected entry => 1. Level Is not Bullets (8. Entry) but entry " + Wert(1)
 674         if Wert(2)  <> 2 then Warnlog "Selected entry => 2. Level Is not Numbering 1 but entry " + Wert(2)
 675         if Wert(3)  <> 3 then Warnlog "Selected entry => 3. Level Is not Numbering 2 but entry " + Wert(3)
 676         if Wert(4)  <> 9 then Warnlog "Selected entry => 4. Level Is not Graphic (9. Entry) but entry " + Wert(4)
 677         if Wert(5)  <> 8 then Warnlog "Selected entry => 5. Level Is not Bullets (8. Entry) but entry " + Wert(5)
 678         if Wert(6)  <> 8 then Warnlog "Selected entry => 6. Level Is not Bullets (8. Entry) but entry " + Wert(6)
 679         if Wert(7)  <> 9 then Warnlog "Selected entry => 7. Level Is not Graphic (9. Entry) but entry " + Wert(7)
 680         if Wert(8)  <> 9 then Warnlog "Selected entry => 8. Level Is not Graphic (9. Entry) but entry " + Wert(8)
 681         if Wert(9)  <> 8 then Warnlog "Selected entry => 9. Level Is not Bullets (8. Entry) but entry " + Wert(9)
 682         if Wert(10) <> 1 then Warnlog "Selected entry => 10. Level Is not Numbering 1 but entry " + Wert(10)
 683
 684         TabOptionenNumerierung.OK
 685
 686         printlog "  - create numbering and check them"
 687         '/// create numbering and check it ///
 688         call wTypeKeys "Hallo 1. Ebene<Return>"
 689         call wTypeKeys "<Tab>Hallo 2. Ebene<Return>"
 690         call wTypeKeys "<Tab>Hallo 3. Ebene<Return>"
 691         call wTypeKeys "<Tab>Hallo 4. Ebene<Return>"
 692         call wTypeKeys "<Tab>Hallo 5. Ebene<Return>"
 693         call wTypeKeys "<Tab>Hallo 6. Ebene<Return>"
 694         call wTypeKeys "<Tab>Hallo 7. Ebene<Return>"
 695         call wTypeKeys "<Tab>Hallo 8. Ebene<Return>"
 696         call wTypeKeys "<Tab>Hallo 9. Ebene<Return>"
 697         call wTypeKeys "<Tab>Hallo 10. Ebene<Return>"
 698         call wTypeKeys "<Tab>Immer noch 10. Ebene<Return>"
 699         call wTypeKeys "<Return><Return>Ende der Numerierung"
 700         call wTypeKeys "<Up>", 5
 701
 702         FormatNumberingBullets
 703         '/// reopen dialog and check settings ///
 704         Kontext
 705         Active.SetPage TabOptionenNumerierung
 706         Kontext "TabOptionenNumerierung"
 707         for i=1 to 10
 708                 Ebene.Select i
 709                 if Numerierung.GetSelIndex <> Wert(i) then
 710                         Warnlog "After creating: => Level " + i + " has not numbering " + Wert (i) + " but " + Numerierung.GetSelIndex
 711                 end if
 712         next i
 713         TabOptionenNumerierung.Cancel
 714
 715         printlog "  - check previous saved numbering"
 716         '/// save document, close and reload previous saved document ///
 717         Sleep 2
 718         Call hFileSaveAsKill ( gOfficePath + "user\work\format7." & WriterFilterExtension(0) )
 719         Sleep 2
 720         Call hCloseDocument
 721         Sleep 2
 722         Call hFileOpen ( gOfficePath + "user\work\format7." & WriterFilterExtension(0) )
 723         Sleep 2
 724         FormatNumberingBullets
 725         '/// reopen Format / NumberingBullets and check saved settings ///
 726         Kontext
 727         Active.SetPage TabOptionenNumerierung
 728         Kontext "TabOptionenNumerierung"
 729         for i=1 to 10
 730                 Ebene.Select i
 731                 if Numerierung.GetSelIndex <> Wert(i) then Warnlog "After saving: => Level " + i + " has not Numbering " + Wert (i) + " but " + Numerierung.GetSelIndex
 732         next i
 733         TabOptionenNumerierung.Cancel
 734
 735         '/// close document ///
 736         Call hCloseDocument
 737 endcase