testautomation/writer/optional/includes/section/w_section_1.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_section_1.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:34:52 $
  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 : Section test(Insert/Section Format/Section)
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1  tInsertSection_1      'test for insert a section
  41 ' #1  tInsertSection_2      'test for the default section name and automatic numbering
  42 ' #1  tInsertSection_3      'Need to check section name
  43 ' #1  tInsertSection_4      'check if the layout in section is not destroyed
  44 ' #1  tInsertSection_5      'Linked Section test
  45 ' #1  tInsertSection_6      'Insert Section should be disabled in the follow opeation
  46 '*
  47 '\***********************************************************************
  48
  49 sub w_section_1
  50     printLog Chr(13) + "---------   Insert Section   ----------"
  51     Call tInsertSection_1
  52     Call tInsertSection_2
  53     Call tInsertSection_3
  54     Call tInsertSection_4
  55     Call tInsertSection_5
  56     Call tInsertSection_6
  57 end sub
  58
  59 '-------------------------------------------------------------------------
  60
  61 testcase tInsertSection_1
  62
  63     Call hNewDocument
  64     Call fInsertSection("Section Test")
  65     sleep(1)
  66     Call wTypeKeys "<RETURN>"
  67     '/// Test for insert a section with western words ///
  68     Call fInsertSection("Western Test")
  69     sleep(1)
  70     Call wTypeKeys "<UP>" , 1
  71     Call wTypeKeys "Section : western test"
  72
  73     'If Asian office...
  74     if bAsianLan = TRUE then
  75         Call wTypeKeys "<DOWN>" , 1
  76         Call wTypeKeys "<RETURN>"
  77         '///+... test for insert a section with asian character -- Simplified Chinese ///
  78         Call fInsertSection("Asian Test")
  79         sleep(1)
  80         Call wTypeKeys "<UP>" , 1
  81         Call wTypeKeys "简体中文"
  82     end if
  83
  84     Call wTypeKeys "<DOWN>" , 1
  85     Call wTypeKeys "<RETURN>"
  86
  87     '/// Test for insert a section with a graphic object
  88     Call fInsertSection("Graphic Test")
  89     Call wTypeKeys "<UP>" , 1
  90     Call hGrafikEinfuegen(gTesttoolPath + "writer\optional\input\graphics\jolink.jpg")
  91     sleep(1)
  92     gMouseClick(6,1)
  93     Call wTypeKeys "<DOWN>" , 10
  94     Call wTypeKeys "<RETURN>"
  95     '/// Test for insert a section with a draw object ///
  96     Call fInsertSection("Draw Test")
  97     sleep(1)
  98     Call wTypeKeys "<UP>" , 1
  99     InsertObjectOLEObject
 100     sleep(1)
 101     Kontext "OLEObjektEinfuegen"
 102     AusDateiErstellen.Check
 103     oleDatei.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\section_test.sxd")
 104     OLEObjektEinfuegen.OK
 105     sleep(4)
 106     'Close document
 107     Call hCloseDocument
 108     sleep(1)
 109
 110     Call hNewDocument
 111
 112     '/// Test for insert a section with combination of different objects///
 113     Call fInsertSection("combination of different objects test")
 114     sleep(1)
 115
 116     '/// -- western words  ///
 117     Call wTypeKeys "<UP>" , 1
 118     Call wTypeKeys "Section : western test<return>"
 119     '/// -- Graphic  ///
 120     Call hGrafikEinfuegen(gTesttoolPath & "writer\optional\input\graphics\jolink.jpg")
 121     sleep(1)
 122     gMouseClick(1,1)
 123     Call wTypeKeys "<DOWN>" , 1
 124     Call wTypeKeys "<RETURN>"
 125     '/// -- drawing object ///
 126     InsertObjectOLEObject
 127     sleep(1)
 128     Kontext "OLEObjektEinfuegen"
 129     AusDateiErstellen.Check
 130     oleDatei.Settext ConvertPath(gTesttoolpath & "writer\optional\input\section\section_test.sxd")
 131     OLEObjektEinfuegen.OK
 132     sleep(3)
 133
 134     Call hCloseDocument
 135
 136 endcase
 137
 138 '----------------------------------------------------------
 139
 140 testcase tInsertSection_2
 141
 142     Dim SectionName as String
 143     Dim j
 144
 145     '/// Test for the default section name and automatic numbering
 146     '///+<b>Only Big 10 languages!</b>
 147     '///+ Automatic numbering test is from 1-3.
 148
 149     Call hNewDocument
 150     for j=1 to 3
 151         SectionName = gDefaultSectionName + j
 152         InsertSection
 153         sleep(2)
 154         Kontext "TabBereiche"
 155         TabBereiche.OK
 156         sleep(2)
 157         Call wTypeKeys "<UP>"
 158         'Check the section name is correct or NOT (Format/Section)
 159         FormatSections
 160         sleep(1)
 161         Kontext "BereicheBearbeiten"
 162         if BereichsName.GetText <> SectionName then
 163             QAErrorLog "The default Section Name may be changed or wrong wrong : " & BereichsName.Gettext
 164         end if
 165         BereicheBearbeiten.Cancel
 166         sleep(1)
 167         Call wTypeKeys "<DOWN>"
 168     next j
 169     Call hCloseDocument
 170 endcase
 171
 172 '----------------------------------------------------------
 173
 174 testcase tInsertSection_3
 175
 176     Dim SectionName() as Variant
 177     Dim i,j as Integer
 178
 179     '*************************************************************
 180     '/// Need to check section name, include :                ///
 181     '///   SectionTest   --- normal name                      ///
 182     '///   Section Test  --- devided by space                 ///
 183     '///   Section-Test  --- devided by dash                  ///
 184     '///   Section*Test  --- devided by asterisk              ///
 185     '///   sèction      --- include German umlaut character  ///
 186     '///   säction      --- include French character         ///
 187     '                                                         ///
 188     '/// *** maybe need add more testcases here  ***          ///
 189     '*************************************************************
 190
 191     SectionName = Array( _
 192                        "SectionTest"     , _
 193                        "Section Test"    , _
 194                        "Section-Test"    , _
 195                        "Section*Test"    , _
 196                        "sèction"        , _
 197                        "säction"        , _
 198                        )
 199
 200     j = UBound(SectionName)
 201
 202     Call hNewDocument
 203
 204     For i = 0 to j
 205         try
 206             fInsertSection(SectionName(i))
 207             Call wTypeKeys "<Up>" , 1
 208
 209             FormatSections
 210             Kontext "BereicheBearbeiten"
 211             if BereichsName.GetText <> SectionName(i) then warnlog "    The Section Name is wrong, it should be :" +SectionName(i) +", but: "+BereichsName.GetText
 212             BereicheBearbeiten.Cancel
 213
 214             Call wTypeKeys "<Down>" , 1
 215         catch
 216             Warnlog "   Insert Section is failed , the section name should be " +SectionName(i)
 217         endcatch
 218     next i
 219
 220     Call hCloseDocument
 221 endcase
 222
 223 '----------------------------------------------------------
 224
 225 testcase tInsertSection_4
 226
 227     Dim Message1 as String
 228     Dim j
 229
 230     '/// Check if the layout in section is not destroyed.
 231
 232     '/// 1. Test for a section includes more than 1 line of text.
 233     printlog "     Section includes more than 1 line of text"
 234     Call hNewDocument
 235     sleep(2)
 236     Call wTypeKeys "This is first line<return>"
 237     Call wTypeKeys "This is Second line"
 238     EditSelectAll
 239     sleep(1)
 240     EditCopy
 241     sleep(1)
 242     Message1 = GetClipboardText
 243     InsertSection
 244     sleep(2)
 245     Kontext "TabBereiche"
 246     TabBereiche.OK
 247     sleep(1)
 248     EditSelectAll
 249     sleep(1)
 250     EditCopy
 251     sleep(1)
 252     if Message1 <> GetClipboardText then Warnlog "     Layout is destroyed"
 253     Call hCloseDocument
 254
 255     '/// 2. test for a section includes more than 1 graphic///
 256     printlog "     Section includes more than 1 graphic"
 257     Call hNewDocument
 258     sleep(2)
 259     Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
 260     sleep(2)
 261     FormatGraphics
 262     sleep(2)
 263     Kontext
 264     Active.SetPage TabZusaetze
 265     Kontext "TabZusaetze"
 266     ObjektName.SetText "jolink"
 267     sleep(2)
 268     TabZusaetze.OK
 269     sleep(1)
 270     Call wTypeKeys "<ESCAPE>"
 271     Call wTypeKeys "<RETURN>" , 2
 272     sleep(1)
 273     Call hGrafikEinfuegen ( gTesttoolPath + "writer\optional\input\graphics\bild.jpg" )
 274     sleep(2)
 275     FormatGraphics
 276     sleep(2)
 277     Kontext
 278     Active.SetPage TabZusaetze
 279     Kontext "TabZusaetze"
 280     ObjektName.SetText "bild"
 281     TabZusaetze.OK
 282     sleep(1)
 283     Call wTypeKeys "<ESCAPE>"
 284     Call wTypeKeys "<RETURN>" , 4
 285     sleep(1)
 286     EditSelectAll
 287     sleep(2)
 288     InsertSection
 289     sleep(2)
 290     Kontext
 291     Active.Setpage TabBereiche
 292     Kontext "TabBereiche"
 293     TabBereiche.OK
 294     'Check if correct graphic have been selected
 295     for j=1 to 2
 296         Call wNavigatorAuswahl(4,j)
 297         FormatGraphics
 298         sleep(2)
 299         Kontext
 300         Active.SetPage TabZusaetze
 301         Kontext "TabZusaetze"
 302         sleep(1)
 303         Message1 = ObjektName.GetText
 304         select case j
 305             case 1 : if Message1 <> "jolink"   then Warnlog "Wrong Graphicname: Not -> 'jolink'   But -> "+ Message1
 306             case 2 : if Message1 <> "bild" then Warnlog "Wrong Graphicname: Not -> 'bild'  But -> "+ Message1
 307         end select
 308         TabZusaetze.Cancel
 309         sleep(1)
 310     next j
 311     Call fCloseNavigator
 312     sleep(1)
 313     Call hCloseDocument
 314
 315     '/// 3. test for a section across page breaks ///
 316     printlog "      Section across page breaks"
 317     Call hNewDocument
 318
 319     ' Call dialog with Insert/ManualBreak and in dialog check 'page break'
 320     Call wTypeKeys "Page Break"
 321     Call wTypeKeys "<LEFT>" , 5
 322     Kontext
 323     InsertManualBreak
 324     sleep(1)
 325     Kontext "UmbruchEinfuegen"
 326     Seitenumbruch.Check
 327     UmbruchEinfuegen.OK
 328     sleep(1)
 329     EditSelectAll
 330     sleep(1)
 331     InsertSection
 332     sleep(2)
 333     Kontext "TabBereiche"
 334     TabBereiche.OK
 335     sleep(1)
 336     Kontext
 337     ViewNavigator
 338     sleep(1)
 339     Kontext "NavigatorWriter"
 340     Seitennummer.SetText "2"
 341     sleep(2)
 342     'set page number to 2
 343     if Seitennummer.GetText <> "2" then
 344         warnlog "Something wrong in a section across page breaks, perhaps due to bug #101873."
 345     end if
 346     Call fCloseNavigator
 347     Call hCloseDocument
 348 endcase
 349
 350 '----------------------------------------------------------
 351
 352 testcase tInsertSection_5
 353
 354     Dim Message1
 355     Dim Message2
 356     Dim Message3
 357
 358     if Dir (gOfficePath + "user\work\link_of_section_test.oot") <> "" then
 359         kill (gOfficePath + "user\work\link_of_section_test.oot")
 360     end if
 361
 362     '/// Linked Section test ///
 363
 364     Call hNewDocument
 365
 366     '/// 1. Check option 'Link' in dialogue Insert-Section  ///
 367     printlog "   - Check option 'Link' in dialogue Insert-Section"
 368     InsertSection
 369     sleep 2
 370     Kontext
 371     Active.Setpage TabBereiche
 372     Kontext "TabBereiche"
 373     sleep 1
 374
 375     Geschuetzt.UnCheck
 376     Verknuepfung.Check
 377     if Geschuetzt.IsChecked <>TRUE then warnlog "The checkbox 'protect' is NOT checked"
 378
 379     '/// 2. Check Link from other sections ///
 380     printlog "   - Check Link from other sections "
 381
 382     '/// - Check if the link document contains no sections"
 383     printlog "       - Check if the link document contains no sections"
 384
 385     DateiVerknuepfung.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\bt.sxw")
 386
 387     if Bereich.GetItemCount <> 0 then warnlog "Should NO entry in the section listbox"
 388     TabBereiche.Cancel
 389
 390     Call wTypeKeys "Hello World!"
 391     EditSelectAll
 392
 393     FormatCharacter
 394     sleep 2
 395     Kontext
 396
 397     ' On Tabpage 'Font' adjust settings
 398     active.SetPage TabFont
 399     kontext "TabFont"
 400     try
 401         FontWest.Select 1
 402         Message2 = FontWest.GetSelText
 403         Message1 = StyleWest.GetItemCount
 404         StyleWest.Select Message1
 405         Message3 = StyleWest.GetSelText
 406         SizeWest.Select 24
 407     catch
 408         Font.Select 1
 409         Message2 = Font.GetSelText
 410         Message1 = Style.GetItemCount
 411         Style.Select Message1
 412         Message3 = Style.GetSelText
 413         Size.Select 24
 414     endcatch
 415     wait 100
 416
 417     TabFont.OK
 418
 419     Call fInsertSection("Section-Test-link")
 420
 421     ' Save document
 422     if gApplication = "WRITER" then
 423         Call hFileSaveAsKill (gOfficePath + "user\work\link_of_section_test.odt")
 424     end if
 425
 426     Call hCloseDocument
 427
 428     Call hNewDocument
 429
 430     InsertSection
 431     sleep 2
 432     Kontext
 433     Active.Setpage TabBereiche
 434     Kontext "TabBereiche"
 435     Verknuepfung.Check
 436
 437     Auswaehlen.Click
 438     Kontext "OeffnenDlg"
 439     Dateiname.Settext ConvertPath(gOfficePath + "user\work\link_of_section_test.odt")
 440     Auswaehlen.Click
 441     sleep 4
 442
 443     Kontext
 444     Active.Setpage TabBereiche
 445     Kontext "TabBereiche"
 446     Geschuetzt.UnCheck
 447
 448     try
 449         Bereich.Select 1
 450     catch
 451         Warnlog "Something wrong in Section name . Bug i35168"
 452     endcatch
 453
 454     if Bereich.GetSelText <> "Section-Test-link" then warnlog "the section name is wrong" + Bereich.GetSelText
 455
 456     Bereichsliste.Settext "SectionLink"
 457
 458     TabBereiche.OK
 459     sleep 2
 460
 461     Call wTypeKeys "<up>" , 2
 462
 463     FormatSections
 464     Kontext "BereicheBearbeiten"
 465     if BereichsName.GetText <> "SectionLink" then warnlog "The Section Name is wrong : " + BereichsName.Gettext
 466     BereicheBearbeiten.Cancel
 467
 468     FormatCharacter
 469     sleep 2
 470     Kontext
 471     'On Tabpage 'Font' adjust settings
 472     active.SetPage TabFont
 473     kontext "TabFont"
 474     try
 475         if FontWest.GetSelIndex <> 1 then Warnlog "Font should "+ Message2 +" is "+ FontWest.GetSelText
 476         if StyleWest.GetSelIndex <> Message1 then Warnlog "FontStyle should " +Message3+" is "+ StyleWest.GetSelText
 477         if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
 478     catch
 479         if Font.GetSelIndex <> 1 then Warnlog "Font should "+ Message2 +" is "+ Font.GetSelText
 480         if Style.GetSelIndex <> Message1 then Warnlog "FontStyle should " +Message3+" is "+ Style.GetSelText
 481         if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
 482     endcatch
 483     wait 100
 484     TabFont.Cancel
 485     Call hCloseDocument
 486
 487     '/// 3. Check simple link from file ///
 488     printlog "   - Check simple link from file"
 489
 490     '/// test for entering path/name directly ///
 491     Call hNewDocument
 492
 493     InsertSection
 494     sleep 2
 495     Kontext
 496     Active.Setpage TabBereiche
 497     Kontext "TabBereiche"
 498     Verknuepfung.Check
 499
 500     DateiVerknuepfung.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\bt.sxw")
 501     TabBereiche.OK
 502     sleep 4
 503
 504     Call hCloseDocument
 505
 506     '/// 4. test via browse - button ///
 507     Call hNewDocument
 508
 509     InsertSection
 510     sleep 2
 511     Kontext
 512     Active.Setpage TabBereiche
 513     Kontext "TabBereiche"
 514     sleep 1
 515     Verknuepfung.Check
 516
 517     Auswaehlen.Click
 518     Kontext "OeffnenDlg"
 519     Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\bt.sxw")
 520     Auswaehlen.Click
 521     sleep 4
 522
 523     Kontext
 524     Active.Setpage TabBereiche
 525     Kontext "TabBereiche"
 526     TabBereiche.OK
 527     sleep 4
 528
 529     Call hCloseDocument
 530 endcase
 531
 532 '----------------------------------------------------------
 533
 534 testcase tInsertSection_6
 535
 536     '/// Insert Section should be disabled in the follow opeations///
 537     printlog "  - Insert Section should be disabled in the follow opeations"
 538
 539     Call hNewDocument
 540
 541     '/// 1. Multiselection  ///
 542     printlog "  - Multiselection "
 543
 544     Call wTypeKeys "Multiselection test , Multiselection test !"
 545     Call fMultiSelection("Multiselection")
 546
 547     try
 548         InsertSection
 549         sleep 2
 550         Warnlog "Menu Insert / Section should be disabled !"
 551     catch
 552     endcatch
 553
 554     Call hCloseDocument
 555
 556     Call hNewDocument
 557
 558     '/// 2. cell selection in table ///
 559     printlog "  - Check cell selection in table "
 560     InsertTableWriter
 561
 562     Kontext "TabelleEinfuegenWriter"
 563     TabelleEinfuegenWriter.OK
 564     sleep 1
 565
 566     Call wTypeKeys "<Shift Right>"
 567
 568     try
 569         InsertSection
 570         sleep 2
 571         Warnlog "Menu Insert / Section should be disabled !"
 572     catch
 573     endcatch
 574
 575     Call hCloseDocument
 576
 577     '/// 3. insert a frame  ///
 578     printlog "  - Check after insert a frame "
 579     Call hNewDocument
 580     InsertFrame
 581     Kontext
 582     active.SetPage TabType
 583     Kontext "TabType"
 584     TabType.OK
 585
 586     try
 587         InsertSection
 588         sleep 2
 589         Warnlog "Menu Insert / Section should be disabled !"
 590     catch
 591     endcatch
 592
 593     Call hCloseDocument
 594
 595     '/// 4. insert a graphic  ///
 596     printlog "  - Check after insert a graphic "
 597     Call hNewDocument
 598     Call hGrafikEinfuegen ( gTesttoolPath + "writer\optional\input\graphics\jolink.jpg" )
 599
 600     try
 601         InsertSection
 602         sleep 2
 603         Warnlog "Menu Insert / Section should be disabled !"
 604     catch
 605     endcatch
 606
 607     Call hCloseDocument
 608
 609     '/// 5. insert a OLE object  ///
 610     printlog "  - Check after insert a OLE-object (drawing) "
 611     Call hNewDocument
 612     InsertObjectOLEObject
 613     Kontext "OLEObjektEinfuegen"
 614     AusDateiErstellen.Check
 615     oleDatei.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\section_test.sxd")
 616     OLEObjektEinfuegen.OK
 617     sleep 3
 618     try
 619         InsertSection
 620         sleep 2
 621         Warnlog "Menu Insert / Section should be disabled !"
 622     catch
 623     endcatch
 624
 625     Call hCloseDocument
 626 endcase